VB.NET实现字符串特定位置插入vbLf换行符的方法求助

原字符串示例 #

{1:F01ABCDIDJAXXXX0001212544}{2:O9001038231020QWERIDJRAXXX00011102422310201038N}{3:{113:0070}}{4::20:94493831555385/900:21:0799102034308001:25:520008000990:32A:231020USD0,:72:/ESETDATE/2310201038+0000/OID/231020ABCDDJAXXXX0001019040/AMNT/10000000000001,12-}

实现代码 #

以下代码完全按照你的思路实现，修正了正则表达式的匹配范围问题，确保换行插入准确：

Imports System.Text.RegularExpressions
Imports System.IO

Module SwiftMessageFormatter
    Sub Main()
        ' 读取无换行的原字符串（也可从文件读取）
        Dim rawSwiftMsg As String = "{1:F01ABCDIDJAXXXX0001212544}{2:O9001038231020QWERIDJRAXXX00011102422310201038N}{3:{113:0070}}{4::20:94493831555385/900:21:0799102034308001:25:520008000990:32A:231020USD0,:72:/ESETDATE/2310201038+0000/OID/231020ABCDDJAXXXX0001019040/AMNT/10000000000001,12-}"
        
        ' 步骤1：在{4:后插入换行
        Dim formattedMsg As String = rawSwiftMsg.Replace("{4:", "{4:" & vbLf)
        
        ' 步骤2：给每个非行首的:XX:字段标签前加换行
        formattedMsg = Regex.Replace(formattedMsg, "(?<!^):[\dA-Z]+:", vbLf & "$0")
        
        ' 步骤3：给每个非行首的/XXX/指令标签前加换行
        formattedMsg = Regex.Replace(formattedMsg, "(?<!^)/[\w]+/", vbLf & "$0")
        
        ' 输出到控制台
        Console.WriteLine(formattedMsg)
        
        ' 写入到文件（可选）
        File.WriteAllText("格式化后的SWIFT报文.txt", formattedMsg)
    End Sub
End Module

代码说明 #

1. 步骤1：直接用String.Replace完成简单替换，拆分{4:块的内容。
2. 步骤2：正则(?<!^):[\dA-Z]+:中，(?<!^)是负向断言，确保匹配的字段标签（如:20:、:21:）不在行首，避免给{4:后的第一个标签重复加换行；[\dA-Z]+匹配SWIFT标准的字段标签格式。
3. 步骤3：正则(?<!^)/[\w]+/同样用负向断言，避免给行首的指令标签加换行，确保每个/XXX/标签单独成行。

内容的提问来源于stack exchange，提问作者Laila Firdaus Zakiyah