※ 引述《MOONRAKER (㊣糜不有初，鮮克有終)》之銘言： : : 推 JacobTai:漂亮... : : → MOONRAKER:那麼複雜的函數呼叫26次 我不認為這哪裡漂亮 : : → MOONRAKER:只是表面上比較好維護而已 : : → MOONRAKER:當然最好的辦法是用scripting.regex : for i=0 to 25，還不是要呼叫26次 : 複雜的是replace()，不是asc() : 以長度 k 的字串來說， : 用replace取代其中一個字元，每一個字元都要看過，複雜度 Θ(k) : 跑26次，複雜度 Θ(26k) : 本人的第一個寫法（見第一篇回應），這是一個老屁股寫法 : 只要從頭到尾看字串一次，複雜度 Θ(k)，而且一次replace都用不到 之所以評論 "漂亮" 原因有三... 1. 第一眼看到問題... 直覺反應也是在字串中一個字元一個字元比對... ex: for i = 1 to len(s) if .... then .... next i 看到 for loop 然後用 replace 的時候心中很訝異... 因為這是我從來沒有想過的方法... 很高興能在這邊多學到一個思考方向... 2. 請先看一下原 PO 原始問題... : replace(replace(string,"A","#"),"B","#")..... : 假設我要把所有字母都取代成那個符號 : 這樣就要打好大一串 : 請問有比較簡便的方式嗎?? : 還是只能這樣打? 簡便的方式應該是用迴圈簡化程式吧... 原 PO 好像並沒有太在意速度... 3. 在業界呆久了...常常得跟剛出學校的人爭辯... 學校教導的是...程式要寫得漂亮... 何謂漂亮? 省系統資源就叫漂亮... 如果我們現在用的是十年前的電腦...敝人非常贊同上述理論... 但是以現在的電腦速度來說... 敝人比較傾向於在 速度 跟 程式可讀性 中取個平衡點... replace 放在迴圈中的寫法 無可否認是非常直述的寫法... : 假設我要把所有字母都取代成那個符號 人腦怎麼想...程式怎麼寫... 每個字母跑一次...答案就出來了... 字串中把每個字抓出來...再去判斷是不是字母... 就原題目來說...思考方式是多轉了一個圈... 寫程式的人通常都不是維護程式的那一個... 要是 寫程式的人 跟 維護程式的人 功力相同...一切好辦... 很不幸的...每個人的功力都不同... 當程式需要維護的時候...使用者可是白領薪水坐在那等... 維護的人沒辦法立刻看懂程式找出錯誤...公司損失誰付? 所以敝人通常是要求寫程式的人盡量寫出易於維護的程式... 太多個人色彩的程式...比較適合個人工作室... 公司...通常會比較注重可讀性以及易於維護性... ================================================================= 談到程式效率... s = s + "#" 當 s 是個少於十個字的字串...速度如飛... 當 s 內含大量文字...每多加一個字就得跟系統要一次記憶體... 除非確定是個小字串...不然省下的效率都在接字串時又浪費光了... ================================================================= 轉成 Byte Array 之後再處理 也是我沒想過的... 就算是個長字串...程式效能並沒有被拖垮多少... 以下為抄襲修改之後的測試程式碼...望原作見諒... Private Sub test() Dim x As String Dim i As Double Dim st As Long Dim s As String Dim j As Integer For j = 1 To 2 If j = 1 Then s = "aA...zZ " Else s = String(100, "aA...zZ ") End If st = Timer For i = 1 To 300000 x = rep1(s) Next Debug.Print (Timer - st), st = Timer For i = 1 To 300000 x = rep2(s) Next Debug.Print (Timer - st), st = Timer For i = 1 To 300000 x = rep3(s) Next Debug.Print (Timer - st) Next j End Sub Private Function rep1(ByVal src As String) As String Dim i As Integer, b() As Byte b = StrConv(src, vbFromUnicode) Const c As Byte = 35 'Asc("#") = 35 For i = 0 To UBound(b) '65 ~ 90 大寫英文字母 '97 ~ 122 小寫英文字母 If (b(i) >= 65 And b(i) <= 90) Or (b(i) >= 97 And b(i) <= 122) Then b(i) = 35 End If Next rep1 = StrConv(b, vbUnicode) End Function Private Function rep2(ByVal src As String) As String Dim i As Integer For i = 65 To 90 src = Replace(src, Chr(i), "#") Next For i = 97 To 122 src = Replace(src, Chr(i), "#") Next rep2 = src End Function Private Function rep3(ByVal src As String) As String Dim i As Integer Dim s2 As String Dim c As String For i = 1 To Len(src) c = Mid(src, i, 1) If (c >= "A" And c <= "Z") Or (c >= "a" And c <= "z") Then s2 = s2 & "#" Else s2 = s2 & c End If Next i rep3 = s2 End Function ※ 編輯: JacobTai 來自: 70.68.113.130 (03/07 13:24)