以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何把这些数字去掉呢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158364)
--  作者：81538475
--  发布时间：2020/11/17 17:31:00
--  [求助]如何把这些数字去掉呢
如何把中间的数字去掉呢。
一|10|二|11|三|22|四|40

变成
一|二|三|四
--  作者：cbt
--  发布时间：2020/11/17 18:36:00
--  
Dim str As String= "一|23|二|11|三|22|四|40"
Dim strs As String() = str.Split("|") \'拆分字符
Dim xsz As new List(of String) \'存放新的内容
For i As Integer = 0 To strs.Length-1
    If strs(i) Like "*#*" = False Then \'判断是否包含数字,包含则跳过
        xsz.Add(strs(i))
    End If
Next
output.show(String.Join("|",xsz.ToArray))
--  作者：hongsejiyi
--  发布时间：2020/11/17 19:21:00
--  
\'用正则表达式处理
Dim str As String= "一|23|二|11|三|22|四|40"
str=System.Text.RegularExpressions.Regex.Replace(str,"\\|\\d\\d","")
output.show(str)

[此贴子已经被作者于2020/11/17 19:35:57编辑过]
--  作者：有点蓝
--  发布时间：2020/11/17 20:10:00
--  
如果中间有多个数字，可以这样

Dim str As String= "一|2323|二|11|三|223|四|40"
str=System.Text.RegularExpressions.Regex.Replace(str,"\\|\\d+","")
output.show(str)