vb 筛选文字

来源：百度知道 编辑：UC知道 时间：2024/06/07 08:08:06
有一个txt文件，内容为{******* 22：00：22} （不单只有一行）

如何将这个文件读取后将星号后面的具体时间输出到text或者list中？
前面”*******“中的文字是固定的
楼下的答案怎么只能提取一行时间啊？？（还是只能提取一个时间啊！）

''''''''''''*************不好意思,前几次没测试,呵呵,这次测试通过了
'''祝愉快
Private Sub Command1_Click()
Dim S As String
Dim x As String
List1.Clear
Open "c:\1.txt" For Input As #1 '请修改为具体的文件名
Do While Not EOF(1)
Line Input #1, S
DoEvents
x = x + S 'x储存文本文件的全部内容
Loop
Close #1
Dim n(100) As Long
Dim some As Boolean
n(0) = InStr(1, S, "*******")
If n(0) > 0 Then
List1.AddItem Mid(S, n(0) + 7, 8)
For i = 1 To 100
n(i) = InStr(n(i - 1) + 1, S, "*******")
If n(i) > 0 Then
List1.AddItem Mid(S, n(i) + 7, 8)
'''''''''''''''n(i)+后面的数字是"*******"的长度
Else
Exit For
End If
Next i
End If
End Sub

用Instr先查找到*****的位置然后用Left()或Right()来获取就可以了

在窗体上加入控件list1,command1，然后复制下面代