ohohyo 发表于 2009-5-12 09:11:00

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

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

ohohyo 发表于 2009-5-12 11:09:00

<p>同样跪求&nbsp;&nbsp; 跪求</p>

fjfhgdwfn 发表于 2009-5-12 11:55:00

<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 发表于 2009-5-12 12:23:00

<p>谢谢&nbsp;&nbsp; 试一试&nbsp;&nbsp; 那个testfile是不是要写上文件路劲啊</p>

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

怎么有错误呢   大哥？

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

<p>说 run-time error ‘62’ </p><p>input past end of file</p>

zzyong00 发表于 2009-5-12 15:55:00

<p>Dim byt() As Byte, length As Long</p><p>Open "TESTFILE" For Binary As #1&nbsp;&nbsp;&nbsp; ' 打开输入文件。<br/>ReDim byt(LOF(1) - 1)<br/>Get #1, , byt<br/>MsgBox StrConv(byt, vbUnicode)&nbsp;&nbsp; ' 在立即窗口中显示数据。<br/>Close #1&nbsp;&nbsp;&nbsp; ' 关闭文件。<br/></p>

ohohyo 发表于 2009-5-12 17:34:00

谢谢 高手

ohohyo 发表于 2009-5-12 17:46:00

<p>那能不能只是提取那几个数字呢?&nbsp;&nbsp; 前面的数不需要？</p>

ohohyo 发表于 2009-5-13 09:23:00

<p>能不能只提取前两个数字&nbsp; 不要其他的呢？</p>
页: [1] 2
查看完整版本: 问下各位高手vba读取txt文件的问题