Wozu? Strings selbst liegen auch "normal" im Speicher.Martin66119 hat geschrieben:Diesen könnte ich also verwenden, um meine Zeichenkette direkt in den Speicher zu schreiben.
Ja wird er.Martin66119 hat geschrieben:Wird der String im Memory mut Null abgeschlossen.
Code: Alles auswählen
*MemoryID = AllocateMemory(1000)
D.s = "Welt "
*Pointer = *MemoryID
CopyMemoryString("Hallo ", @*Pointer)
CopyMemoryString(D.s)
CopyMemoryString("Meisterschaft")
*NewMemoryID = ReAllocateMemory(*MemoryID, 2000) ; need more memory
If *NewMemoryID
; work with *NewMemoryID now with size 2000
;
Debug "The old content is still here:"
Debug PeekS(*NewMemoryID)
FreeMemory(*NewMemoryID)
Else
; resizing failed, keep working with *MemoryID (size 1000)
;
FreeMemory(*MemoryID)
EndIf
Das Problem ist, dass ich wahrscheinlich mittlerweile schon so weit ins Detail gegangen bin, dass du verschiedene Aussagen miteinander vermischst. Es wird nichts bringen irgendwie nachträglich die Strings in einen gemeinsamen Speicherbereich zu schreiben, sondern das müsste man schon von Anfang an machen. Also die Datei als kompletten Block in den Speicher laden, statt Zeilentrennern Nullbytes rein schreiben und den Pointer auf den Anfang der Strings bzw. Zeilen in ein Array oder eine Liste schreiben. Dieses Array dann z.B. parallelisiert sortieren und dann vergleichen.Martin66119 hat geschrieben:Was ich, so hoffe ich wenigstens, hinbekomme ist die beiden LinkList nach dem Sortieren in den Memory zu legen und dabei die StringLänge beim einlesen in FeldListe1() und FeldList2() zu schreiben. Das dauert ca. 2ms für die Berechnung der Längen. Da die ganze Auswertung mit deinem Code nur 6 ms dauert, bringt das wohl eher nichts.
Code: Alles auswählen
Structure CompareMapStruc
ExistsInFile1.i
ExistsInFile2.i
EndStructure
#Slots = 512 ; Dieser Wert erhöhen, um die Zugriffsgeschwindigkeit bei großen Datenmengen zu erhöhen (siehe PB-Hilfe)
NewMap Compare.CompareMapStruc(#Slots)
If ReadFile(0, "Datei_1")
While Not Eof(0)
Compare(ReadString(0))\ExistsInFile1 + 1
Wend
CloseFile(0)
EndIf
If ReadFile(0, "Datei_2")
While Not Eof(0)
Compare(ReadString(0))\ExistsInFile2 + 1
Wend
CloseFile(0)
EndIf
ForEach Compare()
If Compare()\ExistsInFile1 And Not Compare()\ExistsInFile2
Debug "Nur in Datei 1: " + MapKey(Compare())
Debug " Anzahl: " + Str(Compare()\ExistsInFile1)
Debug "---------------------------------------------"
ElseIf Compare()\ExistsInFile2 And Not Compare()\ExistsInFile1
Debug "Nur in Datei 2: " + MapKey(Compare())
Debug " Anzahl: " + Str(Compare()\ExistsInFile2)
Debug "---------------------------------------------"
EndIf
NextDatei 1 hat geschrieben:Hans
Peter
Thomas
Die Beispieldateien oben wären also laut dem Code identisch, obwohl die ersten zwei Zeilen unterschiedlich sind.Datei 2 hat geschrieben: Peter
Hans
Thomas