①取字符串的首字符为压缩后的第一个字符。
②统计该字符连续的个数,两者间使用逗号分隔。
③按此方法进行后续字符的压缩,各段压缩结果用“/”分隔。
④重复上述过程,直到将所有字符压缩完成。
例如:字符串"1100000000000011110"压缩后的字符串为"1,2/0,12/1,4/0,1/"。依据上述描述编写VB程序,实现此算法的解压缩功能:在文本框Text1中输入待解压缩的字符串,单击“解压缩”按钮,在文本框2中输出解压缩的字符串。运行效果如下图所示。
Private Sub Command1_Click()
Dim i As Integer, x1 As Integer, x2 As Integer, s As String
Dim ch As String, result As String
s= Text1.Text
i= 1: result =”
Do While i<= Len(s)
①
If ch< "O" Or ch> "9" Then
If ch= "/" Then
x2 = tmp
For j=1 To x2
result = result & CSstr(x1) ‘Cstr函数的功能是将数字转为字符串
Next j
Else
②
End If
tmp= 0
Else
③
End If
i=i+ 1
Loop
Text2.Text = result
End Sub
① ② ③