[求助]如何查找替换字符 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何查找替换字符

共有3723人关注过本帖树形打印复制链接主题：[求助]如何查找替换字符

moseser

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：622 积分：5303 威望：0 精华：0 注册：2022/4/4 14:42:00

[求助]如何查找替换字符 发帖心情

Post By：2023/6/30 13:47:00 [只看该作者]

我想做一个可以增加注释的计算器

用中括号，注释内容

【注释内容】

如一个字符串 dim str as string = "9【长度】*3【宽度】"

如何可以查找【****】，将其替换成空

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/6/30 13:59:00 [只看该作者]

方法1、http://www.foxtable.com/webhelp/topics/1338.htm

Dim str As String = "9【长度】*3【宽度】"

Dim idx1 As Integer = str.IndexOf("【")

Do While idx1 > -1

Dim idx2 As Integer = str.IndexOf("】", idx1)

If idx2 > -1 Then

str = str.Substring(0, idx1) & str.Substring( idx2 + 1)

End If

idx1 = str.IndexOf("【")

Loop

Output.Show(str)

2、

Dim pattern As String = "【\w+(?=】)】"

Dim txt = "9【长度】*3【宽度】"

Dim str = System.Text.RegularExpressions.Regex.Replace(txt , pattern , "")

Output.Show(str)

y2287958

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：4759 积分：34603 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2023/6/30 14:14:00 [只看该作者]

Dim str As String = "9【长度】*3【宽度】"

Dim lst As New List(Of String)

For Each st As String In str.Split ("】")

lst.add(st.Split ("【")(0))

Output.Show (String.Join ("", lst))

下一主题 >> << 上一主题

主题：[求助]如何查找替换字符