Board logo

标题: [问题求助] 代码换位则无法正常输出 [打印本页]
作者: securite    时间: 2015-2-8 19:04     标题: 代码换位则无法正常输出

如下是正常的代码
  1. Rem MaximeSkipLineToLookFor3GB.vbs

  2. Dim strSearch

  3. Dim strText

  4. Dim strFile

  5. Dim objFSO

  6. Dim objFile

  7. Const ForReading=1

  8. Const ForWriting=2

  9. Const ForAppending=8

  10. strFile="c:\kugou.ini"

  11. subLook

  12. 

  13. Function funLookUp(strText,strSearch)

  14. Const blnInsensitive=1

  15. If Instr(1,strText,strSearch,blnInsensitive) Then

  16. funLookUp=strSearch & " was found"

  17. Else

  18. funLookUp=strSearch & " was not found"

  19. End If

  20. End Function

  21. 

  22. Sub subLook

  23. Dim strLine

  24. Dim strText

  25. Dim intLine

  26. strSearch="[" 

  27. Set objFSO=CreateObject("Scripting.FileSystemObject")

  28. Set objFile=objFSO.OpenTextFile(strFile,ForReading)

  29. 

  30. Do Until objFile.AtEndOfStream

  31. strText=objFile.ReadLine

  32. strLine=funLookUp(strText,strSearch)

  33. If InStr(strLine,"not") Then 

  34. intLine=objFile.Line-1

  35. WScript.Echo intLine & " not at the beginning of the ini"

  36. Else

  37. intLine=objFile.Line-1

  38. Wscript.Echo intLine & " is the beginning of the ini"

  39. objFile.Close

  40. Exit Do

  41. End If

  42. Loop

  43. WScript.Echo "Opening the file a second time..."

  44. Set objFile=objFSO.OpenTextFile(strFile,ForReading)

  45. Do Until objFile.AtEndOfStream

  46. If objFile.Line < intLine Then

  47. objFile.SkipLine

  48. ElseIf objFile.Line=intLine Then

  49. WScript.Echo "The beginning of the ini file is: " 

  50. WScript.Echo objFile.ReadLine

  51. Else

  52. WScript.Echo "The script is over"

  53. objFile.Close

  54. WScript.Quit

  55. End If

  56. Loop

  57. End Sub
复制代码
正确的输出是：
Microsoft (R) Windows Script Host Version 5.8
版权所有(C) Microsoft Corporation 1996-2001。保留所有权利。

1 not at the beginning of the ini
2 not at the beginning of the ini
3 not at the beginning of the ini
4 not at the beginning of the ini
5 not at the beginning of the ini
6 not at the beginning of the ini
7 is the beginning of the ini
Opening the file a second time...
The beginning of the ini file is:
[ActiveTab]
The script is over

但是换一下，就是把sub函数中的第二个until循环放到外面，无法正常输出
  1. Rem MaximeSkipLineToLookFor3GB.vbs

  2. Dim strSearch

  3. Dim strText

  4. Dim strFile

  5. Dim objFSO

  6. Dim objFile

  7. Const ForReading=1

  8. Const ForWriting=2

  9. Const ForAppending=8

  10. strFile="c:\kugou.ini"

  11. subLook

  12. Set objFSO=CreateObject("Scripting.FileSystemObject")

  13. Set objFile=objFSO.OpenTextFile(strFile,ForReading)

  14. WScript.Echo "Opening the file a second time..."

  15. Do Until objFile.AtEndOfStream

  16. If objFile.Line < intLine Then

  17. objFile.SkipLine

  18. ElseIf objFile.Line=intLine Then

  19. WScript.Echo "The beginning of the ini file is: " 

  20. WScript.Echo objFile.ReadLine

  21. Else

  22. WScript.Echo "The script is over"

  23. objFile.Close

  24. WScript.Quit

  25. End If

  26. Loop

  27. 

  28. Function funLookUp(strText,strSearch)

  29. Const blnInsensitive=1

  30. If Instr(1,strText,strSearch,blnInsensitive) Then

  31. funLookUp=strSearch & " was found"

  32. Else

  33. funLookUp=strSearch & " was not found"

  34. End If

  35. End Function

  36. 

  37. Sub subLook

  38. Dim strLine

  39. Dim strText

  40. Dim intLine

  41. strSearch="[" 

  42. Set objFSO=CreateObject("Scripting.FileSystemObject")

  43. Set objFile=objFSO.OpenTextFile(strFile,ForReading)

  44. 

  45. Do Until objFile.AtEndOfStream

  46. strText=objFile.ReadLine

  47. strLine=funLookUp(strText,strSearch)

  48. If InStr(strLine,"not") Then 

  49. intLine=objFile.Line-1

  50. WScript.Echo intLine & " not at the beginning of the ini"

  51. Else

  52. intLine=objFile.Line-1

  53. Wscript.Echo intLine & " is the beginning of the ini"

  54. objFile.Close

  55. Exit Do

  56. End If

  57. Loop

  58. 

  59. End Sub
复制代码
错误的输出
Microsoft (R) Windows Script Host Version 5.8
版权所有(C) Microsoft Corporation 1996-2001。保留所有权利。


1 not at the beginning of the ini
2 not at the beginning of the ini
3 not at the beginning of the ini
4 not at the beginning of the ini
5 not at the beginning of the ini
6 not at the beginning of the ini
7 is the beginning of the ini
Opening the file a second time...
The script is over

其中kugou.ini文件内容如下
Activate
Activate=1
DeepActivate=1
NewActivate=1
PlayCnt=12
[ActiveTab]
TabName=musicclub
[Collect]
NetConnectivity=1
[Crash]
LastCrashExe=
[DBCheck]
CommitError=0



欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2