VBS为何无法读取到文本的指定行内容？

george0811

问题：我想用VB编个SecureCRT 5.1脚本，目的是在弹窗中输入设备号就能自动输入相对应的MAC地址。但是我自己编的脚本只在输入设备号为1时，自动输入相对应MAC：031001。但输入2或者3都直接报错 "错误的设备号，请核对" 。求大神解答
脚本如下：

1. # $language = "VBScript"
   
2. # $interface = "1.0"
   
3. 
   
4. Sub Main
   
5. On Error Resume Next
   
6. Const ForReading = 1, ForWriting = 2, ForAppending = 8
   
7. Dim fso,MAC1,line,params
   
8. Dim DeviceNo
   
9. Set fso = CreateObject("Scripting.FileSystemObject")
   
10. Set MAC1 = fso.OpenTextFile("c:\2.ini",Forreading, False)
    
11. crt.Screen.Synchronous = True
    
12.      
    
13. line = MAC1.ReadLine
    
14. params = Split (line)
    
15. 
    
16. crt.Screen.WaitForString "或批处理文件。"
    
17. DeviceNo = inputbox("请输入设备号","设备号输入对话框")
    
18. 
    
19. If DeviceNo = params(0) Then
    
20. 
    
21. crt.Screen.Send params(1) & vbcr
    
22. Else
    
23.    MsgBox "错误的设备号，请核对"
    
24. 
    
25.                End If
    
26.     crt.Screen.Synchronous = False   
    
27. End Sub

复制代码

2.ini文件中格式如下：
1 031001
2 031002
3 031003

pcl_test

加个遍历

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

复制代码