替换两个字符串之间的某个字符串的实例

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 中的数字的变量。

例如，假设有 Tapper 0.250000 和后面的一些 X 行 M845，出现在这两者之间的 E10. 需要替换为 E0.250000.如果还有另一个攻丝操作，例如 Tapper 0.750000，则需要将攻丝器和 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]*? - 匹配出现次数超过 0 次的任何字符，尽可能少
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 语句来确定将进给率更改为什么。再次感谢@Gurman！

替换两个字符串之间的某个字符串的实例

Replace instances of certain string in between two strings

vbscript

g-code