作者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