如何仅删除引号内的逗号？VB代码优化需求

针对你的需求——只替换文本中双引号包裹区域内的逗号，保留引号外的逗号，这里提供两种可行的实现方式：

方法一：使用正则表达式（简洁高效） #

利用正则匹配双引号内的内容，再对匹配到的部分单独替换逗号：

Imports System.Text.RegularExpressions

Const targetChar As String = ","
Const replacement As String = "" ' 根据需求替换为空白，若要替换为空格则改为" "

Dim line As String = Nothing
Using r As New StreamReader("s.txt")
    Using w As New StreamWriter("d.txt")
        line = r.ReadLine()
        While Not line Is Nothing
            ' 匹配双引号包裹的内容，替换其中的目标字符
            Dim processedLine As String = Regex.Replace(line, """([^""]*)""", 
                Function(match)
                    ' 提取引号内的内容，替换逗号后重新包裹双引号
                    Return """" & match.Groups(1).Value.Replace(targetChar, replacement) & """"
                End Function)
            w.WriteLine(processedLine)
            line = r.ReadLine()
        End While
    End Using
End Using

说明 #

• 正则表达式"([^"]*)"会匹配所有被双引号包裹的内容，([^"]*)捕获引号内的文本（不包含双引号）
• 通过MatchEvaluator委托，对每个匹配结果单独处理：替换引号内的逗号，再重新拼接双引号

方法二：逐字符遍历（直观易扩展） #

通过遍历文本的每个字符，标记是否处于双引号范围内，仅在引号内时替换逗号：

Const targetChar As String = ","
Const replacement As String = ""

Dim line As String = Nothing
Using r As New StreamReader("s.txt")
    Using w As New StreamWriter("d.txt")
        line = r.ReadLine()
        While Not line Is Nothing
            Dim inQuotes As Boolean = False
            Dim sb As New StringBuilder()
            For Each c As Char In line
                ' 遇到双引号时切换引号内状态
                If c = """"c Then
                    inQuotes = Not inQuotes
                    sb.Append(c)
                ' 仅在引号内且字符为目标逗号时替换
                ElseIf inQuotes AndAlso c = targetChar(0) Then
                    sb.Append(replacement)
                Else
                    sb.Append(c)
                End If
            Next
            w.WriteLine(sb.ToString())
            line = r.ReadLine()
        End While
    End Using
End Using

说明 #

• 用inQuotes布尔变量标记当前是否处于双引号内
• 遍历每个字符时，根据状态决定是否替换逗号，兼容性更强，适合处理复杂的文本边界场景

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