Question

我正在尝试创建一个VBScript来查找和替换位于两个字符串之间的某个字符串。以下是将在其上执行脚本的文件示例：

%
N1 ( POSTED FILE NAME - WORKNC POST )
N2 ( INPUT FILE NAME - _6033_Cavity__01.TBA)
N3 (DATE/TIME: Thu Mar 15 06:36:08 2018)
N4 G0 G40 G80 G90 G98
N5 G17
N6 G57H901
N7 G173W0.0
N8 B0.000
N9 (Tapper 0.250000)
N10 T21
N11 M06
N12 S100
N13 M843
N14 G173 W0.0
N15 (- )
N16 ( Tapping )
N17 G0 G90 X-0.0001 Y8.8135
N18 G43 Z10.0632 H21
N19 G01 F500. X-0.0001 Y8.8135
N20 G01 Z9.7163 F500.
N21 G98 G84 X-0.0001 Y8.8135 Z6.0376 R7.6376 E10.
N22 G80 G01 F500.
N23 X-0.0001 Y8.8135 Z9.7163
N24 X-0.0001 Y8.8135 Z9.7163
N25
N26 M845
N27 G91 G28 Z0
N28 G90
N29 G57H901
N30 G173W0.0
N31 B0.000
N32 (Drill 0.005000)
N33 T19
N34 M06
N35 S5000
N36 M3
N37 G173 W0.0
N38 (- )
N39 ( Contour Chamfer )
N40 G0 G90 X-0.0001 Y8.8135
N41 G43 Z9.7163 H19
N42 Z7.6375
N43 G01 Z9.8376 F500.
N44 X-0.0001 Y8.8135 Z10.0632
N45
N46 M05
N47 G91 G28 Z0
N48 G90
N49 G57H901
N50 G173W0.0
N51 B0.000
N52 (Tapper 0.750000)
N53 T21
N54 M06
N55 S100
N56 M843
N57 G173 W0.0
N58 (- )
N59 ( Tapping )
N60 G0 G90 X-0.0001 Y8.8135
N61 G43 Z10.0632 H21
N62 G01 F500. X-0.0001 Y8.8135
N63 G01 Z9.7163 F500.
N64 G98 G84 X-0.0001 Y8.8135 Z6.0376 R7.6376 E10.
N65 G98 G84 X-0.0001 Y10.8135 Z6.0376 R7.6376 E10.
N66 G80 G01 F500.
N67 X-0.0001 Y8.8135 Z9.7163
N68 X-0.0001 Y8.8135 Z9.7163
N69
N70 M845
N71 G91 G28 Z0
N72 G90
N73 M30
%

所以在这个特定的代码中有两个Tapping操作。我正在尝试创建一个在Tapper 0.250000和M845之间查找的脚本，并将E10.的所有实例替换为一个基于Tapper 0.250000中的数字的变量。< / p>

