Re: [VB6 ] 問一個有點笨的問題

[Y78 (Y78)]

或者你可以試試看這樣

'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
推 JacobTai:漂亮...
→ MOONRAKER:那麼複雜的函數呼叫26次 我不認為這哪裡漂亮
→ MOONRAKER:只是表面上比較好維護而已
→ MOONRAKER:當然最好的辦法是用scripting.regex
→ Y78:不想呼叫那麼多次函數的話
→ Y78:不知道用陣列的方式會不會比較好?
→ Y78:Dim str()
→ Y78:str = array("A","B"...."Z")
→ Y78:for i = 0 to 25
→ Y78:str2 = replace(str2,str(i),"#")
→ Y78:next