Array oder Textdatei packen und includen (CatchText)

[Eckhard.S]

Für mein Übersetzungsprogramm habe ich bisher eine Datei woerterbuch.txt, die z.B. so aussieht

Code: Alles auswählen

Ananas
Apfel
Banane
Birne
Erdbeere
Kiwi
Orange
...
Zitrone 

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.

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.

[ts-soft]

>> CatchText gibt es ja leider nicht.
PeekS

Ansonsten hilft Dir die Boardsuche weiter. Z.B. im PBOSL findeste:
PBOSL_DBin
oder im IncludePack: FastPreferences_Includes.pbi

PBOSL: siehe Signatur
IncludePack: siehe http://www.purebasic.fr/german/viewtopic.php?t=9190