If WScript.Arguments.Count=0 Then
WScript.Echo "Sorry,参数错误."
WScript.Quit
End If
Dim arr()
Dim objFSO,objFile,WSH
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WSH=WScript.Arguments
Set objFile = objFSO.OpenTextFile(WSH(0), 1)
Do Until objFile.AtEndOfStream
For i=1 To WSH.Count-1
If objFile.Line = WSH(i) Then
theline=objFile.ReadLine
WScript.Echo theline
End If
Next
objFile.SkipLine
Loop
objFile.Close作者: slore 时间: 2007-9-4 12:48 If WScript.Arguments.Count = 0 Then
WScript.Echo "Sorry,参数错误."
WScript.Quit
End If
Dim objFSO,objFile,WSArg
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WSArg = WScript.Arguments
Set objFile = objFSO.OpenTextFile(WSArg(0), 1)
Do Until objFile.AtEndOfStream
If objFile.Line = Int(WSArg(1)) Then
WScript.Echo objFile.ReadLine
Exit Do
End If
objFile.SkipLine
Loop
objFile.Close
Set objFile = Nothing
Set WSArg = Nothing
Set objFSO = Nothing作者: qinbuer 时间: 2007-9-4 16:47 又是slore兄的热心指点,实在非常感谢。^_^作者: qinbuer 时间: 2007-9-4 16:52 不好意思,有一问题没有指明,就是我的命令行参数不只一个,其数目不能确定,比
接受除了指定文本之外的一个参数。作者: slore 时间: 2007-9-4 17:09 If WScript.Arguments.Count < 2 Then
WScript.Echo "Sorry,参数错误."
WScript.Quit
End If
Dim objFSO,objFile,WSArg,NotSkip
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WSArg = WScript.Arguments
Set objFile = objFSO.OpenTextFile(WSArg(0), 1)
Do Until objFile.AtEndOfStream
NotSkip = False
For i = 1 To WSArg.Count - 1
If objFile.Line = Int(WSArg(i)) Then
WScript.Echo objFile.ReadLine
NotSkip = True
Exit For
End If
Next
If NotSkip = False Then objFile.SkipLine
Loop
objFile.Close
Set objFile = Nothing
Set WSArg = Nothing
Set objFSO = Nothing作者: slore 时间: 2007-9-4 17:13 行数按大小顺序写参数……虽然可以有随便写的。。。不过还是就这样了不改了作者: qinbuer 时间: 2007-9-5 12:04 不胜感激!