有关数据提取与保存的问题
本人的问题如下:在记事本中有多行数据,每隔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