mccad 发表于 2009-5-13 10:40:00

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

ohohyo 发表于 2009-5-13 12:38:00

<p>承蒙你看得起我&nbsp;,不过能不能提点下啊</p>

zzyong00 发表于 2009-5-13 21:33:00

晕了
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 发表于 2009-5-13 21:34:00

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

ohohyo 发表于 2009-5-14 13:06:00

<p>感谢&nbsp;&nbsp; 感谢&nbsp; 感谢</p>

ohohyo 发表于 2009-5-14 13:53:00

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

雪山飞狐_lzh 发表于 2009-5-14 14:15:00

Sub tt()<br/>MsgBox 1 &amp; vbCrLf &amp; 2<br/>End Sub<br/>

ohohyo 发表于 2009-5-14 14:57:00

<p>感谢&nbsp;&nbsp;&nbsp; 感谢&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 感谢</p>
页: 1 [2]
查看完整版本: 问下各位高手vba读取txt文件的问题