3

我正在尝试创建一个 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.'s 需要替换为E0.250000. 如果还有其他攻丝操作，例如在 Tapper 和 M845 之间Tapper 0.750000的E10.'s 需要替换为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
4

2 回答 2

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+ 个空格的文本
  • (\d*(?:\.\d+)?)- 匹配并捕获第 1 组中的数字序列。在该组中捕获的任何内容，稍后将用于替换E10
  • [\s\S]*?- 匹配 0+ 次出现的任何字符，尽可能少
  • M845- 火柴M845

单击此处查看正则表达式演示

于 2018-03-17T06:25:05.603 回答
1

感谢@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！

于 2018-03-19T11:56:24.763 回答