PureBoard

Verfasst: **29.12.2004 22:16**

Also ich habe ja nun viel alleine gemacht aber nun tauchte wieder ein Problem auf das ich alleine net bewerkstellig kriege.
Also ich habe dazu den Flag #PB_Requester_MultiSelection genommen um mehrere Dateien anzuwählen. Dort kommt aber immer wenn ich mehrere Nehme "Dateiname" "Dateiname" so ich möchte aber die " " nicht drin haben weil es sonst nicht klappt kann ich irgendwie verhondern das diese dort erscheinen?

Verfasst: **29.12.2004 22:22**

wiso klappt das sonst nicht?
du musst nur immer den nächsten datei namen mit nextdateiname$=NextSelectedFileName() abfragen

Verfasst: **29.12.2004 22:26**

Tja ich weiß nicht wie ich es mit diesem befehl machen muss hier ein auszug aus dem Quellcode

Code: Alles auswählen

  Case 23
    Pattern$ = "Alle Dateien (*.*)|*.*" 
    Pattern = 0
    File$ = OpenFileRequester("Bitte Datei zum Laden auswählen", StandardFile$, Pattern$, Pattern, #PB_Requester_MultiSelection)

    
    SetGadgetText(11,GetFilePart(File$) )
    
    EndSelect

Bei Setgadgettext() wird der Dateiname in ein Stringgadget hineingesetzt
aber immer wird nur ein Dateiname hineingesetzt das möchte ich ändern.

Verfasst: **29.12.2004 22:29**

hab mal kurz nen bsp. code gemacht er debuggt alle Selektierten Dateien

Code: Alles auswählen

FileName$=OpenFileRequester("","","*.*|*.*",0, #PB_Requester_MultiSelection)
Debug FileName$

Repeat
NextF$=NextSelectedFileName()
If NextF$ <> ""
Debug NextF$
EndIf
Until NextF$=""

Hoffe er kann die Helfen

//Edit bei deinem Code mit Setgadget text würde sich bei jeden Repeat der GadgetText ändern .....

Verfasst: **29.12.2004 22:36**

Hm erhlich gesagt hats mir nicht geholfen.

Code: Alles auswählen

  Case 23
    Pattern$ = "Alle Dateien (*.*)|*.*" 
    Pattern = 0
    FileName$=OpenFileRequester("","","*.*|*.*",0, #PB_Requester_MultiSelection)
    Debug FileName$ 

Repeat 
NextF$=NextSelectedFileName() 
If NextF$ <> "" 
Debug NextF$ 
EndIf 
Until NextF$=""
    
    SetGadgetText(11,GetFilePart(FileName$) +NextSelectedFileName() )
    
    EndSelect

Bei setgadgettext() hatte ich auch schon +NextF$ statt +NextSelectedFileName() probiert geht aber auch nicht

Verfasst: **29.12.2004 22:40**

so müsstes gehn habs net getestet

:

Code: Alles auswählen

Case 23 
  Pattern$ = "Alle Dateien (*.*)|*.*" 
  Pattern = 0 
  FileName$=OpenFileRequester("Dein Titel","",Pattern$,Pattern, #PB_Requester_MultiSelection) 
  SetGadgetText(11,GetGadgetText(11)+GetFilePart(FileName$))
  
  Repeat 
    NextF$=NextSelectedFileName() 
    If NextF$ <> "" 
      SetGadgetText(11,GetGadgetText(11)+GetFilePart(NextF$))
    EndIf 
  Until NextF$="" 

EndSelect

Verfasst: **29.12.2004 22:44**

es geht

Nur musste ich noch ein +" " hinzufügen weill es sonst alles eins geworden wäre aber danke dafür.
Finde es echt toll das ihr mir helft auch wenn ich mancmel etwas schwierig bin ^^

PureBoard

Hile bei OpenFileRequester

Hile bei OpenFileRequester