作者fumizuki (矇面加菲獅)
看板Visual_Basic
標題Re: [VB6 ] 問一個有點笨的問題
時間Sat Mar 7 10:22:54 2009
以下進行兩種方法的效能比較
執行結果(共進行5次比較)
0.921875 2.375
0.90625 2.359375
1.640625 2.09375
1.21875 2.65625
1.546875 1.984375
第一種方法比較快
之前M氏提供的方法有錯誤喔，原po張貼的主題是VB6(應該沒錯吧?)，
VB6不支援陣列索引的字串，所以只有2種方法逐一存取字串中的每一個字元
→使用StrConv()轉換成byte陣列直接存取
→Mid()函數
Mid()的效能較差，在迴圈外使用還沒關係，在迴圈內大量使用會拖垮系統
regex的方式的話，對新手來說特別難理解吧...(雖然很好用 但比較不易學習)
我就不試了，因為我也不太了解regex的語法 釁
───────────────────────────────────────
Option Explicit
Sub test()
Dim x As String
Dim i As Double
Dim st As Long
st = Timer
For i = 1 To 300000
x = rep1("aA...zZ ")
Next
Debug.Print (Timer - st),
st = Timer
For i = 1 To 300000
x = rep3("aA...zZ ")
Next
Debug.Print (Timer - st)
End Sub
Public Function rep1(ByVal src As String)
If src = "" Then rep1 = "": Exit Function
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
Function rep3(s As String) As String
Dim i As Integer
Dim s2 As String
Dim c As String
For i = 1 To Len(s)
c = Mid(s, 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
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多悽悽慘慘的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 123.194.106.250
1F：→ MOONRAKER:好吧，s(i)取字元的寫法才真的是過時20年的寫法 X( 03/07 12:23
2F：→ MOONRAKER:以前是在幹嘛怎麼都沒注意到 X( 03/07 12:23
3F：推 MOONRAKER:版主的比較則是明確指出 + operator 的效率問題 03/07 12:25
4F：→ MOONRAKER:難怪.NET也要學人家弄stringbuilder 03/07 12:26