pcl_test

加个遍历

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("C:\2.ini", 1)
n = inputbox("请输入设备号","设备号输入对话框") 
Do While f.AtEndOfStream <> True
    t = Split(f.ReadLine)
    If n=t(0) Then msgbox t(1)
Loop
复制代码