如何使用VB读取txt文件中特定关键字中的数据并赋值

【专家解说】：Private Sub Command1_Click() Dim TempFile As Long Dim LoadBytes() As Byte Dim all As String Dim arr() As String Dim rel1 As String Dim rel2 As String Dim rel3 As String TempFile = FreeFile Open "c:\\temp.txt" For Binary As #TempFile ReDim LoadBytes(1 To LOF(TempFile)) As Byte Get #TempFile, , LoadBytes Close TempFile all = StrConv(LoadBytes, vbUnicode) arr = Split(all, "testkeyword1") rel1 = arr(0) arr = Split(arr(1), "testkeyword2") rel2 = arr(0) rel3 = arr(1) MsgBox rel1 MsgBox rel2 MsgBox rel3 End Sub