PureBoard

Verfasst: **21.02.2008 16:48**

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:)

Verfasst: **21.02.2008 17:00**

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

Verfasst: **21.02.2008 17:18**

Code: Alles auswählen
ReadFile(0, File$)

<gebetsmuehle>

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

</gebetsmuehle>

Grüße ... Kiffi

PureBoard

Alle String einer Textdatei lesen

Alle String einer Textdatei lesen