vbs同时读取二行并分析

来源：百度文库 编辑：神马文学网 时间：2024/04/29 19:49:38

vbs同时读取二行并分析
 

我有个vbs的问题。
有一个文本。
1.txt文件内容如下
interface Ip-Trunk1
description TO-[RT01-NE80E]
ip address 100.1.50.26 255.255.255.252   
isis enable 1
isis circuit-level level-2
isis cost 498 level-2
isis authentication-mode md5 ]4P*V79$MK":2)Z^63Xa1!!!
mpls
mpls ldp
trust upstream default
#
interface Ip-Trunk2
description TO-[RT02-NE80E]
ip address 100.2.74.1 255.255.255.252
isis enable 1
interface Ip-Trunk2
description TO-[RT02-NE80E]
ip address 100.2.74.1 255.255.255.252
ospf xxx
....文本比较大
我想这样，读有ip address的行，同时分析他的下一行是否有关键字2，如果有就执行A，没有就执行B。我要如何做呀СС
回答者：Microogle - 2010-01-29 13:00:36
VBScript code
On Error Resume NextsFile = "C:\Users\Administrator\Desktop\a.txt"sComp = LCase("ip address")     '    nLen = Len(sComp)If nLen < 1 ThenWScript.Echo "!"WScript.QuitEnd IfSet oFSO = CreateObject("Scripting.FileSystemObject")Set oFile = oFSO.OpenTextFile(sFile)If Err ThenWScript.Echo "!"WScript.QuitEnd IfDo Until oFile.AtEndOfLinesRead = oFile.ReadLine'instrж    If LCase(Left(sRead,nLen)) = sComp ThenMySub oFile.ReadLine,oFile.Line - 1End IfLoopSub MySub(str,line)If Not InStr(str,"2") = 0 ThenWScript.Echo "淡!" & vbCrLf & "" & line & ""ElseWScript.Echo "!" & vbCrLf & "" & line & ""End IfEnd Sub 
相关问题
        
  • vbs同时读取二行并分析    
  • vbs文件取结果上下行如何取    
  • vbs如何读取指定目录下的所有文本    
  • vbs文件搜索及过虑问题    
  • VBS读取注册表的问题
vbs同时读取二行并分析 vbs之二：自制英语读取器！ VBS参数 51-100句英语同时收录该文并评论 稀缺资源板块分析并深度分析 签订购房合同时注意"二书" exe转vbs的vbs代码 手机扩展卡不能正常读取的故障分析及处理 手机扩展卡不能正常读取的故障分析及处理 photoshop中嵌入水印和读取水印_新疆二域设计网络公司 用VB快速读取TextBox第N行的数据 VBS教程<上><转> VBS教程<上><转> vbs控制网页访问 VBS教程：方法-Skip VBS脚本宝典教程 vbs局域网聊天.txt VBS公式编制入门 VBS教程<上> 认识圣经并如何读经(二) 认识圣经并如何读经(二) 一步生成缩略图的同时并可调用大图详解 - 帝国大学 东南二海同时摆舰：中国意欲何为？ 东南二海同时摆舰：中国意欲何为？