[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
george0811

Rank: 1

帖子
2 
积分
14 
技术
0  
捐助
0  
注册时间
2016-1-5 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2016-1-5 21:30 | 只看该作者

[问题求助] VBS为何无法读取到文本的指定行内容？

本帖最后由 pcl_test 于 2016-1-5 22:00 编辑

问题：我想用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

Rank: 8Rank: 8

帖子
3041 
积分
5333 
技术
685  
捐助
0  
注册时间
2014-10-19 
2楼
发表于 2016-1-5 21:58 | 只看该作者
加个遍历
  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
复制代码

TOP

返回列表