VB 文本提取某指定字符右边的汉字

VB 文本提取某指定字符右边的汉字

暂无最佳答案

Private Sub Command1_Click()
For i = 1 To Len(Text1.Text)
    s1 = Mid(Text1.Text, i, 3)
    If InStr(1, s1, "#U") = 1 Then
    s2 = Replace(s1, "#U", "")
    If s2 <> "#" And s2 <> "U" Then Text2.Text = Text2.Text & s1 & vbCrLf
    Label1.Caption = Val(Label1.Caption) + 1 & "个"
    End If
    Next i
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息