Array oder Textdatei packen und includen (CatchText)
Verfasst: 26.07.2006 08:25
Für mein Übersetzungsprogramm habe ich bisher eine Datei woerterbuch.txt, die z.B. so aussieht
Die Wortliste hat 100000 Wörter und ich lese sie bisher mit ReadFile ein und weise sie
für die weitere Verarbeitung zeilenweise dem Array Dim Wortlistenzeile.s(100000) zu.
Kann man dieses Array oder das woerterbuch.txt irgendwie mit den Pack-Funktionen
und der include-Funktion so einbauen, dass am Ende nur eine exe-herauskommt und
man sich das Einlesen sparen kann, weil sofort das Array "ausgepackt" wurde?
CatchText gibt es ja leider nicht.
Code: Alles auswählen
Ananas
Apfel
Banane
Birne
Erdbeere
Kiwi
Orange
...
Zitrone für die weitere Verarbeitung zeilenweise dem Array Dim Wortlistenzeile.s(100000) zu.
Code: Alles auswählen
;PB4
; ************* Variablen Deklaration *************
woerterbuchdatei$ = "woerterbuch.txt" ; aktuelles Wörterbuch
Dim Wortlistenzeile.s(100000) ; Wörter in Array
; ************* Wörterbuch einlesen *************
ReadFile(0, woerterbuchdatei$)
i.l=1 ; mit 1 gehts los
While Eof(0) = 0 ; Schleife bis Ende der Datei
Wortlistenzeile(i) = ReadString(0) ; Zeile für Zeile lesen
i=i+1
Wend
i=i-1
AnzahlWortlistenzeilen = i ; Anzahl der Wörterbucheinträge
ReDim Wortlistenzeile.s(i+1) ; Array entsprechend verkürzen
CloseFile(0)
; ************* Ausgabe *************
Debug Wortlistenzeile(AnzahlWortlistenzeilen) ; Test= letzte Zeile ausgeben Kann man dieses Array oder das woerterbuch.txt irgendwie mit den Pack-Funktionen
und der include-Funktion so einbauen, dass am Ende nur eine exe-herauskommt und
man sich das Einlesen sparen kann, weil sofort das Array "ausgepackt" wurde?
CatchText gibt es ja leider nicht.