VB 文本提取某指定字符右边的汉字
答案:2 悬赏:0 手机版
解决时间 2021-04-03 20:21
- 提问者网友：轻浮
- 2021-04-02 21:57
VB 文本提取某指定字符右边的汉字
最佳答案
暂无最佳答案
全部回答
- 1楼网友：慢性怪人
- 2021-04-02 23:48
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
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