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

看板Visual_Basic作者 (Y78)時間17年前 (2009/03/05 17:33), 編輯推噓1(1推 0噓 10→)
留言11則, 3人參與, 最新討論串3/6 (看更多)
或者你可以試試看這樣 '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
推
03/06 11:33, , 1F
漂亮...
03/06 11:33, 1F
→
03/06 12:59, , 2F
那麼複雜的函數呼叫26次 我不認為這哪裡漂亮
03/06 12:59, 2F
→
03/06 12:59, , 3F
只是表面上比較好維護而已
03/06 12:59, 3F
→
03/06 13:00, , 4F
當然最好的辦法是用scripting.regex
03/06 13:00, 4F
→
03/06 17:58, , 5F
不想呼叫那麼多次函數的話
03/06 17:58, 5F
→
03/06 18:05, , 6F
不知道用陣列的方式會不會比較好?
03/06 18:05, 6F
→
03/06 18:06, , 7F
Dim str()
03/06 18:06, 7F
→
03/06 18:06, , 8F
str = array("A","B"...."Z")
03/06 18:06, 8F
→
03/06 18:06, , 9F
for i = 0 to 25
03/06 18:06, 9F
→
03/06 18:07, , 10F
str2 = replace(str2,str(i),"#")
03/06 18:07, 10F
→
03/06 18:07, , 11F
next
03/06 18:07, 11F
‣ 更多 Y78 的文章
文章代碼(AID): #19hvnIdF (Visual_Basic)
討論串 (同標題文章)
本文引述了以下文章的的內容：
以下文章回應了本文：
完整討論串 (本文為第 3 之 6 篇)：
排序： 最新先 | 最舊先 | 留言數
在新視窗開啟完整討論串 (共6篇)
‣ 更多 Y78 的文章
文章代碼(AID): #19hvnIdF (Visual_Basic)