| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 669 人关注过本帖
标题:有关数据提取与保存的问题
取消只看楼主 加入收藏
wenmzh
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2008-9-11
收藏
 问题点数:0 回复次数:0 
有关数据提取与保存的问题
本人的问题如下:
在记事本中有多行数据,每隔6行提取一行数据,且只提取改行中第三个数据,提取完后把其保存到另外的记事本中,
以下代码是一位高人提供,可是无法显示和保存提取的数据,请问各位大侠,问题出在哪里?很急,我明天就谣用这个程序,希望本论坛的各位大侠帮助小弟解决这个问题!!!!!!!!!!!!!!!



Private Sub Command1_Click()
Dim s As String
Dim flag As Integer
flag = 0

Open "C:\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s
If flag Mod 6 = 0 Then
Print Mid(s, 3, 1)
End If
flag = flag + 1
Loop
Close #1
End Sub
搜索更多相关主题的帖子: 数据 保存 
2008-09-15 10:09
快速回复:有关数据提取与保存的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016473 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved