Seite 1 von 3

text datei auslessen und im StringGadget() darstellen

Verfasst: 31.07.2005 20:48
von 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

Verfasst: 31.07.2005 20:56
von sen-me
probiers mal mit DateiInhalt$
(überall bei DateiInhalt ein $ hinten dran stezen)

Verfasst: 31.07.2005 21:35
von 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).

Verfasst: 31.07.2005 21:39
von sen-me
ich muss trotzdem bei meinen strings immer $ dran schreiben -.-

ka warum aber nur so funktionierts

Verfasst: 31.07.2005 21:40
von AndyX
Es geht doch auch Variable.s :roll:

Verfasst: 31.07.2005 21:44
von 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.

Verfasst: 31.07.2005 21:44
von 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)

Verfasst: 31.07.2005 21:45
von AndyX
Musst du nicht :wink:

Verfasst: 31.07.2005 21:48
von Andre
sen-me hat geschrieben: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... :wink:

Verfasst: 01.08.2005 03:46
von 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