VBS脚本开发需求：处理G-Code文件替换指定位置的M3指令

Got it, let's solve this G-Code modification problem with VBScript. Here's a complete, robust solution that handles multiple "Tapping" segments and safely modifies your files while preserving original data:

' Check if a G-Code file was dropped onto the script
If WScript.Arguments.Count = 0 Then
    MsgBox "Please drag a G-Code file onto this script to process it.", vbExclamation
    WScript.Quit
End If

Dim filePath: filePath = WScript.Arguments(0)
Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")

' Create a backup of the original file (critical for avoiding data loss!)
Dim backupPath: backupPath = filePath & ".bak"
If fso.FileExists(backupPath) Then fso.DeleteFile backupPath
fso.CopyFile filePath, backupPath

' Read all lines into an array for easy line-specific modifications
Dim file: Set file = fso.OpenTextFile(filePath, 1) ' 1 = Read-only mode
Dim lines: lines = Split(file.ReadAll, vbNewLine)
file.Close

Dim lastM3Index: lastM3Index = -1 ' Track the index of the most recent M3 command
Dim currentLineIndex

For currentLineIndex = 0 To UBound(lines)
    Dim currentLine: currentLine = Trim(lines(currentLineIndex))
    
    ' Update the last M3 index if we find an M3 command (handles M3 with params like M3 S1000)
    If InStr(1, currentLine, "M3", vbTextCompare) = 1 Then
        lastM3Index = currentLineIndex
    End If
    
    ' Check if we've hit a "Tapping" line
    If InStr(1, currentLine, "Tapping", vbTextCompare) > 0 Then
        ' Replace the last found M3 with M845 if it exists
        If lastM3Index <> -1 Then
            ' Replace only the first occurrence of M3 in the line (preserves spindle speed, etc.)
            lines(lastM3Index) = Replace(lines(lastM3Index), "M3", "M845", 1, 1, vbTextCompare)
            ' Reset the tracker to look for M3s for the next Tapping segment
            lastM3Index = -1
        Else
            ' Optional warning if no M3 was found before this Tapping line
            WScript.Echo "Warning: No M3 command found before 'Tapping' at line " & (currentLineIndex + 1)
        End If
    End If
Next

' Write the modified lines back to the original file
Dim outFile: Set outFile = fso.OpenTextFile(filePath, 2) ' 2 = Overwrite mode
outFile.Write Join(lines, vbNewLine)
outFile.Close

MsgBox "Processing complete! Original file backed up to: " & vbCrLf & backupPath, vbInformation
Set fso = Nothing

Key Features: #

• Drop-and-Use: Just drag your G-Code file onto the script to run it.
• Safe Modification: Automatically creates a backup of your original file (with .bak extension) so you can revert if needed.
• Multiple Segments: Handles multiple "Tapping" sections in one file by resetting the M3 tracker after each replacement.
• Flexible M3 Detection: Works with M3 commands that include parameters (like M3 S1500) by checking if the line starts with M3.
• Case Insensitive: Processes commands like m3 or tapping without issues.

Notes: #

• If a "Tapping" line has no preceding M3, the script will show a warning but continue processing the rest of the file.
• If your G-Code has M3 embedded in other commands (uncommon for standard G-Code), you can adjust the M3 check to use a regex for stricter matching (e.g., Set regex = New RegExp: regex.Pattern = "\bM3\b": If regex.Test(currentLine) Then...).

内容的提问来源于stack exchange，提问作者DustinH