在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
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(0) 人氣()