求助：字符计数

fcghw

在一文本框中有字符串"aabccddd"如何才能得到这样的结果：2a1b2c3d

tz-chf

挨个去比啊，一样的加1，不一样的重新计数。

ACMAIN_CHM

放一个数组
dim a[26] = 0;
然后逐一检查字符串的的每个字符c， a[c] = a[c] +1 即可




******************
*  一切皆有可能  *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次

fcghw

ACMAIN_CHM , 能给个完整的代码吗？我还是一头雾水

t小宝

做个函数,试试

Function GetText(stmp As String) As String
    Dim i As Integer, j As Integer, s1 As String
   
   
    For i = 1 To Len(stmp)
   
   
        If s1 = Mid(stmp, i, 1) Then
   
            j = j + 1
   
        Else
            If s1 <> "" Then GetText = GetText & j & s1
        
            j = 1
   
            s1 = Mid(stmp, i, 1)
   
        End If
   
    Next
End Function

fcghw

5# t小宝
不行啊，
t小宝你再帮我改改啊 谢谢

fcghw

最后如果是一个字符就没法计数了

fcghw

完美解决了，代码改成：
Function GetText(stmp As String) As String
    Dim i As Integer, j As Integer, s1 As String
   
   
    For i = 1 To （Len(stmp)+1）
   
   
        If s1 = Mid(stmp, i, 1) Then
   
            j = j + 1
   
        Else
            If s1 <> "" Then GetText = GetText & j & s1
        
            j = 1
   
            s1 = Mid(stmp, i, 1)
   
        End If
   
    Next
End Function