0

我有几个文本文件，每个文件都有数千行，这是典型行的示例：

PCI\VEN_10EC&DEV_8168&REV_09    Realtek\5x64\FORCED\PCIe_5.810.1218.2012\   Netrtle.inf Realtek 1   12/18/2012,5.810.1218.2012  Realtek PCIe GBE Family Controller

我正在处理的脚本对第一段文本进行字符串搜索：

PCI\VEN_10EC&DEV_8168&REV_09

我的脚本缩小了哪些文件有这个字符串，但我真正需要的是它在同一行返回下一个字符串：

Realtek\5x64\FORCED\PCIe_5.810.1218.2012\

一旦我有了这个字符串，我就可以继续执行脚本的其余部分，它只是从 7zip 中提取 Realtek 文件夹。

我已经看到这已经在 Stack 上用其他语言完成了，但我找不到 VBS 的任何东西。如果我知道如何更好地表达任务，我可能会找到答案。我真的很感激一些关于抓住第二根弦的建议。

作为背景，这是我正在编写的脚本。它会在 C:\scripts\ 中的所有文本文件中查找由 WMI 查询返回的字符串，以查找代码为 28（未安装驱动程序）的设备驱动程序的 CompatibleID：

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objShell = CreateObject("Wscript.Shell") 
Set objNet = CreateObject("WScript.Network") 
Set objWMIService = GetObject("winmgmts:\\" & "." & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery _ 
    ("Select * from Win32_PnPEntity " _ 
        & "WHERE ConfigManagerErrorCode = 28") 
For Each objItem in colItems 
 Dim arrCompatibleIDs
 aarCompatibleIDs = objItem.CompatibleID
 for each objComp in aarCompatibleIDs
 Dim FirstID
 FirstID = objComp
Exit For
Next 
Next

strSearchFor = firstID
objStartFolder = "C:\scripts"

Set objFolder = objFSO.GetFolder(objStartFolder)

Set colFiles = objFolder.Files
For Each objFile in colFiles
    'Wscript.Echo objFile.Name
    strFile = "C:\scripts\" & objFile.Name
    set objFile = objFSO.getFile(strFile)
    if objFile.size > 0 then
        If InStr(objFSO.OpenTextFile(strFile).ReadAll, strSearchFor) > 0 Then
            msgbox(objfile.name)
        Else
            WScript.Sleep (100)
        End If
    End If
Next
4

2 回答 2

0

由于您的输入文件似乎是制表符分隔的，因此您可以执行以下操作：

Set wmi = GetObject("winmgmts://./root/cimv2")
qry = "SELECT * FROM Win32_PnPEntity WHERE ConfigManagerErrorCode = 28"
For Each entity In wmi.ExecQuery(qry)
  For Each cid In entity.CompatibleID
    firstID = cid
    Exit For
  Next
Next

Set fso = CreateObject("Scripting.FileSystemObject")
For Each f In objFSO.GetFolder(objStartFolder).Files
  If f.Size > 0 Then
    For line In Split(f.OpenAsTextStream.ReadAll, vbNewLine)
      arr = Split(line, vbTab)
      If arr(0) = firstID Then MsgBox arr(1)
    Next
  End If
Next

更一般地说，你不应该做这样的事情：

Set colFiles = objFolder.Files
For Each objFile in colFiles
  strFile = "C:\scripts\" & objFile.Name
  set objFile = objFSO.getFile(strFile)
  if objFile.size > 0 then
    If InStr(objFSO.OpenTextFile(strFile).ReadAll, strSearchFor) > 0 Then
...

该Files集合已经包含File对象，因此从对象的属性（顺便说一句，它包括一个Path为您提供完整路径的属性）构建路径名只是为了获得您已经拥有的完全相同的对象是完全没有意义的。另外，文件对象有一个方法OpenAsTextStream，因此您可以直接将它们作为文本文件打开，而无需像objFSO.OpenTextFile(f.Path).

于 2013-05-28T18:40:56.480 回答
0

如果您需要大海捞针寻找固定针和可变线程，您可以使用一些 InStr() 或 RegExp。为了让你开始：

  Dim sHaystack : sHaystack = Join(Array( _
       "hay hay" _
     , "fixed_needle variable_thread hay" _
     , "hay hay" _
  ), vbCrLf)
  Dim sNeedle : sNeedle = "fixed_needle" & " "
  Dim nPosN   : nPosN   = Instr(sHaystack, sNeedle)
  If 0 < nPosN Then
     nPosN = nPosN + Len(sNeedle)
     Dim nPosT : nPosT = Instr(nPosN, sHaystack, " ")
     If 0 < nPosN Then
        WScript.Echo "Instr()", qq(Mid(sHaystack, nPosN, nPosT - nPosN))
     Else
        WScript.Echo "no thread"
     End If
  Else
     WScript.Echo "no needle"
  End If
  Dim reNT : Set reNT = New RegExp
  reNT.Pattern = sNeedle & "(\S+) "
  Dim oMTS : Set oMTS = reNT.Execute(sHayStack)
  If 1 = oMTS.Count Then
     WScript.Echo "RegExp ", qq(oMTS(0).SubMatches(0))
  Else
     WScript.Echo "no match"
  End If

输出：

Instr() "variable_thread"
RegExp  "variable_thread"

如果您将干草堆更改为

  Dim sHaystack : sHaystack = Join(Array( _
       "hay hay" _
     , "fixed_needle no_variable_thread_hay" _
     , "hay hay" _
  ), vbCrLf)

输出：

Instr() "no_variable_thread_hay
hay"
no match

您会发现要使 Instr() 方法防弹，还需要做更多的工作。

于 2013-05-28T08:18:40.060 回答