如何从 vb.net 中的字符串中删除一个非常特殊的部分

Question

我有一个字符串变量，它应该包含类似以下示例的值：

Dim xStr as string  = "13,14,133,15,2500,25"

我需要从“13”中删除一个非常具体的值，但是当我使用替换功能时，我有很多限制，因为如果我用空替换“13”，结果将是“,14,3,15,2500 ,25"。 那是错误的，因为我只需要删除 13 和它后面的逗号（如果它在那里）。

我该如何应用？

Answer 1

我会将字符串拆分为单独的数字（仍然是字符串），然后使用 Step -1 进行向后的 For 循环，这样我们就不会得到超出范围的索引。

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    Dim xStr As String = "13,14,133,15,2500,25"
    Dim numToRemove As String = "13"
    Dim nums = xStr.Split(","c).ToList
    For index = nums.Count - 1 To 0 Step -1
        If nums(index) = numToRemove Then
            nums.RemoveAt(index)
        End If
    Next
    Dim NewString = String.Join(",", nums)
    MessageBox.Show(NewString)
End Sub

Answer 2

好吧，我们必须在这里做一些假设。

但是，一个额外的（杂散）空间 - 是的，我们应该处理它。

如果只有一个不带逗号的条目是删除编号，我们也支持。

所以，这很好用：

    Dim strToRemove As String = "14"

    Dim str = "13,14 ,133,15,2500,25,"

    str = str.Replace(" ", "")

    Dim strL As List(Of String) = str.Split(",").ToList
    strL.RemoveAll(Function(xRow) xRow = strToRemove)

    str = Join(strL.ToArray(), ",")

    Debug.Print("<" & str & ">")

输出：

 <13,133,15,2500,25,>

因此，上述内容也适用于分隔符的“空”值。

如果我们要受到惩罚，我们可能会用一行来写整个交易，但我建议如果你经常使用这段代码，那么我们就用这个

Public Function RemoveToken(str as string, sRemove as string) as string

    str = str.Replace(" ", "")

    Dim strL As List(Of String) = str.Split(",").ToList
    strL.RemoveAll(Function(xRow) xRow = sRemove)

    return Join(strL.ToArray(), ",")

End Function

Answer 3

尝试这个：

Dim xStr as string = "13,14,133,15,2500,25"

xStr = xStr.Remove(0, xStr.IndexOf(",") + 1).Trim()

Answer 4

试试这个，

完成： Replace 、 TrimStart和TrimEnd方法。

'A string sample
Dim xStr as string = "33, 13, , 14  ,133 ,15,  2500 ,25"

'Put a number to remove here
Dim number_to_remove=13

xStr = xStr.Replace(" ","") ' Removing any unnecessary whitespace
xStr=","+xStr+","           ' Adding a padding comma

Console.WriteLine(xStr) 

' Removing wanted number
xStr = xStr.Replace("," + Cstr(number_to_remove) + ","  ,",")

' Removing any unnecessary comma        
if xStr.StartsWith(",") then   ' Remove coma At the beginning
   xStr = xStr.trimstart(",")
end if  
if xStr.EndsWith(",") then    ' Remove coma At the end
   xStr = xStr.trimend(",")
 end if 
xStr = xStr.Replace(",,",",") ' Remove coma in the middle

Console.WriteLine(xStr)     

[输入]

请注意，输入被处理为容忍spaces和empty元素。

"33, 13, , 14  ,133 ,15,  2500 ,25"

在这种情况下，要删除的数字是13 。

[输出]

"33,14,133,15,2500,25"