vb6如何把特定的字符替换成其他的字符
1、启动VB6.0，新建一个标准exe工程。
2、在窗体上绘制一个命令按钮，名称为Command1。
3、双击命令按钮进入代码窗口。
4、假设有一个名为a的函数过程进行调用，从1到100逐一查找。可以选择计数循环For....Next语句。
5、编写命令按钮的单击事件。
6、按F5运行测试，就完成了。
用replace函数即可实现。
例：
Private Sub Command1_Click()
第一种用法： 无条件全部替换
Text2.Text = Replace(Text1.Text, "A", "x")
第二种用法：从第一位开始只替换3次
'rcount = 3
'Text2.Text = Replace(Text1.Text, "A", "x", , rcount)
第三种用法：从前面算起第5位开始全部替换
'startc = 5
'Text2.Text = Left(Text1.Text, startc - 1) & Replace(Text1.Text, "A", "x", startc)
第四种用法：不分大小写的替换
'Text2.Text = Replace(Text1.Text, "a", "x", , , vbTextCompare)
End Sub
扩展资料
Replace的返回值：
如果 Replace返回值
expression长度为零 零长度字符串("")。
expression为Null 一个错误。
find长度为零 expression的复本。
replacewith长度为零 expression的复本，其中删除了所有出现的find 的字符串。
start > Len(expression) 长度为零的字符串。
count is 0 expression.的复本。
VB6使用Replace函数把特定的字符替换成其他的字符串。
Replace函数，返回一个字符串，该字符串中指定的子字符串已被替换成另一子字符串，并且替换发生的次数也是指定的。
Private Sub Command1_Click()
Dim a As String
Dim b As String
a = "返回一个字符串，该字符串中指定的子字符串已被替换成另一子字符串，并且替换发生的次数也是指定的。"
b = "String"
a = Replace(a, "字符串", b)
Debug.Print a
End Sub
代码执行后，立即窗口显示：
返回一个String，该String中指定的子String已被替换成另一子String，并且替换发生的次数也是指定的。
Dim str, str1
str = "aw在t日dch靠sw上gxc"
str1 = Replace(str, "a", "01")
str1 = Replace(str1, "c", "02")
MsgBox str1
Replace函数描述：返回一个字符串，该字符串中指定的子字符串已被替换成另一子字符串，并且替换发生的次数也是指定的。
Replace函数语法：Replace(expression,find,replace[,start[,count[,compare]]])
Replace函数语法有如下命名参数：
部分 描述
expression 必需的。字符串表达式，包含要替换的子字符串。
find 必需的。要搜索到的子字符串。
replace 必需的。用来替换的子字符串。
start 可选的。在表达式中子字符串搜索的开始位置。如果忽略，假定从1开始。
count 可选的。子字符串进行替换的次数。如果忽略，进行所有可能的替换。
compare 可选的。数字值，表示判别子字符串时所用的比较方式。
dim str1=“aw在t日dch靠sw上gxc”
a=len(str1) '取字符串长度
b=""
c=""
d=""
for i = 1 to a
b=mid(str1,i,1) '取第i个字符
select case b
case "a"
c="01"
case "c"
c="02"
case
...... ‘如上，case后面接要替换的字符，第二行写c=加上要替换的结果
...
else
c=b '注意，这句表示不需要替换时，保持原来的字符
end select
d=d+c
next
好了，执行完后，d就是替换后的内容了，随便你print还是text了。
