1. vb 讀取並查找指定的TXT文本內容怎麼查找
Fori=0ToList1.ListCount-1
Ifnpos=List1.List(i)ThenMsgBox"OK":ExitFor
Next
Ifi=List1.ListCountThenMsgBox"NG"
2. vb 怎麼識別 txt文件內容
如何利用VB讀取TXT文件的內容呢?一種方法是將整個文件讀取到內存中,例如:(假設讀取C:\Debug.txt)
Open "C:\Debug.txt" For Input As #1
TextValue = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
其中,TextValue即為TXT文件的內容。
另一種方法是逐行讀取文件,例如:(假設讀取C:\Debug.txt)
Dim TextLine As String
Open "C:\Debug.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, TextLine
Loop
Close
這種方法會一直循環直到文件結尾,每次循環中,TextLine就代表當前讀取到的一行內容。
如果你需要對文件內容進行判斷,推薦使用第二種方法。可以在Do-Loop循環中編寫相應的判斷函數。為了使判斷更加精確,建議在「Line Input #1, TextLine」這行代碼下面添加一行:VLine = Trim$(TextLine),這可以去除每一行文本首尾的多餘空格,從而使判斷更加准確。
在進行判斷時,你可以根據實際需求設置條件,例如判斷TextLine是否包含特定的字元串,或者根據TextLine的內容進行分類處理等。
逐行讀取的方法可以靈活應對不同長度的文件,並且在處理過程中可以對每一行進行即時處理,這在處理大型文件時尤為有用。
3. vb 如何判斷文件夾內是否有文件
1、vb使用dir函數來查找文件或文件夾。
2、Dir 函數:
返回一個 String,用以表示一個文件名、目錄內名或文件夾名稱,它必須與指定的容模式或文件屬性、或磁碟卷標相匹配。
語法:Dir[(pathname[, attributes])]
3、Dir 會返回匹配 pathname 的第一個文件名。若想得到其它匹配 pathname 的文件名,再一次調用Dir,且不要使用參數。如果已沒有合乎條件的文件,則 Dir 會返回一個零長度字元串 ("")。
4、vb6示例:
MyFile = Dir("C:\WINDOWS\WIN.ini")
' 返回"WIN.INI"(文件存在),返回""(文件不存在)。
4. VB讀取TXT文件並獲取指定內容
Private Sub Form_Load()
On Error Resume Next
Open App.Path & "\ok.txt" For Input As #1
Do Until EOF(1)
Line Input #1, x
For Each i In Split(x, vbCrLf)
If LCase(Right(i, 2)) = LCase("no") Then Text2.Text = Text2.Text & Trim(Split(i, " ")(1)) & vbCrLf: Text1.Text = Text1.Text & Trim(Split(x, " ")(1)) & vbCrLf
Next
Loop
Close #1
End Sub
'2個textbox,multiline=1,scrollbars=2.代碼可以自己改,這里是讀取當前文件夾下的ok.txt