我有個(gè)vbs的問(wèn)題。
有一個(gè)文本。
1.txt文件內(nèi)容如下
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的行，同時(shí)分析他的下一行是否有關(guān)鍵字2，如果有就執(zhí)行A，沒(méi)有就執(zhí)行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 相關(guān)問(wèn)題
