Alle String einer Textdatei lesen

[Fox]

Hi.. nun brauch ich schon wieder eure Hilfe ... tut mir leid.
Ich will alle Strings von ner Textdatei auslesen und in mein Editorgadget einfügen. Es klappt alles bid auf das, dass nur der 1 string hier:

Code: Alles auswählen

              SetGadgetText(0,"")
              StandardFile$ = "" 
  Pattern$ = "Textdateien/ E-Books (*.txt)|*.txt;"
  Pattern = 0
  File$ = OpenFileRequester("", StandardFile$, Pattern$, Pattern)
  If File$
    MessageRequester("", "E-Book wurde eingelesen")
      ReadFile(0, File$)   
      While Eof(0) = 0  
   SetClipboardText(ReadString(0)) 
       Wend
    CloseFile(0)   
  Else
  EndIf
      
              SendMessage_(GadgetID(0),#WM_PASTE,0,0)

bzw der letzte string eingelesen und eingefügt werden.

Code: Alles auswählen

              SetGadgetText(0,"")
              StandardFile$ = "" 
  Pattern$ = "Textdateien/ E-Books (*.txt)|*.txt;"
  Pattern = 0
  File$ = OpenFileRequester("", StandardFile$, Pattern$, Pattern)
  If File$
    MessageRequester("", "E-Book wurde eingelesen")
      ReadFile(0, File$)   
   SetClipboardText(ReadString(0)) 
    CloseFile(0)   
  Else
  EndIf
      
              SendMessage_(GadgetID(0),#WM_PASTE,0,0)

wie kann ich alle strings einlesen und ausgeben lassen?

Hoffe auf antwort
Danke:)

[STARGÅTE]

also ich würde es nicht so umständlich über die Zwischenablage regeln sonder einfach so:

Code: Alles auswählen

            SetGadgetText(0,"") 
              StandardFile$ = "" 
  Pattern$ = "Textdateien/ E-Books (*.txt)|*.txt;" 
  Pattern = 0 
  File$ = OpenFileRequester("", StandardFile$, Pattern$, Pattern) 
  If File$ 
    MessageRequester("", "E-Book wurde eingelesen") 
      ReadFile(0, File$)    
      While Eof(0) = 0  
   AddGadgetItem(0,-1,ReadString(0)) 
       Wend 
    CloseFile(0)    
  Else 
  EndIf 

oder du ließt gleich die ganze datei ein:

Code: Alles auswählen

            SetGadgetText(0,"") 
              StandardFile$ = "" 
  Pattern$ = "Textdateien/ E-Books (*.txt)|*.txt;" 
  Pattern = 0 
  File$ = OpenFileRequester("", StandardFile$, Pattern$, Pattern) 
  If File$ 
    MessageRequester("", "E-Book wurde eingelesen") 
      ReadFile(0, File$)    
       Text$ = Space(Lof(0))
       ReadData(1, @Text$,Lof(0))
       SetGadgetText(0, Text$) 
     CloseFile(0)    
  Else 
  EndIf 

[Kiffi]

Code: Alles auswählen

ReadFile(0, File$)

<gebetsmuehle>

... und immer schön testen, ob ReadFile() auch geklappt hat.

</gebetsmuehle>

Grüße ... Kiffi