在集合中如何确定包含某个字符的字段位置？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师好

如果是这样有三个重复，如何处理？

Dim str As String = "台州市域铁路S2线土建施工Ⅱ标段土建施工Ⅱ标段土建施工Ⅱ标段A"

前提是要做什么判断？如果说只要有重复就算，那代码不需要改，一样适用，不管有几个重复。

如果说一定要判断是重复3次的才算需要的结果，可以把所有字符都添加到字典里，遍历完有重复的+1，然后看重复值等于3的

一般来说最多三个重复，如何删除二个留一个就OK

Dim str As String = "台州市域铁路S2线土建施工Ⅱ标段土建施工Ⅱ标段土建施工Ⅱ标段A" '目标是删除"土建施工Ⅱ标段",不能用Replace

Dim lst As New List(Of String)

For m As Integer = 0 To str.Length - 1 '按顺序删除递增字符

Dim ms As String = str.SubString(m)

For ii As Integer = 1 To Math.Floor(ms.Length /2) '步长值最大值为整个字符串的50%

For i As Integer = 0 To ms.Length - 1 Step ii

If i + ii < ms.Length - 1 Then

lst.Add(ms.Substring(i, ii))

Else

lst.Add(ms.Substring(i))

End If

Dim dic As New Dictionary(Of Integer,String)

For n As Integer = 1 To lst.Count -1

If lst(n) = lst(n - 1) Then '遍历从集合中查找如果找到连续相同字符串

If dic.ContainsKey(lst(n).Length) = False And dic.ContainsValue(lst(n)) = False Then '不重复的字符串

dic.Add(lst(n).Length,lst(n))

End If

'''另一种最大值

If dic.Count > 0 Then '判断字典是否包含数据,因为dic.Count = 0 代码会出错

Dim key As Integer = dic.Keys.Max

Dim t As String = dic(key)

Output.Show(t) '显示"标段土建施工Ⅱ"

Output.Show(str.Remove(str.IndexOf(t),t.Length)) '显示"台州市域铁路S2线土建施工Ⅱ标段土建施工Ⅱ标段A"

End If

如何再一次删除 "标段土建施工Ⅱ" 这个字符串？？

[此贴子已经被作者于2023/11/1 23:31:24编辑过]

再重复一次这个删除代码不就行了

老师如何用Do...Loop删除“中华”只留一个“中华”

Dim str As String = "中华AB中华人民共和国,中华民族"

Dim s As String = "中华"

If str.IndexOf(s) > -1

str = str.Remove(str.IndexOf(s),s.Length)

End If

msgbox(str)

[此贴子已经被作者于2023/11/2 13:19:31编辑过]

Dim str As String = "中华AB中华人民共和国,中华民族"

Dim s As String = "中华"

Dim i As Integer = str.IndexOf(s)

If i > -1 Then

i = str.IndexOf(s, i + s.Length)

Do While i > -1

str = str.Remove(i, s.Length)

i = str.IndexOf(s, i)

Loop

End If

msgbox(str)

不用循环也可以的

Dim str As String = "123中华AB中华人民共和国,中华民族"

Dim s As String = "中华"

Dim i As Integer = str.IndexOf(s)

If i > -1 Then

Dim s2 As String = str.Substring(i + s.Length)

str = str.Substring(0, i + s.Length) & s2.Replace(s, "")

End If

msgbox(str)

主题：在集合中如何确定包含某个字符的字段位置？