Habe folgenden Code verbrochen (bin absoluter PB-Neuling) und bin auf ein etwas seltsames Verhalten gestossen. In der Zeile TextGadget(#Text_3,...) sollte ja eigentlich nach dem compilieren in dem #Text_3 Gadget ein Semikolon stehen. Bei allen anderen TextGadgets funktioniert das, nur dort nicht. Ich komme einfach nicht dahinter, was ich Dussel falsch mache.
Falls mich jemand erleuchten könnte wäre das super!
Noch was: beim kopieren des Source in dieses Textfile hat's die Einrückungen nicht mitgenommen... Die Problemzeile ist fett markiert.
Grüsse und Vielen Dank im Voraus
Klaus
Code: Alles auswählen
; KN - Test 20090624
Global Dateiname.s
Global Trennzeichen.s
Global Kopfzeilen.s
Enumeration
#Window_0
#ExplorerTree_0
#Button_0
#Button_1
#String_0
#Frame3D_0
#Radio_1
#Radio_2
#Radio_3
#Radio_4
#String_1
#Text_0
#Text_1
#Text_2
#Text_3
EndEnumeration
;
; Mit folgender Prozedur wird die zu importierende Textdatei ausgewählt
;
Procedure Open_Window_0()
If OpenWindow(#Window_0, 216, 0, 482, 400, "Fileauswahl", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
If CreateGadgetList(WindowID(#Window_0))
ExplorerTreeGadget(#ExplorerTree_0, 30, 20, 240, 210, "")
ButtonGadget(#Button_0, 30, 240, 100, 30, "OK")
ButtonGadget(#Button_1, 150, 240, 100, 30, "BEENDEN")
TextGadget(#Text_0, 300, 30, 100, 20, "Anzahl Kopfzeilen:")
StringGadget(#String_0, 390, 30, 60, 20, "")
TextGadget(#Text_1, 310, 70, 80, 20, "Trennzeichen:")
Frame3DGadget(#Frame3D_0, 300, 60, 150, 190, "")
OptionGadget(#Radio_1, 320, 100, 70, 20, "Komma")
OptionGadget(#Radio_2, 320, 130, 80, 20, "Semikolon")
OptionGadget(#Radio_3, 320, 160, 90, 20, "Leerzeichen")
OptionGadget(#Radio_4, 320, 190, 20, 20, "")
StringGadget(#String_1, 340, 190, 30, 20, "")
TextGadget(#Text_2, 30, 300, 240, 80, "",#PB_Text_Border )
TextGadget(#Text_3, 350, 300, 50, 40, ";", #PB_Text_Border) ;****
EndIf
SetGadgetState(#Radio_3,1)
EndIf
Repeat
EventID = WaitWindowEvent()
If #Button_0 = EventGadget()
DateiName = GetGadgetText(#ExplorerTree_0)
SetGadgetText(#Text_2,DateiName)
EndIf
If #Button_1 = EventGadget()
Quit =1
EndIf
If #Radio_1 = EventGadget()
Trennzeichen = ","
ElseIf #Radio_2 = EventGadget()
Trennzeichen = ";"
ElseIf #Radio_3 = EventGadget()
Trennzeichen = " "
ElseIf #Radio_4 = EventGadget()
Trennzeichen = GetGadgetText(#String_1)
EndIf
If EventID = #PB_Event_CloseWindow
Quit = 1
EndIf
SetGadgetText(#Text_3, Trennzeichen)
Until Quit=1
EndProcedure
Open_Window_0()
)