Kopiertool

kayes

Zitat

Nein !

Du hast wieder Fehler bei der Klammersetzung in der Zuweisung, und damit 5 Elemente :

Ja, du hast Recht, beim kopieren ist die letzte eckige Klammer nicht mitgekommen. Davor hatte ich beim kopieren deines Codes Probleme und es kam zu Fehlermeldungen.

Jetzt funktioniert es aber soweit mit deinem Code was das Array betrifft.

kayes

So, weiter geht es:

C

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $download
Global $upload
Global $source
Global $dest
Global $aSourceDest = [ ["F:\TESTUMGEBUNG\RECHNER1\Daten\", "F:\TESTUMGEBUNG\RECHNER1\Daten\"], _
                        ["F:\TESTUMGEBUNG\RECHNER2\Daten\", "F:\TESTUMGEBUNG\RECHNER2\Daten\"], _
                        ["F:\TESTUMGEBUNG\RECHNER3\Daten\", "F:\TESTUMGEBUNG\RECHNER3\Daten\"], _
                        ["F:\TESTUMGEBUNG\SERVER\Daten\Dokumente\", "F:\TESTUMGEBUNG\SERVER\Daten\Dokumente\Aussendienst\"]]
; Beginn des Formulars:
$Form1_1 = GUICreate("Datenaustausch   von kayes & Musashi erstellt im Dezember 2018", 592, 284, 197, 145)
; Eingabefeld für das Projekt was vom Server auf den Aussendienstrechner kopiert wird
; vorgegeben wird der Jahrgang 19, danach muss ergänzt werden auf z. B. 19D002 oder 19M003
GUICtrlCreateEdit("", 352, 88, 180, 40, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
Global $Projektdown = GUICtrlSetData(-1, "19")
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
; Eingabefeld für das Projekt was vom Aussendienstrechner auf den Server kopiert wird
; vorgegeben wird der Jahrgang 19, danach muss ergänzt werden auf z. B. 19D002 oder 19M003
GUICtrlCreateEdit("", 40, 168, 180, 40, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
Global $Projektup = GUICtrlSetData(-1, "19")
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
; Auswahl des Aussendienstrechners
Global $rechner1 = GUICtrlCreateRadio("Rechner 1", 40, 16, 140, 40)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
Global $rechner2 = GUICtrlCreateRadio("Rechner 2", 240, 16, 140, 40)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
Global $rechner3 = GUICtrlCreateRadio("Rechner 3", 432, 16, 140, 40)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Tablet", 96, 96, 62, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Aussendienstordner", 355, 174, 192, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
; Downloadbutton wird gesetzt
$down1oad = GUICtrlCreateButton("<=", 256, 96, 28, 28)
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
; Uploadbutton wird gesetzt
$upload = GUICtrlCreateButton("=>", 256, 176, 28, 28)
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

; Auslösen der jeweiligen Funktion über die beiden Buttons Download und Upload
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $download
         copydown()
      Case $upload
         copyup()
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
 WEnd

 ; Erste Funktion Kopieren von Server auf Rechner $Projektdown
 Func copydown()
    ;Prüfung der Radios und setzen der entsprechende Zielvariablen
    If GUICtrlRead($Rechner1) = $GUI_CHECKED Then $dest = $aSourceDest [0] [1]
    If GUICtrlRead($Rechner2) = $GUI_CHECKED Then $dest = $aSourceDest [1] [1]
    If GUICtrlRead($Rechner3) = $GUI_CHECKED Then $dest = $aSourceDest [2] [1]
        Return
      $source = $aSourceDest [3] [0]
;Kopierbefehl mit der $SourceDest [3] [0] und der $dest

   DirCopy ( $source & ($jjjj = "20" & StringTrimRight($Projektdown, 4) & "\" & $Projektdown & "\Berechnungen") , $dest & ($jjjj = "20" & StringTrimRight($Projektdown, 4) & "\" & $Projektdown & "\")  [$FC_CREATEPATH ,$FC_OVERWRITE]

 EndFunc

; Zweite Funktion Kopieren von Rechner auf Server
  Func copyup()
     ;Prüfung der Radios und setzen der entsprechenden Quellvariablen
    If GUICtrlRead($Rechner1) = $GUI_CHECKED Then $source = $aSourceDest [0] [0]
    If GUICtrlRead($Rechner2) = $GUI_CHECKED Then $source = $aSourceDest [1] [0]
    If GUICtrlRead($Rechner3) = $GUI_CHECKED Then $source = $aSourceDest [2] [0]
    Return
      $dest = $aSourceDest [3] [1]
;Kopierbefehl mit der $aSourceDest [3] [1] und der $source
DirCopy ( $source & ($jjjj = "20" & StringTrimRight($Projektup, 4) & "\" & $Projektup & "\Berechnungen") , $dest & ($jjjj = "20" & StringTrimRight($Projektup, 4) & "\" & $Projektup & "\")  $FC_CREATEPATH ,$FC_OVERWRITE]
 EndFunc

Alles anzeigen

Es startet, zeigt aber glaube ich, eine Fehlermeldung an: /ErrorStdOut......

**Musashi**

Hi kayes !

Ist das momentane Skript 'A: ein Prototyp zum Herumtesten' oder 'B: bereits die Basis für das fertige Tool ' ? Falls B: , dann hätte ich einige Vorschläge, die man bereits jetzt einbauen könnte/sollte.

Anmerkung :

In dem Skript hast Du folgende Zeile :

GUICreate("Datenaustausch von kayes & Musashi erstellt im Dezember 2018")

Es gehört immer zum guten Ton Helfer zu nennen , es muss aber nicht unbedingt im Fenstertitel der Anwendung geschehen .

Außerdem bin ich nicht der einzige der bisher etwas beigetragen hat, und es werden ggf. noch andere hinzukommen. Du könntest z.B vor das Skript Wrapperanweisungen und einen Kommentarbereich setzen (inkl. Danksagungen) :

Code

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=MyAutoIt3_Yellow.ico
#AutoIt3Wrapper_UseX64 = N
#AutoIt3Wrapper_UseUpx = N ; interne UPX Komprimierung ausschalten
#AutoIt3Wrapper_Res_SaveSource = N
#AutoIt3Wrapper_Res_Description = Kopiertool
#AutoIt3Wrapper_Res_Fileversion = 1.0.0.5
#AutoIt3Wrapper_Res_LegalCopyright = 2018 by kayes 
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

; ==============================================================================
; Projekt       : Kopiertool 
; bearbeitet am : 19.12.2018
; ==============================================================================
; Danksagungen  : 
; Erstellt unter Mithilfe aus dem autoit.de-Forum von :
; @BugFix, @alpines, @Code-Jack, @Musashi usw.
; ==============================================================================
; Changelog     :
; ...
; ==============================================================================

Alles anzeigen

Gruß Musashi

kayes

Zitat von Musashi

Es gehört immer zum guten Ton Helfer zu nennen , es muss aber nicht unbedingt im Fenstertitel der Anwendung geschehen .

Außerdem bin ich nicht der einzige der bisher etwas beigetragen hat, und es werden ggf. noch andere hinzukommen. Du könntest z.B vor das Skript Wrapperanweisungen und einen Kommentarbereich setzen (inkl. Danksagungen) :

Ich weiss, in einer vorherigen Antwort ( das Kopiertool für Fotos) hatte ich das im Code schon gesehen und ich werde das jetzt auch so hier machen.

Zitat von Musashi

Ist das momentane Skript 'A: ein Prototyp zum Herumtesten' oder 'B: bereits die Basis für das fertige Tool ' ? Falls B: , dann hätte ich einige Vorschläge, die man bereits jetzt einbauen könnte/sollte.

Ganz klar B.

Ich hatte das ja hier herein gepostet, in der Hoffnung, das mir jemand den Code fertig schreibt.

So ist aber auch nicht schlimm, da lerne ich auch noch was dabei. Immerhin weiß ich jetzt ungefähr Arrays zu handhaben.

Ich bin immer offen für Ideen. Bisher habe ich mir immer gedacht schaue wie weit du kommst und denkst es ist richtig, poste es und warte auf Reaktionen.

Was hättest du denn für Vorschläge?

**Musashi**

Zitat von kayes

Was hättest du denn für Vorschläge?

Nur ein Beispiel, und nicht mal ein übermäßig elegantes :

Man könnte die Pfade (und ggf. auch einige Referenzen für die GUI) in eine ini.-Datei auslagern. Das hätte den Vorteil, dass man während der Testphase einfache, und für alle Helfer identische Pfadstrukturen hinterlegen könnte (der funktionale Kern ist ja das Kopieren von A nach B). Außerdem wäre diese Lösung flexibler, z.B. bei einer Erweiterung auf 5+ PC's.

Beim Aufbau des Skriptes und der Notation von Variablen etc. gäbe es auch einiges zu verbessern. So etwas später 'nachzurüsten' wäre aufwendiger als es gleich richtig zu machen.

Du hast korrekterweise die Rubrik 'Ohne Gegenleistung' gewählt, weil Du Dir ein weitgehend fertiges Skript wünscht. Da mein Schreibtisch leider voll ist, möchte ich dazu nichts versprechen, aber es gibt ja noch andere hier im Forum. Außerdem scheinst Du ja auch Gefallen an AutoIt gefunden zu haben .

Gruß Musashi

kayes

nächste Version:

C

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=REORG.ico
#AutoIt3Wrapper_UseX64 = N
#AutoIt3Wrapper_UseUpx = N ; interne UPX Komprimierung ausschalten
#AutoIt3Wrapper_Res_SaveSource = N
#AutoIt3Wrapper_Res_Description = Kopiertool
#AutoIt3Wrapper_Res_Fileversion = 1.0.0.5
#AutoIt3Wrapper_Res_LegalCopyright = 2018 by kayes
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;
; ==============================================================================
; Projekt       : Kopiertool
; bearbeitet am : 19.12.2018
; ==============================================================================
; Danksagungen  :
; Erstellt unter Mithilfe aus dem autoit.de-Forum von :
; @Musashi, @BugFix, @alpines, @Code-Jack  usw.
; ==============================================================================
; Changelog     :
; Setzen der Pfade für Quelle und Ziel
; 1. Versuch Kopierbefehl
; Variable $jjjj definiert und aus dem Kopierbefehl herausgenommen
; Wrapperanweisungen und Kommentarbereich hinzugefügt
; ==============================================================================
Global $download
Global $upload
Global $source
Global $dest
Global $aSourceDest = [ ["F:\TESTUMGEBUNG\RECHNER1\Daten\", "F:\TESTUMGEBUNG\RECHNER1\Daten\"], _
                        ["F:\TESTUMGEBUNG\RECHNER2\Daten\", "F:\TESTUMGEBUNG\RECHNER2\Daten\"], _
                        ["F:\TESTUMGEBUNG\RECHNER3\Daten\", "F:\TESTUMGEBUNG\RECHNER3\Daten\"], _
                        ["F:\TESTUMGEBUNG\SERVER\Daten\Dokumente\", "F:\TESTUMGEBUNG\SERVER\Daten\Dokumente\Aussendienst\"]]
; Beginn des Formulars:
$Form1_1 = GUICreate("Datenaustausch", 592, 284, 197, 145)
; Eingabefeld für das Projekt was vom Server auf den Aussendienstrechner kopiert wird
; vorgegeben wird der Jahrgang 19, danach muss ergänzt werden auf z. B. 19D002 oder 19M003
GUICtrlCreateEdit("", 352, 88, 180, 40, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
Global $Projektdown = GUICtrlSetData(-1, "19")
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
; Eingabefeld für das Projekt was vom Aussendienstrechner auf den Server kopiert wird
; vorgegeben wird der Jahrgang 19, danach muss ergänzt werden auf z. B. 19D002 oder 19M003
GUICtrlCreateEdit("", 40, 168, 180, 40, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
Global $Projektup = GUICtrlSetData(-1, "19")
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
; Auswahl des Aussendienstrechners
Global $rechner1 = GUICtrlCreateRadio("Rechner 1", 40, 16, 140, 40)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
Global $rechner2 = GUICtrlCreateRadio("Rechner 2", 240, 16, 140, 40)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
Global $rechner3 = GUICtrlCreateRadio("Rechner 3", 432, 16, 140, 40)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Tablet", 96, 96, 62, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Aussendienstordner", 355, 174, 192, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
; Downloadbutton wird gesetzt
$down1oad = GUICtrlCreateButton("<=", 256, 96, 28, 28)
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
; Uploadbutton wird gesetzt
$upload = GUICtrlCreateButton("=>", 256, 176, 28, 28)
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

; Auslösen der jeweiligen Funktion über die beiden Buttons Download und Upload
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $download
         copydown()
      Case $upload
         copyup()
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
 WEnd

 ; Erste Funktion Kopieren von Server auf Rechner $Projektdown
 Func copydown()
    ;Prüfung der Radios und setzen der entsprechende Zielvariablen
    If GUICtrlRead($Rechner1) = $GUI_CHECKED Then $dest = $aSourceDest [0] [1]
    If GUICtrlRead($Rechner2) = $GUI_CHECKED Then $dest = $aSourceDest [1] [1]
    If GUICtrlRead($Rechner3) = $GUI_CHECKED Then $dest = $aSourceDest [2] [1]
        Return
      $source = $aSourceDest [3] [0]

;Kopierbefehl mit der $SourceDest [3] [0] und der $dest
Local $jjjj = "20" & StringTrimRight($Projektdown, 4)
   DirCopy ( $source & $jjjj & "\" & $Projektdown & "\Berechnungen") , $dest & $jjjj & "\" & $Projektdown & "\")  [$FC_CREATEPATH ,$FC_OVERWRITE]

 EndFunc

; Zweite Funktion Kopieren von Rechner auf Server
  Func copyup()
     ;Prüfung der Radios und setzen der entsprechenden Quellvariablen
    If GUICtrlRead($Rechner1) = $GUI_CHECKED Then $source = $aSourceDest [0] [0]
    If GUICtrlRead($Rechner2) = $GUI_CHECKED Then $source = $aSourceDest [1] [0]
    If GUICtrlRead($Rechner3) = $GUI_CHECKED Then $source = $aSourceDest [2] [0]
    Return
      $dest = $aSourceDest [3] [1]

;Kopierbefehl mit der $aSourceDest [3] [1] und der $source
Local $jjjj = "20" & StringTrimRight($Projektdown, 4)
DirCopy ( $source & $jjjj & "\" & $Projektup & "\Berechnungen") , $dest & $jjjj & "\" & $Projektup & "\")  $FC_CREATEPATH ,$FC_OVERWRITE]

EndFunc

Alles anzeigen

Ich habe den Kopierbefehl in einer anderen Datei "getestet":

Code

#include <FileConstants.au3>
Global $projekt ="16D001"
Global $jjjj = "20" & StringTrimRight($projekt, 4)
DirCopy("F:\TESTUMGEBUNG\SERVER\DATEN\" & $jjjj & "\" & $projekt & "\", "F:\TESTUMGEBUNG\RECHNER2\DATEN\" & $jjjj &"\" & $projekt & "\", $FC_OVERWRITE)

**Musashi**

Hi kayes !

Puh, ich weiß gar nicht, wo ich anfangen soll :

1.

Es ist sehr unübersichtlich, die Globals quer durch das Programm zu deklarieren.

2.

Es ist sehr sinnvoll, GUI-Elemente mit einer ControlID zu versehen. So ist z.B. :

GUICtrlCreateEdit("", 352, 88, 180, 40, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))

Global $Projektdown = GUICtrlSetData(-1, "19")

falsch, da Du $Projektdown mit dem Rückgabewert von GUICtrlSetData besetzt, hier also mit 1 (da erfolgreich). Zudem bezieht sich -1 in GUICtrlSetData(-1, "19") immer auf das zuletzt erzeugte Control.

Wenn Du später in Deinen Funktionen, also z.B.
Func copydown()

...

Local $jjjj = "20" & StringTrimRight($Projektdown, 4)

auswerten willst, kommst Du an den Eingabewert von $Projektdown nicht heran.

Folge : $Projektdown = 1 , d.h.

-> StringTrimRight($Projektdown, 4) ist leer ==> $jjjj ist '20', nicht '2019'.

Das erzeugt zwar nicht den Fehler im DirCopy Befehl (hier stimmt die Anzahl der Argumente nicht), aber der Pfad wäre nicht wie gewünscht !

Besser wäre :

Global $ProjektDown

Global $idEditProjektDown = GUICtrlCreateEdit("", 40, 168, 180, 40, BitOR ... )

GUICtrlSetData($idEditProjektDown, "19")

GUICtrlSetFont($idEditProjektDown, 18, 400, 0, "MS Sans Serif")

So kann man den Wert von $Projektdown jederzeit durch GUICtrlRead($idEditProjektDown) ermitteln. Hat der User z.B. '19D001' eingegeben, dann ergibt

StringTrimRight(GUICtrlRead($idEditProjektDown), 4) die gewünschte 19.

Nebenbei :

In beiden Funktionen copydown() und copyup() wird Return VOR dem DirCopy Befehl aufgerufen.

Die Funktion terminiert, bevor sie dort überhaupt ankommt.

Ist das Absicht (wg. Test) ?

Ich möchte Dich nicht entmutigen, aber da Du Interesse an AutoIt gezeigt hast, versuche ich hier

schrittweise einige (von mehreren ) Problempunkten zu erklären. Falls Dich das stört, darfst Du es mir gerne sagen.

Dann wäre es aber wahrscheinlich besser, wenn jemand das Programm komplett neu für Dich erstellt.

Gruß Musashi

**Bitnugger**

Stimme Musashi zu 100% zu...

Zitat von Musashi

Besser wäre :

Hier kannst du allerdings auch -1 für das zuletzt erstellte Control verwenden...

Global $ProjektDown

Global $idEditProjektDown = GUICtrlCreateEdit("", 40, 168, 180, 40, BitOR ... )

GUICtrlSetData(-1, "19")

GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")

**Musashi**

Zitat von Bitnugger

Hier kannst du allerdings auch -1 für das zuletzt erstellte Control verwenden...

Ich weiß, aber so ist es, trotz des erhöhten Tippaufwandes, immer eindeutig - gerade bei Anwendern, die in Syntaxfragen (nennen wir es mal) 'unsicher' sind. Ansonsten wird die -1 Notation garantiert irgendwo benutzt, wo sie nicht mehr passt .

Gruß Musashi

**Bitnugger**

Zitat von Musashi

Ansonsten wird die -1 Notation garantiert irgendwo benutzt, wo sie nicht mehr passt .

Stimmt auch wieder... du wirst mir langsam unheimlich...

Edit: Übrigens... wenn ich den dicken Daumen hätte, dann wärst du auch schon längst Poweruser!

**autoiter**

Da möchte ich Musashi unterstützen.

Es ist absolut nicht nötig. Aber es dient der Sicherheit.

Niemand muss es machen, aber wer Opt("MustDeclareVars", 1) benutzt, stellt sich so eine Frage nicht mehr, denn die Richtung ist die selbe.

**Bitnugger**

Zitat von autoiter

Niemand muss es machen, aber wer Opt("MustDeclareVars", 1) benutzt, stellt sich so eine Frage nicht mehr, denn die Richtung ist die selbe.

Stimmt...

In größeren Scripts benutze ich allerdings nicht Opt("MustDeclareVars", 1) , sondern füge stattdessen folgende Zeile an den Anfang des Scripts ein:

#AutoIt3Wrapper_AU3Check_Parameters=-q -d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w- 7

Das ist noch deutlich restriktiver als MustDeclareVars und es nervt auch ab und an gewaltig... aber andererseits hilft es ungemein dabei, "sauber" zu Programmieren!

kayes

Code

2.

Es ist sehr sinnvoll, GUI-Elemente mit einer ControlID zu versehen. So ist z.B. :

GUICtrlCreateEdit("", 352, 88, 180, 40, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))

Global $Projektdown = GUICtrlSetData(-1, "19")

falsch, da Du $Projektdown mit dem Rückgabewert von GUICtrlSetData besetzt, hier also mit 1 (da erfolgreich). Zudem bezieht sich -1 in GUICtrlSetData(-1, "19") immer auf das zuletzt erzeugte Control.

Das heißt also, das in einem Formulareingabefeld etwas eingetragen wird und der Wert der Variable ist dann 1 oder -1? Also, wird nur gecheckt, ob etwas eingetragen wird und nicht was wird an die Variable übergeben?

Kann ich die Parameter nicht so setzen das der String aus dem Eingabefeld übernommen wird?

**BugFix**

Zitat von kayes

Kann ich die Parameter nicht so setzen das der String aus dem Eingabefeld übernommen wird

Dann solltest du aber die ID des Eingabefeldes auch speichern.

Code

$IDedit = GuiCtrlCreateEdit(...)
GuiCtrlSetData($IDedit, "19")   ; wenn diese Anweisung DIREKT nach der Erstellung des Ctrl erfogt, kann statt $IDedit auch -1 übergeben werden
Global $Projektdown = GuiCtrlRead($IDedit)  ; um den Inhalt des Ctrl zu bekommen, musst du es auslesen.

**Musashi**

Zitat von kayes

Das heißt also, das in einem Formulareingabefeld etwas eingetragen wird und der Wert der Variable ist dann 1 oder -1? Also, wird nur gecheckt, ob etwas eingetragen wird und nicht was wird an die Variable übergeben?

GUICtrlSetData verändert die Daten eines Controls, bei Dir z.B. des Editfeldes zu "19". Der Rückgabewert zeigt an, ob GUICtrlSetData erfolgreich war, also : 1 = erfolgreich, 0 bzw, -1 = nicht erfolgreich

siehe :https://autoit.de/onlinehilfe/on…CtrlSetData.htm

GUICtrlSetData besetzt NICHT die Variable (z.B. $Projektdown), in der Du die Usereingabe speichern willst. Um an die Usereingabe zu kommen, musst Du den Wert des Editfeldes mit GUICtrlRead auslesen. Das hatte ich in meinem Beitrag #27 doch bereits beschrieben :

Zitat von Musashi

Besser wäre :

Global $ProjektDown

Global $idEditProjektDown = GUICtrlCreateEdit("", 40, 168, 180, 40, BitOR ... )

GUICtrlSetData($idEditProjektDown, "19")

GUICtrlSetFont($idEditProjektDown, 18, 400, 0, "MS Sans Serif")

So kann man den Wert von $Projektdown jederzeit durch GUICtrlRead($idEditProjektDown) ermitteln. Hat der User z.B. '19D001' eingegeben, dann ergibt

StringTrimRight(GUICtrlRead($idEditProjektDown), 4) die gewünschte 19.

Alles anzeigen

Gruß Musashi

kayes

C

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=REORG.ico
#AutoIt3Wrapper_UseX64 = N
#AutoIt3Wrapper_UseUpx = N ; interne UPX Komprimierung ausschalten
#AutoIt3Wrapper_Res_SaveSource = N
#AutoIt3Wrapper_Res_Description = Kopiertool
#AutoIt3Wrapper_Res_Fileversion = 1.0.0.5
#AutoIt3Wrapper_Res_LegalCopyright = 2018 by kayes
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;
; ==============================================================================
; Projekt       : Kopiertool
; bearbeitet am : 19.12.2018
; ==============================================================================
; Danksagungen  :
; Erstellt unter Mithilfe aus dem autoit.de-Forum von :
; @Musashi, @BugFix, @alpines, @Code-Jack  usw.
; ==============================================================================
; Changelog     :
; Setzen der Pfade für Quelle und Ziel
; 1. Versuch Kopierbefehl
; Variable $jjjj definiert und aus dem Kopierbefehl herausgenommen
; Wrapperanweisungen und Kommentarbereich hinzugefügt
; ==============================================================================
;  Variablendeklaration
;
Global $download
Global $upload
Global $rechner1
Global $rechner2
Global $rechner3
Global $source
Global $dest
Global $aSourceDest = [ ["F:\TESTUMGEBUNG\RECHNER1\Daten\", "F:\TESTUMGEBUNG\RECHNER1\Daten\"], _
                        ["F:\TESTUMGEBUNG\RECHNER2\Daten\", "F:\TESTUMGEBUNG\RECHNER2\Daten\"], _
                        ["F:\TESTUMGEBUNG\RECHNER3\Daten\", "F:\TESTUMGEBUNG\RECHNER3\Daten\"], _
                        ["F:\TESTUMGEBUNG\SERVER\Daten\Dokumente\", "F:\TESTUMGEBUNG\SERVER\Daten\Dokumente\Aussendienst\"]]
Local $jjjj
;==============================================================================
; Beginn des Formulars:
;
$Form1_1 = GUICreate("Datenaustausch", 592, 284, 197, 145)
;
; Eingabefeld für das Projekt was vom Server auf den Aussendienstrechner kopiert wird
; vorgegeben wird der Jahrgang 19, danach muss ergänzt werden auf z. B. 19D002 oder 19M003
;
Global $Projektdown
Global $idEditProjektDown = GUICtrlCreateEdit("", 352, 88, 180, 40, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData($idEditProjektDown, "19")
GUICtrlSetFont($idEditProjektDown, 18, 400, 0, "MS Sans Serif")
;
; Eingabefeld für das Projekt was vom Aussendienstrechner auf den Server kopiert wird
; vorgegeben wird der Jahrgang 19, danach muss ergänzt werden auf z. B. 19D002 oder 19M003
;
Global $Projektup
Global $idEditProjektUp = GUICtrlCreateEdit("", 40, 168, 180, 40, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData($idEditProjektUp, "19")
GUICtrlSetFont($idEditProjektUp, 18, 400, 0, "MS Sans Serif")
;
; Auswahl des Aussendienstrechners
;
$rechner1 = GUICtrlCreateRadio("Rechner 1", 40, 16, 140, 40)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$rechner2 = GUICtrlCreateRadio("Rechner 2", 240, 16, 140, 40)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$rechner3 = GUICtrlCreateRadio("Rechner 3", 432, 16, 140, 40)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Tablet", 96, 96, 62, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Aussendienstordner", 355, 174, 192, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
;
; Downloadbutton wird gesetzt
;
$down1oad = GUICtrlCreateButton("<=", 256, 96, 28, 28)
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
;
; Uploadbutton wird gesetzt
;
$upload = GUICtrlCreateButton("=>", 256, 176, 28, 28)
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;==============================================================================
;
; Auslösen der jeweiligen Funktion über die beiden Buttons Download und Upload
;
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $download
         copydown()
      Case $upload
         copyup()
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
 WEnd
;
 ; Erste Funktion Kopieren von Server auf Rechner $Projektdown
 ;
 Func copydown()
    ;Prüfung der Radios und setzen der entsprechende Zielvariablen
    If GUICtrlRead($Rechner1) = $GUI_CHECKED Then $dest = $aSourceDest [0] [1]
    If GUICtrlRead($Rechner2) = $GUI_CHECKED Then $dest = $aSourceDest [1] [1]
    If GUICtrlRead($Rechner3) = $GUI_CHECKED Then $dest = $aSourceDest [2] [1]
     local $source = $aSourceDest [3] [0]

;Kopierbefehl mit der $SourceDest [3] [0] und der $dest
;
Local $jjjj = "20" & StringTrimRight(GUICtrlRead($idEditProjektDown), 4)
   DirCopy ( $source & $jjjj & "\" & $Projektdown & "\Berechnungen") , $dest & $jjjj & "\" & $Projektdown & "\")  [$FC_CREATEPATH ,$FC_OVERWRITE]
  Return
 EndFunc
;
; Zweite Funktion Kopieren von Rechner auf Server
;
  Func copyup()
     ;Prüfung der Radios und setzen der entsprechenden Quellvariablen
    If GUICtrlRead($Rechner1) = $GUI_CHECKED Then $source = $aSourceDest [0] [0]
    If GUICtrlRead($Rechner2) = $GUI_CHECKED Then $source = $aSourceDest [1] [0]
    If GUICtrlRead($Rechner3) = $GUI_CHECKED Then $source = $aSourceDest [2] [0]
    local $dest = $aSourceDest [3] [1]
;
;Kopierbefehl mit der $aSourceDest [3] [1] und der $source
;
Local $jjjj = "20" & StringTrimRight(GUICtrlRead($idEditProjektUp), 4)
DirCopy ( $source & $jjjj & "\" & $Projektup & "\Berechnungen") , $dest & $jjjj & "\" & $Projektup & "\")  $FC_CREATEPATH ,$FC_OVERWRITE]
   Return
EndFunc

Alles anzeigen

So, habe jetzt den Code aus Beitrag #27 übernommen, aber jetzt kommt der Fehler bei dem Kopierbefehl (Incorrect number of parameters in function call)

**autoiter**

Hallo kayes

Ich habe es mir nicht komplett angeschaut. Aber dieser Fehler wiederholt sich im Code.

DirCopy ( $source & $jjjj & "\" & $Projektdown & "\Berechnungen") , $dest & $jjjj & "\" & $Projektdown & "\") [$FC_CREATEPATH ,$FC_OVERWRITE]

Ist falsch. Da sind schließende Klammern im Aufruf zu viel und dann fehlt sie am Ende und Kommas zwischen den Parametern auch nicht vergessen.

So funktioniert etwa diese Zeile.

DirCopy ( $source & $jjjj & "\" & $Projektdown & "\Berechnungen", $dest & $jjjj & "\" & $Projektdown & "\", [$FC_CREATEPATH ,$FC_OVERWRITE])

**Musashi**

kayes !

Hier kommen mehrere Fehler zusammen :

(möglicherweise wird Dir das jetzt auch zu kompliziert )

Zitat von autoiter

So funktioniert etwa diese Zeile.

DirCopy ( $source & $jjjj & "\" & $Projektdown & "\Berechnungen", $dest & $jjjj & "\" & $Projektdown & "\", [$FC_CREATEPATH ,$FC_OVERWRITE])

1. autoiter :

Bei DirCopy gibt es laut Hilfe kein $FC_CREATEPATH. Dort steht :

"Wenn die Ordnerstruktur des Zielordners nicht besteht, wird sie nach Möglichkeit erstellt."

Allerdings haben wir dann ein Problem, das wir bereits diskutiert haben, siehe :

Merkwürdiges Verhalten auch bei DirCopy ?

2. kayes :

Wenn Du Konstanten wie $FC_OVERWRITE verwendest, dann auch #include <FileConstants.au3> einbinden, oder Du nimmst als Flag den Wert 1 (=Überschreiben existierender Dateien - siehe Hilfe) !

3.

Func copydown()

...

Local $jjjj = "20" & StringTrimRight(GUICtrlRead($idEditProjektDown), 4)

Du besetzt zwar $jjjj , aber nicht $Projektdown , obwohl Du $Projektdown bei der Pfadangabe verwendest.

==> Folge : $Projektdown ist leer, und im Pfad steht ...\\,,,

(bei $Projektup identisch)

4.

Deine GUI Schleife läuft permanent durch !

Setze in der Func copydown()

hinter die Zeile

Local $jjjj = "20" & StringTrimRight(GUICtrlRead($idEditProjektDown), 4)

mal :

ConsoleWrite ('< $Projektdown = ' & $Projektdown & @CRLF)

ConsoleWrite ($source & $jjjj & "\" & $Projektdown & "\Berechnungen" & @CRLF)

ConsoleWrite ($dest & $jjjj & "\" & $Projektdown & "\" & @CRLF)

und achte auf die Console, dann siehst Du was ich meine !

Die DirCopy-Befehle musst Du vorerst auskommentieren, da sie noch Fehler werfen

Ersetze :

Code

; Auslösen der jeweiligen Funktion über die beiden Buttons Download und Upload
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
      Case $download
         copydown()
      Case $upload
         copyup()
      Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Alles anzeigen

durch :

Code

While 1
    $nMsg = GUIGetMsg()
    Select
        Case $nMsg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $nMsg = $upload
            copyup()
        Case $nMsg = $download
            copydown()
    EndSelect
WEnd

Alles anzeigen

Gruß Musashi

kayes

Hallo,

das mit den FileConstants hatte ich schon herausgefunden.

Jetzt stellt sich mir die Frage: Wie kann der Wert in die Variable geschrieben werden?

Die Daten sollen auf jeden Fall überschrieben werden.

Die Verzeichnisse auf dem Server sind nicht diesselben.

So haben wir einen "Puffer" damit wir mit Aussendienst Daten nicht im Innendienst bearbeitete Daten überschreiben.

**autoiter**

Statt DirCopy zu verwerfen, könntest du es auch wie gefordert anwenden. Musashi hat erklärt, dass es den Parameter $FC_CREATEPATH nicht gibt. Allerdings funktioniert es normalerweise auch so. Zu den weiteren Einwänden will ich hier keine Stellung beziehen.

DirCopy($source & $jjjj & "\" & $Projektdown & "\Berechnungen", $dest & $jjjj & "\" & $Projektdown & "\", $FC_OVERWRITE)

sollte funktionieren, wenn deine durch Variablen gebildeten Quell-Pfade existieren.