VB 如何清除无用的字符?如图
就是清除掉文字间的符号数字,空格,字母,
如图
http://hiphotos.baidu.com/%CC%EC%B7%E7%BA%A3%CB%AE/pic/item/4493bb015c8564041d9583fe.jpg
[解决办法]
中文字的ASC值是负数 写个过程挨个判断就好了 是负数的复制到str变量中 再额外加个“,”不是就跳过
[解决办法]
text1是原文本框
text2是显示结果的文本框
Dim i As Integer
Dim tempStr As String
Text2.Text = " "
For i = 1 To Len(Text1.Text)
tempStr = Mid(Text1.Text, i, 1)
If Asc(tempStr) < 0 Then
Text2.Text = Text2.Text & tempStr & ", "
End If
Next i
运行结果:
源文本:Text1三地放松地放松dfsdf
结果文本:三,地,放,松,地,放,松,
加分!!!!
[解决办法]
Dim i As Integer
Dim tempStr As String
Text2.Text = " "
For i = 1 To Len(Text1.Text)
tempStr = Mid(Text1.Text, i, 1)
If Asc(tempStr) < 0 Then
Text2.Text = Text2.Text & tempStr & ", "
Else
If Asc(tempStr) = vbCrLf Then Text2.Text = Text2.Text & tempStr
End If
Next i