ASP脚本实现分组显示字符串

来源：百度知道 编辑：UC知道 时间：2024/06/25 08:38:19
已知 随机 生成的66个数（分别会有"1","0","2"）
例如：101101110 12011111111001110000100111101000111000001111111001110101
要求用VB或ASP脚本实现分组显示（1和0不能在一组，但是2可与1和0在一组）成：
1，0，11，0，111，0，12，0 .......

希望能交流下，多谢！

VB:

Dim stra As String
Dim strDes As String
Dim strChr As String
Dim strTp As String
Dim ltp As Long

stra = "101101110 12011111111001110000100111101000111000001111111001110101"
strDes = ""
strTp = ""
For ltp = 1 To Len(stra)
strChr = Mid(stra, ltp, 1)
If strTp = "" Then
strTp = strChr
Else
Select Case strChr
Case "0"
If InStr(1, strTp, "1") <> 0 Then
strDes = strDes & " " & strTp
strTp = "0"
Else
strTp = strTp & "0"
End If
Case "1"
If InStr(1, strTp, "0") <> 0 Then
strDes = strDes & " " & strTp
strTp = "1"
Else
strTp = strTp & "1"
End If
Case "2"
strTp = strTp & "2"
End Select
End If
Next
If strTp <> "" Then
strDes