问下各位高手vba读取txt文件的问题

mccad

整行都提出来，剩下只是字符串的处理，你应该会的。

ohohyo

承蒙你看得起我 ,不过能不能提点下啊

zzyong00

2. 晕了
3. Dim byt() As Byte, length As Long
4. Open "TESTFILE" For Binary As #1    ' 打开输入文件。
5. ReDim byt(LOF(1) - 1)
6. Get #1, , byt
7. dim strT as string,strArr() as string
8. strT= StrConv(byt, vbUnicode)   ' 在立即窗口中显示数据。
9. strarr=split(strT," ")
10. msgbox strarr(0) & " :" & strarr(1)
11. Close #1    ' 关闭文件。

晕了 Dim byt() As Byte, length As Long Open "TESTFILE" For Binary As #1    ' 打开输入文件。 ReDim byt(LOF(1) - 1) Get #1, , byt dim strT as string,strArr() as string strT= StrConv(byt, vbUnicode)   ' 在立即窗口中显示数据。 strarr=split(strT," ") msgbox strarr(0) & " :" & strarr(1) Close #1    ' 关闭文件。

zzyong00

明经论坛有BUG，引号中的空格没了！

ohohyo

感谢   感谢  感谢

ohohyo

最后问个小白的问题啊     在msgbox里怎么让他显示分行啊，   我显示的全是在一行里 ，太长呢    怎么分成两行或多行啊

雪山飞狐_lzh

Sub tt()
MsgBox 1 & vbCrLf & 2
End Sub

ohohyo

感谢    感谢      感谢