SwapStr - String-Variablen schnell tauschen Es werden nur die internen Adressen der String-Variablen vertauscht.
Autor:   Jost Schwider	Bewertung:	Views:  13.303
www.vb-tec.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Die nachfolgende Routine tauscht die Inhalte zweier String-Variablen. Die hier vorgestellte Version ist insbesondere bei grossen Strings über 1000-mal schneller als der übliche Tausch in drei Schritten.

' Allgemeine Deklaration
Private Declare Sub RtlMoveMemory Lib "kernel32" ( _
   ByVal DestPtr As Long, _
  ByVal SourcePtr As Long, _
  ByVal Bytes As Long)
 
' Die Prozedur tauscht die Inhalte von a und b
Public Sub SwapStr(ByRef a As String, ByRef b As String)
  Dim Ptr As Long
 
  Ptr = StrPtr(a)
  RtlMoveMemory VarPtr(a), VarPtr(b), Len(Ptr)
  RtlMoveMemory VarPtr(b), VarPtr(Ptr), Len(Ptr)
End Sub

Beispiel:

a = String$(2000, "a")
b = String$(2000, "b")
SwapStr a, b
 
' ==> a = bbbbbbb...
' ==> b = aaaaaaa...

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.