In diesem Forum haben Sie die Möglichkeit Kommentare, Fragen und Verbesserungsvorschläge zu den im vb@rchiv gelisteten Tipps und Workshops zu posten. Hinweis: Ein neues Thema kann immer nur über die jeweilige Tipps & Tricks bzw. Workshop Seite eröffnet werden!

Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: String-Arrays verbinden
Autor: Rollator
Datum: 15.01.09 20:11
Hallo icetea123, alles ok, irgendwann werde ich auch mal wechseln müssen... Ich habe noch eine Lösung mit RtlMoveMemory erarbeitet, die arbeitet jetzt recht flott: Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _ (Dest As Any, Source As Any, ByVal Bytes As Long) Sub StringFelderVerbindenPtrInklKillSource2 _ (ByRef Source1() As String, ByRef Source2() As String, _ ByRef ZielFeld() As String) 'Hier werden nur noch die Pointer "geswapt"! 'Achtung: Source2() ist nach dem Aufruf immer leer, 'muss ggf. vorher gesichert werden. 'Achtung: Lbound(Source1()) = 0 wird erwartet. 'Achtung: Lbound(Source2()) = 0 wird erwartet. 'StringFelderVerbindenPtr... Source1(), Source2(), Source1() ist ok! Dim BackUpArray() As Long Dim CopyByteAnzahl As Long Dim UBSource1 As Long Dim UBSource2 As Long Dim Source1ok As Boolean Dim Source2ok As Boolean If (Not (Not Source1())) <> 0 Then Source1ok = True If (Not (Not Source2())) <> 0 Then Source2ok = True 'Normalfall, beide Felder nicht leer If Source1ok = True And Source2ok = True Then 'Eckwerte holen UBSource1 = UBound(Source1()) UBSource2 = UBound(Source2()) 'Zielfeld herrichten ZielFeld() = Source1() ReDim Preserve ZielFeld(UBSource1 + UBSource2 + 1) 'BakupFeld herrichten ReDim BackUpArray(UBSource2 + 1) 'Anzahl definieren CopyByteAnzahl = (UBSource2 + 1) * 4 'copy Memory (1), 'Zeiger der oberen, leeren Zielfeld-Plätze -> BackUpArray CopyMemory ByVal VarPtr(BackUpArray(0)), _ ByVal VarPtr(ZielFeld(UBSource1 + 1)), ByVal CopyByteAnzahl 'copy Memory (2), 'Zeiger Source2() -> obere, leere Zielfeld-Plätze CopyMemory ByVal VarPtr(ZielFeld(UBSource1 + 1)), _ ByVal VarPtr(Source2(0)), ByVal CopyByteAnzahl 'copy Memory (3), 'BackUpArray -> Zeiger Source2() CopyMemory ByVal VarPtr(Source2(0)), _ ByVal VarPtr(BackUpArray(0)), ByVal CopyByteAnzahl 'Sonderfälle ElseIf Source1ok = False And Source2ok = False Then ' beide leer ZielFeld() = Split("", vbCrLf$, -1, vbBinaryCompare) ElseIf Source1ok = False Then ' Feld 1 leer / Feld 2 nicht leer ZielFeld() = Source2() ElseIf Source2ok = False Then ' Feld 2 leer / Feld 1 nicht leer ZielFeld() = Source1() End If 'Source2() löschen, wurde sowieso geändert, ggf. vorher sichern Source2() = Split("", vbCrLf$, -1, vbBinaryCompare) End Sub Bis denne Rollator

Tipp 1950: String-Arrays verbinden	4.989	icetea123	14.01.09 20:56
Re: String-Arrays verbinden	2.098	Rollator	14.01.09 22:39
Re: String-Arrays verbinden	2.159	icetea123	15.01.09 14:10
Re: String-Arrays verbinden	2.190	Rollator	15.01.09 20:11

Sie sind nicht angemeldet! Um einen neuen Beitrag schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen