推 fumizuki:Replace 不用考慮了 跑了幾十秒都跑不完... 03/07 16:04
推 Y78:我後來改用Replace跑了一次 跑了10秒多 03/07 22:05
※ 引述《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)