作者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