Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共9 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:如何动态删除字符串

1楼
ZJZK2018 发表于:2020/8/16 10:08:00
如何动态删除字符串,如“A|B|K|L”,我想删除其中“A”则变成 “B|K|L”,如删除“B”后则变成“A|K|L”,如删除“L”后则变成A|B|K”,如何写?
2楼
wei0769 发表于:2020/8/16 12:00:00
分解成集合,删除后再组合
3楼
有点蓝 发表于:2020/8/16 20:35:00
分解:http://www.foxtable.com/webhelp/topics/0245.htm

添加到集合,删除不需要的元素:http://www.foxtable.com/webhelp/topics/0217.htm

合并:http://www.foxtable.com/webhelp/topics/1423.htm
4楼
ZJZK2018 发表于: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)
5楼
程兴刚 发表于:2023/9/29 22:15:00
关键问题是否会重复出现多个A、B、K……,如果是,只删除第1个还是全部删除!
6楼
ZJZK2018 发表于: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)
7楼
程兴刚 发表于:2023/9/30 17:37:00
这样的话没必要这么复杂:
Dim st As String = "A|B|K|L|B"
st = "|" & st & "|"
st = st.Replace("|B|","|").Trim("|")
8楼
ZJZK2018 发表于:2023/9/30 18:24:00
 程工你好,好久不见了     图片点击可在新窗口打开查看
[此贴子已经被作者于2023/9/30 18:35:26编辑过]
9楼
程兴刚 发表于:2023/9/30 21:11:00
图片点击可在新窗口打开查看
共9 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02344 s, 2 queries.