|
qinbuer
高级用户
我思故我在
积分 512
发帖 228
注册 2007-1-21
状态 离线
|
『楼 主』:
[求助]接受命令行参数的VBS发生错误，请指正
写了一个接受命令行参数的VBS，用于读取文本的某一行，比如输入cscript
test.vbs test.txt 1即读取test.txt的第一行字符串,但是不知道哪里出错了，请各
位达人帮忙看下:
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
|
我确实是只菜鸟，而且这里X人太多，所以我不敢装X。谁要再说我装X，我就XXOO他。 |
|
 2007-9-4 01:39 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
 『第
2 楼』:
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
|
|
|
2007-9-4 12:48 |
|
|
qinbuer
高级用户
我思故我在
积分 512
发帖 228
注册 2007-1-21
状态 离线
|
『第
3 楼』:
又是slore兄的热心指点，实在非常感谢。^_^
|
我确实是只菜鸟，而且这里X人太多，所以我不敢装X。谁要再说我装X，我就XXOO他。 |
|
|
2007-9-4 16:47 |
|
|
qinbuer
高级用户
我思故我在
积分 512
发帖 228
注册 2007-1-21
状态 离线
|
『第
4 楼』:
不好意思，有一问题没有指明，就是我的命令行参数不只一个，其数目不能确定，比
如cscript test.vbs test.txt 1 2 3即读取test.txt文本的1、2、3行，而兄的代码只能
接受除了指定文本之外的一个参数。
|
我确实是只菜鸟，而且这里X人太多，所以我不敢装X。谁要再说我装X，我就XXOO他。 |
|
|
2007-9-4 16:52 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
5 楼』:
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
|
|
|
2007-9-4 17:09 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
6 楼』:
行数按大小顺序写参数……虽然可以有随便写的。。。不过还是就这样了不改了
|
|
|
2007-9-4 17:13 |
|
|
qinbuer
高级用户
我思故我在
积分 512
发帖 228
注册 2007-1-21
状态 离线
|
『第
7 楼』:
不胜感激!
|
我确实是只菜鸟，而且这里X人太多，所以我不敢装X。谁要再说我装X，我就XXOO他。 |
|
|
2007-9-5 12:04 |
|
