OK hier mal das Script:
Spoiler anzeigen
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
d#include <Excel.au3>
; ########################################################### Datum ermitteln ###################################################################
[/autoit] [autoit][/autoit] [autoit]; Variablen für das aktuelle Jahr, Monat und Tag ermitteln
Global $var_excel_file, $var_excel_open, $var_logpath, $var_system_drive
Dim $var_year, $var_month, $var_day
$var_year = @YEAR
$var_month = @MON
$var_day = @MDAY
; ########################################################### Log Pfad ###################################################################
[/autoit] [autoit][/autoit] [autoit];Prüfen ob Datei @HomeDrive & "\ABCDLog\ABCDwaage\" existiert. Wenn nein, dann erstellen
[/autoit] [autoit][/autoit] [autoit];Ermitteln der Umgebungsvariablen "SystemDrive"
$var_system_drive = EnvGet("SystemDrive")
$var_logpath = $var_system_drive & "\ABCDLog\ABCDwaage\"
If Not FileExists($var_logpath) Then
;~ MsgBox(0, "Kurz-Check", "Verzeichnis existiert nicht")
DirCreate($var_logpath)
Else
;~ MsgBox(0, "Kurz-Check", "Verzeichnis existiert")
EndIf
; ########################################################### Ini Datei erzeugen, und auslesen ###################################################################
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit];Prüfen ob Datei YYYYMMTT.ini existiert. Wenn nein, dann eröffnen, wenn ja, dann öffnen
Dim $var_date_ini
$var_date_ini = $var_year & $var_month & $var_day & ".ini"
[/autoit] [autoit][/autoit] [autoit]If Not FileExists($var_logpath & "\" & $var_date_ini) Then
;MsgBox(0, "Kurz-Check", "Datei " & $var_date_ini & " existiert nicht")
IniWrite($var_logpath & "\" & $var_date_ini, "Open", "Datum", $var_day & "." & $var_month & "." & $var_year)
IniWrite($var_logpath & "\" & $var_date_ini, "Open", "Zeit", @HOUR & ":" & @MIN & ":" & @SEC)
IniWrite($var_logpath & "\" & $var_date_ini, "Open", "Username", @UserName)
IniWrite($var_logpath & "\" & $var_date_ini, "Open", "Computername", @ComputerName)
IniWrite($var_logpath & "\" & $var_date_ini, "Aktueller XYZ", "IN_XYZ_NR", "121168")
[/autoit] [autoit][/autoit] [autoit]IniWrite($var_logpath & "\" & $var_date_ini, "121168", "IN_KFZ_KENNZEICHEN", "GP-R 1212")
IniWrite($var_logpath & "\" & $var_date_ini, "121168", "IN_BEHOERDLICHE_NUMMER", "A123454321")
Else
;MsgBox(0, "Kurz-Check", "Datei " & $var_date_ini & " existiert bereits")
IniWrite($var_logpath & "\" & $var_date_ini, "Open", "Datum", $var_day & "." & $var_month & "." & $var_year)
IniWrite($var_logpath & "\" & $var_date_ini, "Open", "Zeit", @HOUR & ":" & @MIN & ":" & @SEC)
IniWrite($var_logpath & "\" & $var_date_ini, "Open", "Username", @UserName)
IniWrite($var_logpath & "\" & $var_date_ini, "Open", "Computername", @ComputerName)
;~ IniWrite($var_logpath & "\" & $var_date_ini, "Aktueller XYZ", "IN_XYZ_NR", "121168")
[/autoit] [autoit][/autoit] [autoit]IniWrite($var_logpath & "\" & $var_date_ini, "121168", "IN_KFZ_KENNZEICHEN", "F - PD 2123")
IniWrite($var_logpath & "\" & $var_date_ini, "121168", "IN_BEHOERDLICHE_NUMMER", "A123454321")
EndIf
[/autoit] [autoit][/autoit] [autoit];aktuelle XYZ Nummer aus YYYYMMDD.ini ermitteln
Dim $var_aktuelle_XYZ_nr
$var_aktuelle_XYZ_nr = IniRead($var_logpath & "\" & $var_date_ini, "Aktueller XYZ", "IN_XYZ_NR", "Schlüssel IN_XYZ_NR existiert nicht")
If $var_aktuelle_XYZ_nr = "" Then
$var_aktuelle_XYZ_nr = "Wert von Schlüssel IN_XYZ_NR= in Sektion [Aktueller XYZ] ist nicht vorhanden"
MsgBox(0, "Warnung", $var_aktuelle_XYZ_nr, 3)
EndIf
MsgBox(0,"info", $var_aktuelle_XYZ_nr)
;aktuelle XYZ Nummer aus Anwendung ermitteln
Dim $var_XYZ_nr_anwendung
If WinExists("Microsoft Excel - Abfall.xlsx") Then
;MsgBox(0, "", "Das Fenster existiert")
WinActivate("Microsoft Excel - Abfall.xlsx", "")
WinSetState("[ACTIVE]", "", @SW_MAXIMIZE)
EndIf
Opt("MouseCoordMode", 0) ;1=absolute, 0=relative, 2=client => 0 ist pro Anwendung die XY Koordinaten
MouseClick("Left", 221, 823,1,0); Excel Sheet Blatt "Ergebnis" anklicken
MouseClick("Left", 16, 178,1,0); Alle Zellen markieren
Send("{LEFT}" & "{RIGHT 2}" & "{DOWN 3}")
Sleep(300)
send("^c"); kopieren
send("^c"); kopieren
$var_XYZ_nr_anwendung = ClipGet(); Inhalt aus Zwischenablage in Variable kopieren
MsgBox(0,"info", $var_XYZ_nr_anwendung)
$result = StringCompare($var_aktuelle_XYZ_nr, $var_XYZ_nr_anwendung)
MsgBox(0, "Ergebnis des Stringvergleichs (Modus 0):", $result)
If $var_aktuelle_XYZ_nr == $var_XYZ_nr_anwendung Then
Msgbox(0,"info", "Ist gleich")
Else
Msgbox(0,"info", "Ist nicht gleich")
EndIf
Exit
[/autoit]