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

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 23 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 4.6 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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...