求助：字符計數(shù)

fcghw

在一文本框中有字符串"aabccddd"如何才能得到這樣的結果：2a1b2c3d

tz-chf

挨個去比啊，一樣的加1，不一樣的重新計數(shù)。

ACMAIN_CHM

放一個數(shù)組
dim a[26] = 0;
然后逐一檢查字符串的的每個字符c， a[c] = a[c] +1 即可




******************
*  一切皆有可能  *
******************
.
ACMAIN - Access論壇回貼準則（個人）.
.
同一貼子不回復第二次

fcghw

ACMAIN_CHM , 能給個完整的代碼嗎？我還是一頭霧水

t小寶

做個函數(shù),試試

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

最后如果是一個字符就沒法計數(shù)了

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