- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 如何动态删除字符串 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=153590)
-- 发布时间：2020/8/16 10:08:00
-- 如何动态删除字符串
如何动态删除字符串，如“A|B|K|L”，我想删除其中“A”则变成 “B|K|L”，如删除“B”后则变成“A|K|L”，如删除“L”后则变成“A|B|K”,如何写？
-- 发布时间：2020/8/16 12:00:00
--
分解成集合,删除后再组合
-- 发布时间：2020/8/16 20:35:00
--
分解：http://www.foxtable.com/webhelp/topics/0245.htm
添加到集合，删除不需要的元素：http://www.foxtable.com/webhelp/topics/0217.htm
-- 发布时间：2023/9/29 21:28:00
--
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)
-- 发布时间：2023/9/29 22:15:00
--
关键问题是否会重复出现多个A、B、K……，如果是，只删除第1个还是全部删除！
-- 发布时间：2023/9/29 23:13:00
--
这样就可以了
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)
-- 发布时间：2023/9/30 17:37:00
--
这样的话没必要这么复杂：
Dim st As String = "A|B|K|L|B"
st = "|" & st & "|"
st = st.Replace("|B|","|").Trim("|")
-- 发布时间：2023/9/30 18:24:00
--
程工你好，好久不见了
[此贴子已经被作者于2023/9/30 18:35:26编辑过]
-- 发布时间：2023/9/30 21:11:00
--
