查找文本中如 x??a???b??出现次数用那个方法

huahaign · 发表于 2019-3-2 12:24:03

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

？？代表未知字符

zhurui · 发表于 2019-3-2 22:39:15

[按键精灵] 纯文本查看 复制代码

Dim 我是一段字符="aaaaaaaaaaaaaaabbbbbbbbbbbbbbbb222222222222222222266666666668888bbbbbbbbbbbbbdasssssasasfafsdfa",被查找的字符="a",出现次数=0,结果
For i = 1 To UTF8.Len(我是一段字符)
    结果 = UTF8.Left(我是一段字符,UTF8.Len(我是一段字符)-i)
    If UTF8.Right(结果,1)= 被查找的字符 Then 
        出现次数=出现次数+1
    End If
    TracePrint 结果&"   "&被查找的字符&"已经出现"&出现次数&"次"
Next

zhurui · 发表于 2019-3-2 22:40:25

此段代码是通过循环递减字符串进行对比，若相等则加一。♪(^∇^*)

jcrain123 · 发表于 2019-3-16 16:59:47

用分割文本！！！split

小草杀 · 发表于 2019-7-18 13:44:01

学习到了

		自动登录	找回密码
密码			立即注册

[已回复] 查找文本中如 x??a???b??出现次数用那个方法

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分