求VB代码

来源：百度知道 编辑：UC知道 时间：2024/05/02 20:43:04
如果我要在一段字符里，把所有大小写英文字母全部换成“_”
怎么写？（字符里有数字和中文）
给答案的加分！！！

在窗体上建立2个文本框text1和text2，一个按钮command1，text1里面输入你要转换的字符串，text2里面显示结果，代码如下：
Dim MyString As String
Dim EveryStr(50) As String
Dim TargetStr As String
Private Sub Command1_Click()
MyString = Text1
For i = 1 To Len(MyString)
EveryStr(i) = Right(Left(MyString, i), 1)
If Asc(EveryStr(i)) < 123 And Asc(EveryStr(i)) > 96 Then EveryStr(i) = \"_\"
If Asc(EveryStr(i)) < 91 And Asc(EveryStr(i)) > 64 Then EveryStr(i) = \"_\"
TargetStr = TargetStr & EveryStr(i)
Next i
Text2 = TargetStr
TargetStr = \"\"
End Sub

引号前面怎么自动给加了个“\”？用的时候请手动把那几个“\”去掉

将这个字符串赋给一个数组，分别判断他们的ASC值,如果在英文字符的就让它为“-”，然后就ok了，比较简单的！中文的也不怕的