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

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

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

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

同样跪求   跪求

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

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

ohohyo 发表于 2009-5-12 12:23:00

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

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

怎么有错误呢   大哥？

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

说 run-time error ‘62’
input past end of file

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

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

谢谢 高手

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

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

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

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