在VB.NET中如何移除字符串内指定的独立数值元素

解决方案 #

方法1：拆分过滤后重新拼接（最稳妥，无正则依赖） #

按逗号将字符串拆分为独立元素的数组，过滤掉完全匹配目标值的元素后再重新拼接，从根源上避免子串误匹配的问题。
VB代码示例：

Dim xStr As String = "13,14,133,15,2500,25"
Dim target As String = "13"
' 按逗号拆分字符串为数组
Dim parts As String() = xStr.Split(","c)
' 过滤掉完全等于目标值的元素
Dim filteredParts = parts.Where(Function(p) p <> target).ToArray()
' 重新用逗号拼接为最终字符串
xStr = String.Join(",", filteredParts)

执行后输出结果为14,133,15,2500,25，自动处理多余逗号，不会出现空项。

方法2：正则表达式替换（适合不想拆分字符串的场景） #

通过正则匹配边界规则，精准定位独立存在的目标值，兼顾目标值在字符串开头、中间、结尾的三种场景。
VB代码示例：

Imports System.Text.RegularExpressions

Dim xStr As String = "13,14,133,15,2500,25"
Dim target As String = "13"
' 转义目标值中的正则特殊字符，避免语法错误
Dim escapedTarget = Regex.Escape(target)
xStr = Regex.Replace(xStr, $"(^|,){escapedTarget}(,|$)", Function(m)
    ' 匹配到中间元素时保留一个逗号，避免出现连续逗号
    If m.Groups(1).Value = "," AndAlso m.Groups(2).Value = "," Then
        Return ","
    End If
    ' 开头/结尾场景直接返回边界字符即可
    Return m.Groups(1).Value & m.Groups(2).Value
End Function)

注意事项 #

• 不要直接使用普通Replace方法，会修改包含目标子串的其他元素，就是你遇到的误把133修改为3的问题
• 如果目标值可能包含正则特殊符号，使用正则方法时必须加Regex.Escape处理

内容的提问来源于stack exchange，提问作者M.J