使用VBS正则表达式查找ANSI 837文件前置行日期并实现字段替换

Hey there, let's tackle this ANSI 837 modification task efficiently—no tedious line-by-line loops required. The core idea is to read the entire file into memory at once, use regex to grab the earliest DTP*434 date, check if it’s from 2018, then batch replace the target SV2 segments in one go.

Step-by-Step Breakdown #

• Read the whole file in one shot: Skipping line-by-line loops saves a ton of overhead, especially for larger 837 files common in healthcare EDI.
• Regex capture the first DTP*434 date: We’ll target the earliest occurrence of the DTP*434 segment and extract its YYYYMMDD date value.
• Validate the 2018 year check: Pull the 4-digit year from the captured date string and compare it to "2018".
• Batch replace SV2 segments: If the date check passes, use another regex to replace every instance of SV2*ABCDE with SV2*EFGHI.

Full VBScript Code #

Option Explicit

' Configure your file paths here
Dim inputFilePath, outputFilePath
inputFilePath = "C:\your\input\837_file.edi"
outputFilePath = "C:\your\output\modified_837_file.edi"

' Read entire file content into memory (no line-by-line loop)
Dim fso, file, fileContent
Set fso = CreateObject("Scripting.FileSystemObject")
' Open with system default encoding to match ANSI formatting
Set file = fso.OpenTextFile(inputFilePath, 1, False, -2)
fileContent = file.ReadAll
file.Close

' Regex to find the first DTP*434 segment and capture its date
Dim dateRegex, dateMatch, targetDate
Set dateRegex = New RegExp
' Pattern matches DTP*434*XX*YYYYMMDD (XX = qualifier, date is captured)
dateRegex.Pattern = "DTP\*434\*\d{2}\*(\d{8})"
dateRegex.Global = False ' Only grab the earliest match
dateRegex.IgnoreCase = False

Set dateMatch = dateRegex.Execute(fileContent)
If dateMatch.Count > 0 Then
    targetDate = dateMatch(0).SubMatches(0)
    ' Extract 4-digit year from YYYYMMDD format
    Dim fileYear
    fileYear = Left(targetDate, 4)
    
    ' Check if the date belongs to 2018
    If fileYear = "2018" Then
        ' Regex to replace all SV2*ABCDE instances
        Dim replaceRegex
        Set replaceRegex = New RegExp
        replaceRegex.Pattern = "SV2\*ABCDE"
        replaceRegex.Global = True ' Replace every occurrence
        replaceRegex.IgnoreCase = False
        fileContent = replaceRegex.Replace(fileContent, "SV2*EFGHI")
        
        ' Write modified content back to ANSI-formatted file
        Set file = fso.CreateTextFile(outputFilePath, True, False)
        file.Write fileContent
        file.Close
        WScript.Echo "Success! All SV2*ABCDE segments replaced with SV2*EFGHI."
    Else
        WScript.Echo "The DTP*434 date is not from 2018—no changes made."
    End If
Else
    WScript.Echo "No DTP*434 segment found in the file. Cannot proceed with modifications."
End If

' Clean up objects to free memory
Set dateRegex = Nothing
Set replaceRegex = Nothing
Set file = Nothing
Set fso = Nothing

Key Notes #

• Encoding Safety: The code uses system default encoding (-2 for reading, False for writing) to ensure compatibility with ANSI 837 files, preventing character garbling.
• Regex Precision: Adjust the DTP pattern if your 837 uses a non-numeric qualifier (replace \d{2} with the appropriate regex for your segment format).
• Performance: Reading the entire file into memory is drastically faster than line-by-line processing, especially for large EDI files.

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