字符处理问题还是 帮吗看看

Question

比如有字符串 “中华AA1234”
共十个字节 
现在  想一个字节一个字节的 显示即 在文本框里 输入 1个字节时  显示半个汉字  可以用 ”. “ 表示
在文本框里 输入  2个字节时  显示 ”中“
在文本框里 输入  3个字节时  显示 ”中.“在文本框里 输入 4 时显示 中华
5时  显示 中华A
6     中华AA
.
.
.

Answer 1

tian na 还是没人嘛太难了么

Answer 2

先写一个方法RealLen()用来读取真实的LenLen("中华AA1234")得到的是8
但是真实的应该是10("中华"是4)
然后判断输入的字节数,然后把每一个都分开,标记一下再读值吧

Answer 3

Dim StrRes as StringPrivate Sub RedByt(STR As String,Num As Integer)
    Dim i As Integer
    For i = 1 To Len(STR)
        If asc(Mid(STR, i, 1)) < 0 Then
            StrRes=StrRes & Mid(STR, i, 1)
            Num = Num - 2
            if Num=0 Then Exit Sub
    if Num=-1 Then StrRes=StrRes & Mid(StrRes,Len(StrRes)-1,1) & "."
        Else
            StrRes=StrRes & Mid(STR, i, 1)
            Num = Num - 1
            if Num=0 Then Exit Sub
        End If
    Next
End Sub好像是这样,两个参数STR是"中华AA1234",Num是你的读取的字节数

Answer 4

if Num=-1 Then StrRes=StrRes & Mid(StrRes,Len(StrRes)-1,1) & "."
不好意思 这句写错了应该写成
if Num=-1 Then StrRes=StrRes & Mid(StrRes,1,Len(StrRes)-1) & "."

Answer 5

写了个xCutText
应该没问题了～Private Sub Form_Load()
    Me.Caption = "中华AA中华1234"
    Text2.Text = 0
End SubPrivate Sub Text2_Change()
    Text1.Text = xCutText(Me.Caption, Val(Text2.Text))
End SubPrivate Function xCutText(Text As String, Length As Integer)
    Dim tS As String
    Dim cS As String
    Dim i As Integer
    Dim cLen As Integer
    
    If Length >= LenB(StrConv(Text, vbFromUnicode)) Then
        xCutText = Text
        Exit Function
    End If
    
    i = 1
    Do While cLen < Length
        cS = Mid(Text, i, 1)
        
        cLen = cLen + IIf(Asc(cS) < 0, 2, 1)
        If cLen > Length Then cS = "."
        
        tS = tS & cS
        i = i + 1
    Loop    xCutText = tS
End Function

Answer 6

利用StrConv函数将字符串,转换成字节数组,然后分别读出就OK了!!!!!!

Answer 7

AprilSong(X) 写的
是我要的效果
其他也试过了