vb查询字符串并替换
发布网友
发布时间：2022-05-12 05:46
共2个回答
热心网友
时间：2023-11-23 04:00
instr，替换字符串的函数是replace，用法：
instr(n
,
S1
,
S2)
在字符串S1中，从左边第n个字符向后搜索S2第一次出现的位置，例如
i
=
instr
(
3,
"abcbcbc",
"b"
)，此时
i
=
4
replace（s,s1,s2)
在字符串s中搜索s1，如果搜索到就将s1替换成s2，例如
replace("asdfasdfasfas","asd","m")
结果是
mfmfasfas
希望对你有用
热心网友
时间：2023-11-23 04:00
sub
command1_click()
'第一步:
首先查找指定位子的字符是什么:
dim
a
as
integer,
b
as
string,
c
as
string,
d
as
string,
x
as
string,
m
as
string
x
=
"p"
'这个替换字符也可以用文本框输入x
=
text3.text
b
=
text1.text
m
=
text2.text
a
=
int(val(m))
c
=
len(b)
d
=
right(b,
c
-
a
+
1)
d
=
left(d,
1)
'第二步:
替换字符:
b
=
replace(b,
d,
x)
label1.caption
=
b
'注意：可以替换查询到的所有字符
end
sub
