7,785
社区成员
发帖
与我相关
我的任务
分享稍微讨论一下刚才duoduo0001的问题中 WallesCai的解法
如果在text中有其它数字加"、"是不是会出错阿（至少不合原来要求吧）
严格说应该先判断text的第一个"、"之前的字符是否全为数字
然后在替换从开头到"、"的部分
也许duoduo0001只是实现一个小的功能
WallesCai也只是临时随手写的
但如果真的要用
还是多加一些判断，严谨一点好
将来万一程序规模大了，在这种地方出错不好查的
...全文
请发表友善的回复…
发表回复
caimps 2004-11-09
- 打赏
- 举报
原问题如下：
---------------------------
我的文本框text的内容是：
1、.....
2、.....
现在想把它变为：
*....
*....
就是把“数字”和“顿号”变成“*”
有办法吗？
--------------------------------------------
解如下：
----------------------------------------
dim I as long
dim A as string
for I=1 to 10 '这里随便你写几，看你有几行要替换就写几
A= I & "、"
text1.text=replace(text1.text,A ,"*")
next
-----------------------------------------------------------
---------------------------
我的文本框text的内容是：
1、.....
2、.....
现在想把它变为：
*....
*....
就是把“数字”和“顿号”变成“*”
有办法吗？
--------------------------------------------
解如下：
----------------------------------------
dim I as long
dim A as string
for I=1 to 10 '这里随便你写几，看你有几行要替换就写几
A= I & "、"
text1.text=replace(text1.text,A ,"*")
next
-----------------------------------------------------------
