text datei auslessen und im StringGadget() darstellen

[IcedCoffee]

Moin

wie kann ich eine txt datei öffnen und im StringGadget() darstellen weil ich habe mir den code geschrieben und der geht nicht

Code: Alles auswählen

DateiInhalt = ""
DateiPfad = OpenFileRequester("Text auswählen","file:\\\","Text (*.txt)|*.txt",0)
If OpenFile(0, DateiPfad)
  Repeat
    DateiInhalt = DateiInhalt +Chr(10)+ ReadString()
  Until Eof(0)
  CloseFile(0)
  SetGadgetText(#String_0, DateiInhalt)
EndIf

nicht wundern die var's wurden schon alle weiter oben deklariert

[sen-me]

probiers mal mit DateiInhalt$
(überall bei DateiInhalt ein $ hinten dran stezen)

[AndyX]

@sen-me:

nicht wundern die var's wurden schon alle weiter oben deklariert

@IcedCoffee:

Was funktioniert denn nicht?

Mir würde spontan einfallen statt Chr(10), Chr(13)Chr(10).

[sen-me]

ich muss trotzdem bei meinen strings immer $ dran schreiben -.-

ka warum aber nur so funktionierts

[AndyX]

Es geht doch auch Variable.s

[Andre]

Ein String - und nur dieser Variablentyp kann Text aufnehmen - wird entweder mit:

DateiInhalt$ ($ muss dann immer angefügt werden)

oder

DateiInhalt.s (.s muss nur beim erstmaligen Aufruf des Variablennamens angegeben werden, damit wird die Variable 'DateiInhalt' als vom String deklariert)

angegeben. Zu beachten: DateiInhalt$ und DateiInhalt.s sind zwei verschiedene Variablen!

Für Dein Beispiel reicht es also auch, wenn Du zu Beginn

DateiInhalt.s = ""

schreibst.

[sen-me]

ich muss immer so machen

Code: Alles auswählen

Global DateiInhalt.s
ReadFile(0, "test.txt")
DateiInhalt$=ReadString()
CloseFile(0)
MessageRequester("String",DateiInhalt$,#PB_MessageRequester_Ok)

[AndyX]

Musst du nicht

[Andre]

ich muss immer so machen

Code: Alles auswählen

Global DateiInhalt.s
ReadFile(0, "test.txt")
DateiInhalt$=ReadString()
CloseFile(0)
MessageRequester("String",DateiInhalt$,#PB_MessageRequester_Ok)

DateiInhalt.s und DateiInhalt$ sind zwei verschiedene Variablen in PB. Also kein Wunder...

[IcedCoffee]

THX @AndyX das mit der Chr(10) ist irgent wie mein fehler gewessen weil so gehts jetzt :

Code: Alles auswählen

DateiPfad = OpenFileRequester("Text auswählen","file:\\\","Text (*.txt)|*.txt",0)
If OpenFile(0, DateiPfad)
  DateiInhalt = ""
  Repeat
    DateiInhalt = DateiInhalt+Chr(13)+Chr(10)+ReadString()
  Until Eof(0)
  CloseFile(0)
  DateiInhalt = Mid(DateiInhalt, 3, Len(DateiInhalt)-2) 
  SetGadgetText(#String_0, DateiInhalt)
EndIf

und @Andre
das Inhalt$ und Inhalt zwei verschiedene var's sind weis ihc
ich meinte mit dem ...weiter oben deklariert mur das ich Inhalt.s schon gemacht habe

also mit DateiInhalt = "" sage ich nur das der string DateiInhalt keinen inhalt haben soll