Conifg Files und die Benutzung

Anfängerfragen zum Programmieren mit PureBasic.
Antworten
Benutzeravatar
Fox
Beiträge: 75
Registriert: 08.08.2007 10:14
Kontaktdaten:
Kontaktdaten von Fox

Conifg Files und die Benutzung

Beitrag von Fox »

Hi, ich bin bei meinem Netzwerk Sync Programm nun fast fertig...
Aber nun habe ich ein Problem beim auslesen meiner Cofig Files...
Ich weiss nicht was ich machen muss... Er gibt mir ne Fehlermeldung
Case without Select aus aber was soll ich denn da machen?
Hier mal mein kompletter Source

Code: Alles auswählen

 
#TreeGadget = 0 

Procedure ReadDirs(Path.s, Rek.l) 
  If Right(Path, 1) = "\" : Path = Left(Path, Len(Path) - 1) : EndIf 
  
  NextOK.l 
  Name.s 
  ExamineDirectory(Rek, Path, "") 
  
  Repeat 
    NextOK = NextDirectoryEntry(Rek) 
    Name = DirectoryEntryName(Rek) 
    If NextOK = 2 And Name <> "." And Name <> ".." 
      ReadDirs(Path + "\" + Name, Rek + 1) 
      While WindowEvent() : Wend 
    ElseIf NextOK = 1 
      AddGadgetItem(0, -1, Path + "\" + Name) 
    EndIf 
  Until NextOK = #False 
EndProcedure 


Procedure ReadDir(Path.s, Rek.l) 
  If Right(Path, 1) = "\" : Path = Left(Path, Len(Path) - 1) : EndIf 
  
  NextOK.l 
  Name.s 
  ExamineDirectory(Rek, Path, "") 
  
  Repeat 
    NextOK = NextDirectoryEntry(Rek) 
    Name = DirectoryEntryName(Rek) 
    If NextOK = 2 And Name <> "." And Name <> ".." 
      ReadDirs(Path + "\" + Name, Rek + 1) 
      While WindowEvent() : Wend 
    ElseIf NextOK = 1 
      AddGadgetItem(1, -1, Path + "\" + Name) 
    EndIf 
  Until NextOK = #False 
EndProcedure 




Enumeration
  #Window_0
EndEnumeration

;
Enumeration
  #Listview_0
  #Listview_1
  #Button_0
  #Button_1
  #Button_2
EndEnumeration


  If OpenWindow(#Window_0, 216, 0, 600, 346, "Netzwerk Sync",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#Window_0))
      ListViewGadget(#Listview_0, 325, 10, 235, 265)
      ListViewGadget(#Listview_1, 15, 10, 235, 265)
      ButtonGadget(#Button_0, 255, 95, 65, 35, "-->")
      ButtonGadget(#Button_1, 255, 155, 65, 35, "<--")
      ButtonGadget(#Button_2, 195, 320, 170, 20, "Configuartion")
            ReadDirs("\\User\SharedDocs", 0) 
                  ReadDir("C:\", 1) 
     Repeat 
      event=WaitWindowEvent() 
      Select event 
        Case #PB_Event_Gadget 
          Select EventGadget() 
Case #Button_0  
  n = 3 
If ReadFile(0, "config.ini")      
  For z = 1 To n-1 
    ReadString(0) 
  Next      
  CloseFile(0)                
Else 
  MessageRequester("","Config File not found") 
     
     
     n = 7
If ReadFile(1, "config.ini")      
  For z = 1 To n-1 
    ReadString(1) 
  Next      
  CloseFile(1)                
Else 
  MessageRequester("","Config File not found") 

       CopyDirectory(ReadString(0), ReadString(1), "", #PB_FileSystem_Recursive)
     MessageRequester("","Synchronizing finished")
     
Case #Button_1 
       CopyDirectory("\\User\SharedDocs\bilder", "C:\", "", #PB_FileSystem_Recursive)       
Case #Button_2       
 XIncludeFile "config.pb"
  Repeat 
    Until WaitWindowEvent() = #PB_Event_CloseWindow
  End
   End
          EndSelect 
      EndSelect 
    Until event=#PB_Event_CloseWindow 
  EndIf 
EndIf 
  EndIf
Hoffe ihr könnt mir helfen

Gruß

Fox
Nach oben
Benutzeravatar
Kiffi
Beiträge: 10714
Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9

Re: Conifg Files und die Benutzung

Beitrag von Kiffi »

@Fox: Das hat nix mit der Config-Datei zu tun, sondern mit Deiner
Programmstruktur. Formatiere den Code mal anständig und Du wirst von
selber draufkommen ;-)

Außerdem hast Du 2mal ein WaitWindowEvent() in Deiner Schleife.
Dadurch werden einige Events verschluckt.

Grüße ... Kiffi
a²+b²=mc²
Nach oben
marco2007
Beiträge: 906
Registriert: 26.10.2006 13:19
Kontaktdaten:
Kontaktdaten von marco2007

Beitrag von marco2007 »

Code: Alles auswählen

If..
else.. 

case...
Endif?
Windows 11 - PB 6.03 x64
_________________________________
Nach oben
Benutzeravatar
BlueHoschi
Beiträge: 97
Registriert: 02.10.2007 07:19

Beitrag von BlueHoschi »

Dein Code:

Code: Alles auswählen

select...

   If...
   Else...
Case ....

Endselect...
   Endif...
Besser:

Code: Alles auswählen

select...
case...
   if...   ;notfalls in der If-Auswahl Variable setzen
   else...  
   endif...  ;EndIf innerhalb der Case-Auswertung
Case...
.
.
.
Endselect
Dein Code ist selbst für den Interpreter zu verschachtelt :wink: **schwitz**
Wer Dir Steine in den Weg legt, pflastert den vielleicht.

PB 5.21, Win 7 64 bit
Nach oben
Benutzeravatar
ts-soft
Beiträge: 22292
Registriert: 08.09.2004 00:57
Computerausstattung: Mainboard: MSI 970A-G43
CPU: AMD FX-6300 Six-Core Processor
GraKa: GeForce GTX 750 Ti, 2 GB
Memory: 16 GB DDR3-1600 - Dual Channel
Wohnort: Berlin

Beitrag von ts-soft »

Bild
Zuletzt geändert von ts-soft am 31.05.2008 16:51, insgesamt 4-mal geändert.
PureBasic 5.73 LTS | SpiderBasic 2.30 | Windows 10 Pro (x64) | Linux Mint 20.1 (x64)
Nutella hat nur sehr wenig Vitamine. Deswegen muss man davon relativ viel essen.
Bild
Nach oben
Benutzeravatar
Kiffi
Beiträge: 10714
Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9

Beitrag von Kiffi »

jaPBe

// Edit: Ok, ich gebe auf! Thomas, der Punkt geht an Dich :allright:
Zuletzt geändert von Kiffi am 31.05.2008 23:57, insgesamt 2-mal geändert.
Nach oben
Benutzeravatar
scholly
Beiträge: 793
Registriert: 04.11.2005 21:30
Wohnort: Düsseldorf

Beitrag von scholly »

Ich blick zwar nich so janz, was Kamerad Reineke da vorhat, aber ich bekomm nachm aufräumen was angezeigt :lol:

Code: Alles auswählen

#TreeGadget = 0

Procedure ReadDirs(Path.s, Rek.l)
  If Right(Path, 1) = "\" : Path = Left(Path, Len(Path) - 1) : EndIf
 
  NextOK.l
  Name.s
  ExamineDirectory(Rek, Path, "")
 
  Repeat
    NextOK = NextDirectoryEntry(Rek)
    Name = DirectoryEntryName(Rek)
    If NextOK = 2 And Name <> "." And Name <> ".."
      ReadDirs(Path + "\" + Name, Rek + 1)
      While WindowEvent() : Wend
    ElseIf NextOK = 1
      AddGadgetItem(0, -1, Path + "\" + Name)
    EndIf
  Until NextOK = #False
EndProcedure


Procedure ReadDir(Path.s, Rek.l)
  If Right(Path, 1) = "\" : Path = Left(Path, Len(Path) - 1) : EndIf
 
  NextOK.l
  Name.s
  ExamineDirectory(Rek, Path, "")
 
  Repeat
    NextOK = NextDirectoryEntry(Rek)
    Name = DirectoryEntryName(Rek)
    If NextOK = 2 And Name <> "." And Name <> ".."
      ReadDirs(Path + "\" + Name, Rek + 1)
      While WindowEvent() : Wend
    ElseIf NextOK = 1
      AddGadgetItem(1, -1, Path + "\" + Name)
    EndIf
  Until NextOK = #False
EndProcedure




Enumeration
  #Window_0
EndEnumeration

;
Enumeration
  #Listview_0
  #Listview_1
  #Button_0
  #Button_1
  #Button_2
EndEnumeration


If OpenWindow(#Window_0, 216, 0, 600, 346, "Netzwerk Sync",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
  If CreateGadgetList(WindowID(#Window_0))
    ListViewGadget(#Listview_0, 325, 10, 235, 265)
    ListViewGadget(#Listview_1, 15, 10, 235, 265)
    ButtonGadget(#Button_0, 255, 95, 65, 35, "-->")
    ButtonGadget(#Button_1, 255, 155, 65, 35, "<--")
    ButtonGadget(#Button_2, 195, 320, 170, 20, "Configuartion")
   EndIf
EndIf

;ReadDirs("\\User\SharedDocs", 0)
ReadDir("C:\", 1)
   
Repeat
  event=WaitWindowEvent()
  Select event
    Case #PB_Event_Gadget
      Select EventGadget()
        Case #Button_0 
          n = 3
          If ReadFile(0, "config.ini")     
            For z = 1 To n-1
              ReadString(0)
            Next     
            CloseFile(0)               
          Else
            MessageRequester("","Config File not found")     
            n = 7
            If ReadFile(1, "config.ini")     
              For z = 1 To n-1
                ReadString(1)
              Next     
              CloseFile(1)               
            Else
              MessageRequester("","Config File not found")
              CopyDirectory(ReadString(0), ReadString(1), "", #PB_FileSystem_Recursive)
              MessageRequester("","Synchronizing finished")
            EndIf 
          EndIf
        Case #Button_1
          CopyDirectory("\\User\SharedDocs\bilder", "C:\", "", #PB_FileSystem_Recursive)       
        Case #Button_2       
          ;XIncludeFile "config.pb"
          Repeat
          Until WaitWindowEvent() = #PB_Event_CloseWindow
          End
      EndSelect
  EndSelect
Until event=#PB_Event_CloseWindow
Ich bin blutiger PB-Anfänger.
seit 17.12.08: PB 4.3 unter XP Home(SP3)
Nach oben
Benutzeravatar
Fox
Beiträge: 75
Registriert: 08.08.2007 10:14
Kontaktdaten:
Kontaktdaten von Fox

Beitrag von Fox »

hi... so ich hab jetzt alle probleme gefixt die ich hatte... aber jetzt bekomm ich die dateien in den listview gadgets nicht mehr angezeigt... weiss aber nicht wieso...

Code: Alles auswählen

 
#TreeGadget = 0 

Procedure ReadDirs(Path.s, Rek.l)                                              ; Quell Computer Datei Listen Procedur
  If Right(Path, 1) = "\" : Path = Left(Path, Len(Path) - 1) : EndIf 
  
  NextOK.l 
  Name.s 
  ExamineDirectory(Rek, Path, "") 
  
  Repeat 
    NextOK = NextDirectoryEntry(Rek) 
    Name = DirectoryEntryName(Rek) 
    If NextOK = 2 And Name <> "." And Name <> ".." 
      ReadDirs(Path + "\" + Name, Rek + 1) 
      While WindowEvent() : Wend 
    ElseIf NextOK = 1 
      AddGadgetItem(0, -1, Path + "\" + Name) 
    EndIf 
  Until NextOK = #False 
EndProcedure 


Procedure ReadDir(Path.s, Rek.l)                                                    ; Ziel Computer Datei Listen Procedur
  If Right(Path, 1) = "\" : Path = Left(Path, Len(Path) - 1) : EndIf 
  
  NextOK.l 
  Name.s 
  ExamineDirectory(Rek, Path, "") 
  
  Repeat 
    NextOK = NextDirectoryEntry(Rek) 
    Name = DirectoryEntryName(Rek) 
    If NextOK = 2 And Name <> "." And Name <> ".." 
      ReadDirs(Path + "\" + Name, Rek + 1) 
      While WindowEvent() : Wend 
    ElseIf NextOK = 1 
      AddGadgetItem(1, -1, Path + "\" + Name) 
    EndIf 
  Until NextOK = #False 
EndProcedure 





Enumeration
  #Window_0
EndEnumeration


Enumeration
  #Listview_0
  #Listview_1
  #Button_0
  #Button_2
  #Config
EndEnumeration


  If OpenWindow(#Window_0, 216, 0, 600, 346, "Network Sync",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#Window_0))
      ListViewGadget(#Listview_0, 325, 10, 235, 265)
      ListViewGadget(#Listview_1, 15, 10, 235, 265)
      ButtonGadget(#Button_0, 255, 95, 65, 35, "Sync")
      ButtonGadget(#Button_2, 195, 320, 170, 20, "Configuartion")
          
      
      n = 1
If ReadFile(0, "config.ini")      
        For z = 1 To n-1 
   ReadString(0) 
        Next      
   CloseFile(0)                
        Else 
     MessageRequester("","Config File not found / Computer wasn't found") 
                  
                  
                                        
ReadDir(ReadString(0), 0)  ; Listet die Dateien des Quell Computers auf
         
         
         
         EndIf
           
        
         
                   
         n = 2
If ReadFile(1, "config.ini")      
        For z = 1 To n-1 
   ReadString(1) 
        Next      
   CloseFile(1)                
        Else 
     MessageRequester("","Config File not found / Computer wasn't found") 
                                                 
                                                 
                                                
      ReadDirs(ReadString(1), 0)                                                       ; Listet die Dateien des Ziel Computers auf
            
            
            
         EndIf   
            
       Repeat 
       event=WaitWindowEvent() 
     Select event 
     Case #PB_Event_Gadget 
       Select EventGadget() 
       
       
   Case #Button_0                                                                ; Liest den Quell Computer aus
         n = 2 
If ReadFile(0, "config.ini")      
        For z = 1 To n-1 
   ReadString(0) 
        Next      
   CloseFile(0)                
        Else 
     MessageRequester("","Config File not found / Computer wasn't found") 
     
     

           CopyDirectory(ReadString(0), ReadString(1), "", #PB_FileSystem_Recursive)   ; Kopiert die Daten vom Quell Computer auf den Ziel Computer
           
   MessageRequester("","Synchronizing finished")
        EndIf
                 
    Case #Button_2       
 
 
     RunProgram("Config.exe")                                                           ; Konfigurations Panel
     
     
        Repeat
         
        Until WaitWindowEvent() = #PB_Event_CloseWindow
        
        End
        End
          
      EndSelect
           
      EndSelect 
       Until event=#PB_Event_CloseWindow 
  
  EndIf 
   EndIf

In der config.ini steht das:

Code: Alles auswählen

C:\
\\User
jetzt bin ich so gut wie fertig gewesen und auf einmal hat es nicht mehr funktioniert... ich weiss auch nicht was ich geändert habe...

hoffe ihr könnt mir nochmal helfe..

Gruß

Fox
Nach oben
Benutzeravatar
scholly
Beiträge: 793
Registriert: 04.11.2005 21:30
Wohnort: Düsseldorf

Beitrag von scholly »

Solange Du den Hauptteil nicht selbst ordentlich strukturierst und einrückst, wird sich kaum einer die Arbeit machen. :mrgreen:
Ich bin blutiger PB-Anfänger.
seit 17.12.08: PB 4.3 unter XP Home(SP3)
Nach oben
marco2007
Beiträge: 906
Registriert: 26.10.2006 13:19
Kontaktdaten:
Kontaktdaten von marco2007

Beitrag von marco2007 »

Da können noch mehr Fehler sein.
z.B.: Führ mal diesen Code aus:

Code: Alles auswählen

#TreeGadget = 0 

Enumeration 
  #Window_0 
EndEnumeration 


Enumeration 
  #Listview_0 
  #Listview_1 
  #Button_0 
  #Button_2 
  #Config 
EndEnumeration 

Debug #TreeGadget
Debug #Listview_0


Ich hab`s mir nur grob angesehen
Gäbe es #treeGadget -> Hätte es die selbe Id wie #Listview_0.
...Wozu #treeGadet?

lg
Marco
Windows 11 - PB 6.03 x64
_________________________________
Nach oben
Antworten

Zurück zu „Anfänger“