当前位置：首页 - 正文

VB怎么实现记事本里替换的功能?

发布网友发布时间：2024-10-03 12:15

共4个回答

热心网友时间：2024-11-30 08:41

自己做个函数输出
pricate function replacea(orstring as string) as string
dim rptxt(0 to 9) as string
rptxt(0)="零"
rptxt(1)="一"
....
rptxt(9)="九"

for i=0 to 9
if instr(orstring,i)<>0 then
orstring=replace(orstring,i,rptxt(i))
Doevents
end if
next
replacea=orstring
end function

'比如text1.text="我看1次不行,得8次才能处理!"
'调用
text1.text=replacea(text1.text)

这样就可以了

参考资料：http://www.qdipc.net

热心网友时间：2024-11-30 08:41

递归搜索字符串
替换

热心网友时间：2024-11-30 08:41

明确的说，没有更好的办法！！
只有这样一批一批的replace

热心网友时间：2024-11-30 08:42

完全听不懂你要干什么

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com

焦点

VB怎么实现记事本里替换的功能?

最新推荐

猜你喜欢

热门推荐