Question

如何取得文本中某一特定字符串所在行的行号

Answer 1

示例附件中，日记文件放在C:\如在其它位置自行修改代码

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

Private Sub Command1_Click()
Dim h As Long, LTxt As String, spstr As Variant, MaxDate As Date, FindLine As Long
h = FreeFile
Dim n As Long, tmp As Date
Open "c:\日记.txt" For Input As h
Do While Not EOF(h)
Line Input #h, LTxt
n = n + 1
spstr = Split(LTxt, "：")
If UBound(spstr) = 1 Then
If Trim(spstr(0)) = "日期" Then
If IsDate(spstr(1)) Then
tmp = CDate(spstr(1))
If tmp > MaxDate Then MaxDate = tmp: FindLine = n
End If
End If
End If
Loop
Close
If FindLine = 0 Then
MsgBox "未找到存在日期的行"
Else
MsgBox "找到最后的日期：" & MaxDate & " 在文件第 " & FindLine & " 行"
End If
End Sub