Multistring im Filesystem

Anfängerfragen zum Programmieren mit PureBasic.
eiban
Beiträge: 33
Registriert: 07.12.2005 15:30
Wohnort: Irlach

Multistring im Filesystem

Beitrag von eiban »

Hallo PureBoard.

Ich hab eine Frage, unzwar wie bekomme ich eine mehrzeilige Textdatei
in ein Multistringstringgadget?

Befehle bitte für V3.30

Danke für ALLE Antworten! <)
Benutzeravatar
AND51
Beiträge: 5220
Registriert: 01.10.2005 13:15

Beitrag von AND51 »

Hallo!

gibt's unter 3.30 schon den Befehl ReadString()? Dann machst du es so:

Datei öffnen, mit einer Schleife und dem o. g. Befehl Zeile für Zeile lesen und in das Gadget übertragen. Dabei nicht vergessen, manuell einen Zeilenumbruch hinzuzufügen. So in etwa:

Code: Alles auswählen

SetGadgetText(#string, GetGadgetText(#string)+ReadString()+Chr(10)+chr(13))
PB 4.30

Code: Alles auswählen

Macro Happy
 ;-)
EndMacro

Happy End
eiban
Beiträge: 33
Registriert: 07.12.2005 15:30
Wohnort: Irlach

Beitrag von eiban »

Das Funktioniert leider nicht!

Es kommt dann hinter der 1. Zeile nur so ein Komischer Strich.
Geht das auch irgend wie anders ? Mit Wend???

Ich weis nicht? :freak:
Benutzeravatar
#NULL
Beiträge: 2237
Registriert: 20.04.2006 09:50

Beitrag von #NULL »

pb 3.94 - bin mir nicht sicher ob du noch was für 3.3 ändern mußt..

Code: Alles auswählen

OpenWindow(0,0,0,400,600,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"StringGadget Flags")
CreateGadgetList(WindowID(0))
	StringGadget(0, 2,2, 400-4,600-4, "", #PB_String_MultiLine)

file.s="C:\test\test.txt"
If ReadFile(0, file)
	While Eof(0)=0
		text.s+ReadString()+Chr(13)+Chr(10)
	Wend
	CloseFile(0)
EndIf

SetGadgetText(0, text)

Repeat
Until WaitWindowEvent()=#PB_Event_CloseWindow
<edit: sorry, fehlte noch was>
my pb stuff..
Bild..jedenfalls war das mal so.
Antworten