在command1里,显示找到给定字符串行数
在command2里,显示给定行数的字符串
我想把command1里找到的行数直接赋给command2里的行数,如在command1里找到的行数为2,那么就读取lngLine +2,lngLine +4,lngLine +6的数据,请教该如何修改以下代码,谢谢!!!!
Private Sub Command1_Click()
Dim lngLine As Long
Dim strLine As String
Open "C:\aaa.txt" For Input As #1
Do Until EOF(1)
lngLine = lngLine + 1 '记数
Line Input #1, strLine '一行一行地读
If Trim(strLine) = "如果是第2行就打印出来" Then '如果是第2行就打印出来
MsgBox lngLine '行数
Print lngLine
End If
Loop
Close #1 '关闭打开的文件
End Sub
Private Sub Command2_Click()
Dim lngLine As Long
Dim strLine As String
Open "C:\aaa.txt" For Input As #1
Do Until EOF(1)
lngLine = lngLine + 1 '记数
Line Input #1, strLine '一行一行地读
If lngLine = 2 Then '如果是第2行就打印出来
MsgBox strLine
Print strLine
End If
If lngLine = 4 Then
MsgBox strLine '显示字符串
Print strLine
End If
If lngLine = 6 Then
MsgBox strLine '显示字符串
Print strLine
End If
If lngLine = 8 Then
MsgBox strLine '显示字符串
Print strLine
End If
Loop
Close #1 '关闭打开的文件
End Sub
在command2里,显示给定行数的字符串
我想把command1里找到的行数直接赋给command2里的行数,如在command1里找到的行数为2,那么就读取lngLine +2,lngLine +4,lngLine +6的数据,请教该如何修改以下代码,谢谢!!!!
Private Sub Command1_Click()
Dim lngLine As Long
Dim strLine As String
Open "C:\aaa.txt" For Input As #1
Do Until EOF(1)
lngLine = lngLine + 1 '记数
Line Input #1, strLine '一行一行地读
If Trim(strLine) = "如果是第2行就打印出来" Then '如果是第2行就打印出来
MsgBox lngLine '行数
Print lngLine
End If
Loop
Close #1 '关闭打开的文件
End Sub
Private Sub Command2_Click()
Dim lngLine As Long
Dim strLine As String
Open "C:\aaa.txt" For Input As #1
Do Until EOF(1)
lngLine = lngLine + 1 '记数
Line Input #1, strLine '一行一行地读
If lngLine = 2 Then '如果是第2行就打印出来
MsgBox strLine
Print strLine
End If
If lngLine = 4 Then
MsgBox strLine '显示字符串
Print strLine
End If
If lngLine = 6 Then
MsgBox strLine '显示字符串
Print strLine
End If
If lngLine = 8 Then
MsgBox strLine '显示字符串
Print strLine
End If
Loop
Close #1 '关闭打开的文件
End Sub
全站熱搜
留言列表