Question

VBS脚本读取如下TXT文本中数据存入变量

RT 读取里面的数字 我现在能写入，读不上来
material:1
pressure:2mbar
temperature:3°C
dansui:4Kg
suijiao:5mm shaonian:6ss shaonian:7ss shaonian:8ss

Answer 1

Const ForReading = 1
filespec = "D:\test.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set myfile = fso.OpenTextFile(filespec, ForReading)
Do Until myfile.AtEndOfStream
    strLine = myfile.ReadLine
    MsgBox strLine
    # 要取出数字，再对 strLine 进行处理。你期望的输出格式是怎样的？
Loop
myfile.Close

追问

很遗憾 ，不对。如题，这个是winc flexible 用的VB脚本，读取指定位置的数据出来保存在指定变量中

追答

我本地用 D:\test.txt 测试，没有问题啊。你说的不对是什么错误，请给出错误信息？
winc flexible 用的VB脚本，难道不是标准的VBS吗？

上面的代码只是读取出了行信息，还没有处理得到数字，但不应该有错。

追问

winc flexible 语法有限制或者你说下没有分隔符怎么定位 有分隔符的我是通过“SmartTags("data_1") = HiField(0,0)"这种坐标来的

追答

SmartTag， HiField，这些都不是标准VBS里有的。
不了解winc flexible的语法。但我想，应该也有根据长度和关键字位置来做字符串截取的方法。

追问

提供下长度和关键字的截取判定做法吧 我试试，不行就让这个命题人道毁灭吧……

追答

InStr 函数得到关键字在字符串中的位置，若返回0表示没有找到。

再通过Mid函数根据起始位置(第二个参数)和长度（第三个参数）得到相应的数字。

比如这行：dansui:4Kg

只要找到关键字Kg在字符串中的位置，则取其前面一个字符就得到数字4。VBS代码示例如下：

line = "dansui:4Kg"
startPos = InStr(line, ":") '得到:的位置
endPos = InStr(line, "Kg") '得到Kg的位置
dansui = Mid(line, startPos + 1, endPos - 1 - startPos)
MsgBox dansui