UC知道vb筛选程序求解
来源：百度知道 编辑：UC知道 时间：2024/06/17 13:57:17
问个vb的问题：就是从文件读入一段文本，筛选出同时含t，h，e的单词比如teacher，the,等，问筛选的程序怎么写？高手解答一下，谢谢^^
Option Base 1
Private Sub Command1_Click()
Dim d As String, j As Integer, a(3) As Boolean
Open " C:\in.txt" For Input As #1
While (Not EOF(1))
Input #1, d
For j = 1 To Len(d)
If Mid(d, j, 1) = "t" Then a(1) = 1
If Mid(d, j, 1) = "h" Then a(2) = 1
If Mid(d, j, 1) = "e" Then a(3) = 1
Next j
If a(1) + a(2) + a(3) = 3 Then
'"次数据含t,h,e，具体操作自拟"
End If
a(1) = 0
a(2) = 0
a(3) = 0
Loop
Close #1
End Sub