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

ohohyo

各位高手，假如我有一个txt文件，格式大概是”angmokio.txt 23543 70127 8654 4081“ 我怎么能把那几个数提出来，显示在msgbox上

ohohyo

同样跪求   跪求

fjfhgdwfn

<pre class="CT"><code>Dim MyString, MyNumber
Open "TESTFILE" For Input As #1    ' </code>打开输入文件。
<code>Do While Not EOF(1)    ' </code>循环至文件尾。
    <code>Input #1, MyString, MyNumber    ' </code>将数据读入两个变量。
    <code>Debug.Print MyString, MyNumber    ' </code>在立即窗口中显示数据。
<code>Loop</code>
<code>Close #1    ' </code>关闭文件。
看这个例子了</pre>

ohohyo

谢谢   试一试   那个testfile是不是要写上文件路劲啊

ohohyo

怎么有错误呢   大哥？

ohohyo

说 run-time error ‘62’

input past end of file

zzyong00

Dim byt() As Byte, length As Long

Open "TESTFILE" For Binary As #1    ' 打开输入文件。
ReDim byt(LOF(1) - 1)
Get #1, , byt
MsgBox StrConv(byt, vbUnicode)   ' 在立即窗口中显示数据。
Close #1    ' 关闭文件。

ohohyo

谢谢 高手

ohohyo

那能不能只是提取那几个数字呢?   前面的数不需要？

ohohyo

能不能只提取前两个数字  不要其他的呢？