Dim st As String = "A|B|K|L"
Dim str() As String = st.Split("|")
Dim lst As New List(Of String)
Dim s() As String
For i As Integer = 0 To str.Length - 1
'Output.Show(str(i))
lst.Add(str(i))
Next
lst.Remove("B")
s = lst.ToArray()
Dim v As String
v = String.Join("|", s)
Output.Show(v)
关键问题是否会重复出现多个A、B、K……,如果是,只删除第1个还是全部删除!
这样就可以了
Dim st As String = "A|B|K|L|B"
Dim str() As String = st.Split("|")
Dim lst As New List(Of String)
Dim s() As String
For i As Integer = 0 To str.Length - 1
If str(i) <> "B" Then
lst.Add(str(i))
End If
Next
s = lst.ToArray()
Dim v As String
v = String.Join("|", s)
Output.Show(v)
这样的话没必要这么复杂:Dim st As String = "A|B|K|L|B"
st = "|" & st & "|"
st = st.Replace("|B|","|").Trim("|")
程工你好,好久不见了
[此贴子已经被作者于2023/9/30 18:35:26编辑过]