[VB6] การสลับ (SWAP) ข้อความสตริง (String) แบบรวดเร็วปานสายฟ้าแล่บ

thongkorn

พูดถึงเรื่องการ SWAP (อ่านว่าสว็อป) หากคนที่เรียนทางคอมพิวเตอร์มา ก็คงจะรู้จักกันดีอยู่แล้วล่ะน่ะครับ ซึ่งเป็นการสลับค่าตัวแปร เช่น A = 3, B = 5 โดยที่ ให้นำค่าจาก A ไปเก็บไว้ที่อื่นก่อน (Temp = A) จากนั้นก็ให้เอาค่าจาก B มาเก็บไว้ที่ A (A = B) สุดท้ายก็ย้ายค่าจาก Temp มาไว้ที่ B (B = Temp) ก็เป็นอันจบก็จะทำให้ A = 5 และ B = 3 นั่นก็หมายความว่าเป็นการเคลื่อนย้ายข้อมูล (Transfer Data) ระหว่างตัวแปร สำหรับบทความนี้จะเป็นการสลับค่าเหมือนกัน แต่จะใช้วิธีการสลับตำแหน่งที่จัดเก็บ (Memory Address) ซึ่งจะทำให้เกิดความรวดเร็วมากขึ้น ในกรณีที่เรานำไปใช้กับข้อมูลที่มีปริมาณมากๆ ... สำหรับ VB6 จะใช้ Win32 API (Application Programming Interface) ด้วย CopyMemory อนึ่ง!!! การใช้ CopyMemory/RtlMoveMemory API  เราควรต้องใช้งานระมัดระวังเป็นอย่างยิ่ง เพราะอาจจะเกิดการ Crash ต่อ IDE หรือตัวแอพพลิเคชั่นของเราเอง แต่หากนำมาใช้ให้เป็นและอย่างระมัดระวัง ก็จะสามารถเพิ่มความเร็วแอพพลิเคชั่นของเราเองได้อย่างมาก ...

ตัวอย่างการใช้งาน CopyMemory ...  ลองนำไปทดสอบกับปริมาณข้อมูลสตริงจำนวนเยอะๆดูน่ะครับ

1. '// การคัดลอกตำแหน่งที่เก็บข้อมูลด้วย CopyMemory API โดยจะให้ VarPtr (Variable Pointer) เป็นตัวชี้ตำแหน่ง
   
2. CopyMemory ByVal VarPtr(sSource), ByVal VarPtr(sDest), 4
   

คัดลอกไปที่คลิปบอร์ด

มาดูโค้ดกันเถอะ ...

1. ' / --------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / MORE: http://www.g2gnet.com/webboard
   
8. ' /
   
9. ' / Purpose: Fast String SWAP.
   
10. ' / Microsoft Visual Basic 6.0 (SP6)
    
11. ' /
    
12. ' / This is open source code under @CopyLeft by Thongkorn/Common Tubtimkrob.
    
13. ' / You can modify and/or distribute without to inform the developer.
    
14. ' / --------------------------------------------------------------------------
    
15. Option Explicit
    
16. 
    
17. '// Using the CopyMemory/RtlMoveMemory api can be extremely
    
18. '// dangerous to your IDE (and your app!). But used carefully can
    
19. '// speed up your app tremendously.
    
20. 
    
21. Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Dest As Any, Source As Any, ByVal lNumBytes As Long)
    
22. Private Declare Function SysReAllocString Lib "oleaut32.dll" (ByVal pBSTR As Long, Optional ByVal pszStrPtr As Long) As Long
    
23. 
    
24. ' / --------------------------------------------------------------------------
    
25. Public Function GetStrFromPtr(ByVal Ptr As Long) As String
    
26. ' / --------------------------------------------------------------------------
    
27.     SysReAllocString VarPtr(GetStrFromPtr), Ptr
    
28. End Function
    
29. 
    
30. ' / --------------------------------------------------------------------------
    
31. ' Using this routine is quicker than
    
32. ' sTmp = sDest
    
33. ' sDest = sSource
    
34. ' sSource = sTmp
    
35. Public Sub SwapStr(sSource As String, sDest As String)
    
36. ' / --------------------------------------------------------------------------
    
37.     Dim lSaveAddr As Long
    
38.    
    
39.     '// Save memory descriptor for sSource
    
40.     lSaveAddr = StrPtr(sSource)
    
41.     '// Copy memory descriptor of sDest to sSource
    
42.     CopyMemory ByVal VarPtr(sSource), ByVal VarPtr(sDest), 4
    
43.     '// Copy memory descriptor of sSource to sDest
    
44.     CopyMemory ByVal VarPtr(sDest), lSaveAddr, 4
    
45. End Sub
    
46. 
    
47. ' / --------------------------------------------------------------------------
    
48. Private Sub Command1_Click()
    
49. ' / --------------------------------------------------------------------------
    
50.     Dim Str1 As String, Str2 As String
    
51.     Str1 = Text1.Text '// Source String
    
52.     Str2 = Text2.Text '// Destination String
    
53.     '// SWAP STRING
    
54.     Call SwapStr(Str1, Str2)
    
55.     '// Display output.
    
56.     Text1.Text = GetStrFromPtr(StrPtr(Str1))
    
57.     Text2.Text = GetStrFromPtr(StrPtr(Str2))
    
58. End Sub
    
59. 
    
60. Private Sub Form_Load()
    
61.     Text1.Text = "This is a message from source."
    
62.     Text2.Text = "This is a message from destination."
    
63. End Sub

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ VB6 ได้ที่นี่ ...