例如，假设有Tapper 0.250000和后面的某些X行M845，这两者之间出现的E10.需要替换为E0.250000。如果还有另一个点击操作，例如Tapper 0.750000，则需要将{Tapner和M845之间的E10.替换为E0.787。

到目前为止，这是我的VBScript：

strFileName = Wscript.Arguments(0)
strOutputFile = Wscript.Arguments(0)

Set fso = CreateObject("Scripting.FileSystemObject")

'Variable patterns to search for. There may be 9 of these total
strPattern25 = "(Tapper 0.250000)(.|\s)*(M845)"
strPattern375 = "(Tapper 0.375000)(.|\s)*(M845)"
strPattern5 = "(Tapper 0.500000)(.|\s)*(M845)"
strPattern75 = "(Tapper 0.750000)(.|\s)*(M845)"

strFindString = "E10." 'String to find and then replace each instance of between pattern

'Variables of the replace string
strReplaceString25 = "E0.05"
strReplaceString375 = "E0.0625"
strReplaceString5 = "E0.0769"
strReplaceString75 = "E0.787"

strTestString = fso.OpenTextFile(strFileName, 1).ReadAll 'open and read the file

'Replacing script. Currently replaces all text between the strPattern. Need to create another function in order to only replace the E10.
strNewText25 = fReplaceText(strPattern25, strTestString, strReplaceString25)
strNewText375 = fReplaceText(strPattern375, strTestString, strReplaceString375)
strNewText5 = fReplaceText(strPattern5, strTestString, strReplaceString5)
strNewText75 = fReplaceText(strPattern75, strTestString, strReplaceString75)

fso.OpenTextFile(strOutputFile, 2, True).WriteLine strNewText

MsgBox "Done!"

'Function
Function fReplaceText(sPattern, sStr, sReplStr)
    Dim regEx, oMatch, colMatches, temp
    Set regEx = New RegExp     ' Create a regular expression.
    regEx.Pattern = sPattern   ' Set pattern
    regEx.IgnoreCase = True    ' Set case insensitivity.
    regEx.Global = True        ' Set global applicability

    Set colMatches = regEx.Execute(sStr)   ' Execute search

    If colMatches.Count = 0 Then
        temp = ""
    Else
        For Each oMatch In colMatches
            temp = regEx.Replace(sStr, oMatch.SubMatches(0) & vbCrlf & sReplStr & vbCrlf & oMatch.SubMatches(2))
        Next
    End If
    fReplaceText = temp
End Function

Answer 1

我使用以下方法来获得所需的结果：

阅读文件的所有内容
使用正则表达式抓取所有以Tapper <some digits>开头并以M845结尾的子字符串
在每个子字符串中，将E10的所有实例替换为E<some digits>
将修改后的子字符串写回文件

从此代码中获取帮助：

Option Explicit
Dim strFilePath, objFso, objFile, strFileContents, objReg, objMatches, i, strTemp, strNew
strFilePath  = "C:\Users\gurmansingh\Desktop\Test\inout.txt"            'Give the appropriate file path here or use the arguments, like you are using now
Set objFso = CreateObject("scripting.filesystemobject")
Set objFile = objFso.OpenTextFile(strFilePath,1,False)
strFileContents = objFile.ReadAll                                       'Reading all the contents of the File. Note that this method of reading will prove to be a bit inefficient when the file size is large
objFile.Close

Set objReg = New RegExp
objReg.Global = True
objReg.Pattern = "Tapper\s*(\d*(?:\.\d+)?)[\s\S]*?M845"                 'Pattern Explained later
Set objMatches = objReg.Execute(strFileContents)                        'Finds all the substrings in the file that matches the above Regex Pattern
For i=0 To objMatches.Count-1
    strTemp = objMatches.Item(i).Submatches.Item(0)                     'Grabbing the digits that come after the text 'Tapper '
    strNew = Replace(objMatches.Item(i),"E10","E"&strTemp)              'Replacing all the E10's in each match
    strFileContents = Replace(strFileContents,objMatches.Item(i),strNew)
Next
Set objFile = objFso.OpenTextFile(strFilePath,2,False)
objFile.Write strFileContents
objFile.Close
Set objFile = Nothing
Set objFso = Nothing

正则表达式说明：

Tapper\s*(\d*(?:\.\d+)?)[\s\S]*?M845

Tapper\s* - 匹配文字Tapper，后跟0 + white-spaces
(\d*(?:\.\d+)?) - 匹配并捕获第1组中的一系列数字。无论在此组中捕获什么，稍后将用于替换E10
[\s\S]*? - 尽可能少地匹配任何字符的出现次数
M845 - 匹配M845

<强> Click here for Regex Demo

Answer 2

感谢@Gurman的洞察力！这是我最终做的事情：

Option Explicit
Dim strFilePath, objFso, objFile, strFileContents, objReg, objMatches, i, strTemp, strNew

strFilePath  = Wscript.Arguments(0)


Set objFso = CreateObject("scripting.filesystemobject")
Set objFile = objFso.OpenTextFile(strFilePath,1,False)
strFileContents = objFile.ReadAll  'Reading all the contents of the File
objFile.Close

Set objReg = New RegExp
objReg.Global = True
objReg.Pattern = "Tapper\s*(\d*(?:\.\d+)?)[\s\S]*?M845" 'Pattern Explained later
Set objMatches = objReg.Execute(strFileContents)        'Finds all the substrings in the file that matches the above Regex Pattern




For v=0 To objMatches.Count-1
    strTemp = objMatches.Item(v).Submatches.Item(0) 'Grabbing the digits that come after the text 'Tapper '

        if strTemp = "0.250000" then '1/4-20
            strNew = Replace(objMatches.Item(v),"E10.","F0.05") 'New Feed Rate
            strFileContents = Replace(strFileContents,objMatches.Item(v),strNew)

        elseif strTemp = "0.375000" then '3/8-16
            strNew = Replace(objMatches.Item(v),"E10.","F0.0625") 'New Feed Rate
            strFileContents = Replace(strFileContents,objMatches.Item(v),strNew)

        elseif strTemp = "0.500000" then '1/2-13
            strNew = Replace(objMatches.Item(v),"E10.","F0.0769") 'New Feed Rate
            strFileContents = Replace(strFileContents,objMatches.Item(v),strNew)

        elseif strTemp = "0.312500" then '5/16-18
            strNew = Replace(objMatches.Item(v),"E10.","F0.0556") 'New Feed Rate
            strFileContents = Replace(strFileContents,objMatches.Item(v),strNew)

        elseif strTemp = "0.472000" then 'M12X1.75
            strNew = Replace(objMatches.Item(v),"E10.","F0.0689") 'New Feed Rate
            strFileContents = Replace(strFileContents,objMatches.Item(v),strNew)

        elseif strTemp = "0.630000" then 'M16X2.00
            strNew = Replace(objMatches.Item(v),"E10.","F0.0787") 'New Feed Rate
            strFileContents = Replace(strFileContents,objMatches.Item(v),strNew)

        elseif strTemp = "0.750000" then '3/4-10
            strNew = Replace(objMatches.Item(v),"E10.","F0.1") 'New Feed Rate
            strFileContents = Replace(strFileContents,objMatches.Item(v),strNew)

        elseif strTemp = "0.625000" then '5/8-11
            strNew = Replace(objMatches.Item(v),"E10.","F0.0909") 'New Feed Rate
            strFileContents = Replace(strFileContents,objMatches.Item(v),strNew)

        elseif strTemp = "1.000000" then '1-8
            strNew = Replace(objMatches.Item(v),"E10.","F0.125") 'New Feed Rate
            strFileContents = Replace(strFileContents,objMatches.Item(v),strNew)

        elseif strTemp = "0.960000" then 'M24X3.0
            strNew = Replace(objMatches.Item(v),"E10.","F0.118") 'New Feed Rate
            strFileContents = Replace(strFileContents,objMatches.Item(v),strNew)

        End If
Next
Set objFile = objFso.OpenTextFile(strFilePath,2,False)
objFile.Write strFileContents
objFile.Close
Set objFile = Nothing
Set objFso = Nothing

我刚刚完成并创建了一系列if语句，这些语句确定了将Feed费率更改为的内容。再次感谢@Gurman！

在两个字符串

2 个答案: