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

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