比如一段字符“aw在t日dch靠sw上gxc”,将其中的a替换成01,c替换成02,就变成了01w在t日d02h靠sw上gx02,代码怎么写???!!简单点
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()代码执行后,立即窗口显示: