作者Y78 (Y78)
看板Visual_Basic
标题Re: [VB6 ] 问一个有点笨的问题
时间Thu Mar 5 17:33:05 2009
或者你可以试试看这样
'str = 要取代的
For i = Asc("A") to Asc("Z")
str = Replace(str,Chr(i),"#")
Next
※ 引述《yellissckk (疯狂甜不辣)》之铭言：
: 请问各位唷
: 每次要用到A-Z的时候
: 总是要从头打一遍
: 例如
: replace(replace(string,"A","#"),"B","#").....
: 假设我要把所有字母都取代成那个符号
: 这样就要打好大一串
: 请问有比较简便的方式吗??
: 还是只能这样打?
: 先谢各位罗
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 122.116.162.46
1F：推 JacobTai:漂亮... 03/06 11:33
2F：→ MOONRAKER:那麽复杂的函数呼叫26次 我不认为这哪里漂亮 03/06 12:59
3F：→ MOONRAKER:只是表面上比较好维护而已 03/06 12:59
4F：→ MOONRAKER:当然最好的办法是用scripting.regex 03/06 13:00
5F：→ Y78:不想呼叫那麽多次函数的话 03/06 17:58
6F：→ Y78:不知道用阵列的方式会不会比较好? 03/06 18:05
7F：→ Y78:Dim str() 03/06 18:06
8F：→ Y78:str = array("A","B"...."Z") 03/06 18:06
9F：→ Y78:for i = 0 to 25 03/06 18:06
10F：→ Y78:str2 = replace(str2,str(i),"#") 03/06 18:07
11F：→ Y78:next 03/06 18:07