0

我正在编写一个实用程序，用于将网络上所有设备的所有系统信息收集到 XML 文档中，其中一个值是某个软件版本号。不幸的是，版本号仅存储在每台机器上的单个文本文件中（c:\master.txt），更有趣的是，每个文本文件的格式都不同，具体取决于所使用的图像。

可以说

Product Number: 11dsSt2 BRANDONII,STNS6.0.2.200

下一个

Ver: 22335TS BOX2 S6.1.3.011,STN

等等。

我所做的是创建一个 VBS 来查找与版本模式匹配的数字模式，即

[A-Z]#.#.#.###

这可行，但是我只想输出该模式，而不是整行。这是我的代码。有什么建议么？

Const ForReading = 1
Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Pattern = "[A-Z]{1}[0-9]{1}.[0-9]{1}.[0-9]{1}.[0-9]{3}"
objregex.global = true
objregex.ignorecase = true
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\master.txt", ForReading)
Do Until objFile.AtEndOfStream
strSearchString = objFile.ReadLine
set colMatches = objRegEx.Execute(strSearchString)
If colMatches.Count > 0 Then
Addmatch
End If

Loop
objFile.Close
Sub Addmatch 'Creates a text file with the part number
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
set objFile1 = objFSO.OpenTextFile("C:\test.txt", ForAppending, True)
objFile1.Writeline strSearchString 
objFile1.Close

end sub
4

2 回答 2

1

使用 first/one and only match 获取值，并将其传递给 Addmatch 的略微修改版本：

If colMatches.Count > 0 Then
   Addmatch colMatches(0).Value
End If

...

Sub Addmatch(sWhatToWriteLn) ' some truthful comment
  Const ForAppending = 8
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFile1 = objFSO.OpenTextFile("C:\test.txt", ForAppending, True)
  objFile1.Writeline sWhatToWriteLn

...

于 2013-04-18T13:05:32.033 回答
1

您正在存储从文件中读取的整行（在 中strSearchString），而不仅仅是匹配的文本。改用这样的东西（未经测试！）：

if ColMatches.Count > 0 then
  AddMatch(ColMatches(0))      ' Just grab the matched text and pass to AddMatch
End If

Sub AddMatch(strMatchedText)   ' Change to accept parameter of text to write out
  ' Other code
  objFile1.Writeline strMatchedText
  objFile1.Close
End Sub
于 2013-04-18T13:02:20.033 回答