Mehrere Fragen

Kevinch

Hi Leute,

ich habe vor einigen Tagen AutoIT entdeckt und mir gedacht, ich könnte mich ja mal dran versuchen.

Ich habe auch schon einen Versuch gemacht mein Batch Skript in eine au3 umzubauen.

Nur hab ich das Gefühl es geht auch einfacher

1. Wie kann ich diese ganzen FileWriteLine umgehen?
(kann ich in diesen Text die Variablen vorher definieren?)

2. Wie kann ich Abfragen ob der Befehl "FileMove" richtig ohne Fehler gelaufen ist?

Vielleicht hat ja einer lust sich das mal anzuschauen

[autoit][/autoit][autoit][/autoit][autoit]

;HTML Kopfdaten schreiben
FileWriteLine("test.html",'<TABLE BORDER="1">')
FileWriteLine("test.html",' <TD WIDTH="70"> Rechner: </TD>')
FileWriteLine("test.html",' <TD WIDTH="100"> %RECHNER% </TD>')
FileWriteLine("test.html",' <TD WIDTH="80"> IP-Adresse: </TD>')
FileWriteLine("test.html",' <TD WIDTH="100"> %IP-ADDR% </TD>')
FileWriteLine("test.html",' <TD WIDTH="50"> Task: </TD>')
FileWriteLine("test.html",' <TD WIDTH="150"> %TASK% </TD>')
FileWriteLine("test.html",' <TD WIDTH="100"> Startzeitpunkt: </TD>')
FileWriteLine("test.html",' <TD WIDTH="200"> %START% </TD>')
FileWriteLine("test.html",'</TR>')
FileWriteLine("test.html",'</TABLE>')
FileWriteLine("test.html",'')
FileWriteLine("test.html",'<TABLE BORDER="1">')
FileWriteLine("test.html",'<TR>')
FileWriteLine("test.html",' <TD WIDTH="80"> Batchprozeß: </TD>')
FileWriteLine("test.html",' <TD WIDTH="90"> %BATCH% </TD>')
FileWriteLine("test.html",' <TD WIDTH="192"> Zu sichernde Datenbestände: </TD>')
FileWriteLine("test.html",' <TD WIDTH="200"> %VERZ_Q% </TD>')
FileWriteLine("test.html",' <TD WIDTH="100"> Zielverzeichnis: </TD>')
FileWriteLine("test.html",' <TD WIDTH="200"> %VERZ_Z% </TD>')
FileWriteLine("test.html",'</TR>')
FileWriteLine("test.html",'</TABLE>')
FileWriteLine("test.html",'<TABLE BORDER="0">')
FileWriteLine("test.html",'')
FileWriteLine("test.html",'%date% %time% Beginne mit dem verschieben der PDFs')
FileWriteLine("test.html",'')
FileWriteLine("test.html",'<TR>')
FileWriteLine("test.html",' <TD WIDTH="100"> %DATE% </TD>')
FileWriteLine("test.html",' <TD WIDTH="100"> %TIME% </TD>')
FileWriteLine("test.html",' <TD WIDTH="600"> ')
FileWriteLine("test.html",' Beginne mit dem verschieben der PDFs </TD>')
FileWriteLine("test.html",'</TR>')

[/autoit][autoit][/autoit][autoit]

;Ordner erstellen
DirCreate("C:\autoit\pdf\test")

[/autoit][autoit][/autoit][autoit]

FileWriteLine("test.html",'<TR>')
FileWriteLine("test.html",' <TD WIDTH="100"> %DATE% </TD>')
FileWriteLine("test.html",' <TD WIDTH="100"> %TIME% </TD>')
FileWriteLine("test.html",' <TD WIDTH="600"> ')
FileWriteLine("test.html",' Verschieben der PDFs auf c:\autoit\pdf\test </TD>')
FileWriteLine("test.html",'</TR>')

[/autoit][autoit][/autoit][autoit]

FileMove("c:\autoit\*.pdf" , "c:\autoit\pdf\test\")

[/autoit][autoit][/autoit][autoit]

;Ohne Fehler dann ->

[/autoit][autoit][/autoit][autoit]

FileWriteLine("test.html",'')
FileWriteLine("test.html",'%date% %time% verschieben erfolgreich beendet')
FileWriteLine("test.html",'')
FileWriteLine("test.html",'<TR>')
FileWriteLine("test.html",' <TD WIDTH="100"> %DATE% </TD>')
FileWriteLine("test.html",' <TD WIDTH="100"> %TIME% </TD>')
FileWriteLine("test.html",' <TD WIDTH="600"> ')
FileWriteLine("test.html",' Verschieben der PDFs ist beendet </TD>')
FileWriteLine("test.html",'</TR>')
FileWriteLine("test.html",'</TABLE>')
FileWriteLine("test.html",'')
FileWriteLine("test.html",' ')
FileWriteLine("test.html",'')

[/autoit][autoit][/autoit][autoit]

;Fehler aufgetreten ->

[/autoit][autoit][/autoit][autoit]

FileWriteLine("test.html",'')
FileWriteLine("test.html",'%date% %time% verschieben NICHT erfolgreich beendet')
FileWriteLine("test.html",'')
FileWriteLine("test.html",'<TR>')
FileWriteLine("test.html",' <TD WIDTH="100"> %DATE% </TD>')
FileWriteLine("test.html",' <TD WIDTH="100"> %TIME% </TD>')
FileWriteLine("test.html",' <TD WIDTH="600"> ')
FileWriteLine("test.html",' Verschieben der PDFs wurde NICHT erfolgreich beendet </TD>')
FileWriteLine("test.html",'</TR>')
FileWriteLine("test.html",'</TABLE>')
FileWriteLine("test.html",'')
FileWriteLine("test.html",' ')
FileWriteLine("test.html",'')

[/autoit]

snoozer

was willste den genau machen?? ôÔ
du kannst batch script in autoit "einbinden"...
filemove gibt einen rückgabewert den du verarbeiten kannst...

Code

Return Value


Success: Returns 1. 
Failure: Returns 0 if source cannot be moved or if dest already exists and flag=0.

ich galube es müsste auch

[autoit]

FileMove("C:\*.pdf", "D:\mydir\*.pdf")

[/autoit]

sein..probiers mal aus....
soweit have fun beim weiter proggen =)
snoozy

//edit
mit dem rückgabewert kannste ja arbeiten...
$ret = FileMove("C:\*.pdf", "D:\mydir\*.pdf")
If $ret = 1 Then
MsgBox(0,"","superduper")
Else
MsgBox(0,"","mist")
Endif

**Xenobiologist**

HI,

du kannst einen String drausmachen und diesen anschließend komplett schreiben, es in eine Datei schreiben und dann auslesen und in eine neue schrieben usw. ...

Die meisten Befehle geben einen Wert zurück. Diesen kannst du checken!

So long,

Mega

Kevinch

Zitat

Original von snoozer

//edit
mit dem rückgabewert kannste ja arbeiten...
$ret = FileMove("C:\*.pdf", "D:\mydir\*.pdf")
If $ret = 1 Then
MsgBox(0,"","superduper")
Else
MsgBox(0,"","mist")
Endif

Alles anzeigen

-------------------------------------------------------------------------
Super Danke dir, funktioniert genauso wie ich es brauche
-------------------------------------------------------------------------

Zitat

Original von th.meger
HI,

du kannst einen String drausmachen und diesen anschließend komplett schreiben, es in eine Datei schreiben und dann auslesen und in eine neue schrieben usw. ...

Ich hab nicht soviel Erfahrung im Proggn, gibts da irgendwo ein Beispiel?

Diese File läuft jeden Tag einmal, schreibt mir eine Log, deswegen die ganzen HTML Zeilen. Sieht halt schöner aus.

Das ist nur eine von knapp 50 Scripten die laufen.... deswegen wollte ich mir AutoIT anschauen und anwenden. (Da kann man mehr mit machen als mit CMD)

**Xenobiologist**

Hi,

wo brauchst du Hilfe? Den String kannst du mit & @crlf & _
über mehrere Zeilen zusammenfügen.

So long,

Mega

P.S.: Wenn ich Zeit finde, dann passe ich heute Abend mal an.

Kevinch

Zitat

Original von th.meger

P.S.: Wenn ich Zeit finde, dann passe ich heute Abend mal an.

Wäre echt super

Ich werde evtl. heute nochmal dran basteln. Aber danke für eure tolle Hilfe

Kevinch

So ich hab nochmal etwas gebastelt.

Mit den Strings konnte ich mich noch nicht befassen.

Soll man hier immer Das Skript unten weiterführen oder oben im ersten Post abändern?

Spoiler anzeigen

[autoit]

$Datum = @MDAY&"."&@MON&"."&@YEAR
$Uhrzeit = @HOUR&":"&@MIN&":"&@SEC
$Rechnername = @ComputerName
$IPAdresse = @IPAddress1
$Task = 'PDF_Sicherung'
$Start = '23.55Uhr'
$Batch = 'TEST'
$SourceDir = 'C:\autoit'
$TargetDir = 'C:\autoit\pdf\test'

[/autoit] [autoit][/autoit] [autoit]

;HTML Kopfdaten schreiben
FileWriteLine("test.html",'<TABLE BORDER="1">')
FileWriteLine("test.html",' <TD WIDTH="70"> Rechner: </TD>')
FileWriteLine("test.html",' <TD WIDTH="100"> ' & $Rechnername & ' </TD>')
FileWriteLine("test.html",' <TD WIDTH="80"> IP-Adresse: </TD>')
FileWriteLine("test.html",' <TD WIDTH="100"> ' & $IPAdresse & ' </TD>')
FileWriteLine("test.html",' <TD WIDTH="50"> Task: </TD>')
FileWriteLine("test.html",' <TD WIDTH="150"> ' & $Task & ' </TD>')
FileWriteLine("test.html",' <TD WIDTH="100"> Startzeitpunkt: </TD>')
FileWriteLine("test.html",' <TD WIDTH="200"> ' & $Start & ' </TD>')
FileWriteLine("test.html",'</TR>')
FileWriteLine("test.html",'</TABLE>')
FileWriteLine("test.html",'')
FileWriteLine("test.html",'<TABLE BORDER="1">')
FileWriteLine("test.html",'<TR>')
FileWriteLine("test.html",' <TD WIDTH="80"> Batchprozeß: </TD>')
FileWriteLine("test.html",' <TD WIDTH="90"> ' & $Batch & ' </TD>')
FileWriteLine("test.html",' <TD WIDTH="192"> Zu sichernde Datenbestände: </TD>')
FileWriteLine("test.html",' <TD WIDTH="200"> ' & $SourceDir & ' </TD>')
FileWriteLine("test.html",' <TD WIDTH="100"> Zielverzeichnis: </TD>')
FileWriteLine("test.html",' <TD WIDTH="200"> ' & $TargetDir & ' </TD>')
FileWriteLine("test.html",'</TR>')
FileWriteLine("test.html",'</TABLE>')

[/autoit] [autoit][/autoit] [autoit]

;Ausgabe in HTML "Beginne mit dem verschieben der PDF´s"
FileWriteLine("test.html",'<TABLE BORDER="0">')
FileWriteLine("test.html",'')
FileWriteLine("test.html",'')
FileWriteLine("test.html",'<TR>')
FileWriteLine("test.html",' <TD WIDTH="100"> ' & $Datum & ' </TD>')
FileWriteLine("test.html",' <TD WIDTH="100"> ' & $Uhrzeit & ' </TD>')
FileWriteLine("test.html",' <TD WIDTH="600"> ')
FileWriteLine("test.html",' Beginne mit dem verschieben der PDF´s </TD>')
FileWriteLine("test.html",'</TR>')

[/autoit] [autoit][/autoit] [autoit]

;Ordner erstellen wenn nicht vorhanden
DirCreate("C:\autoit\pdf\test")

[/autoit] [autoit][/autoit] [autoit]

;Verschieben der PDFs auf c:\autoit\pdf\test
FileWriteLine("test.html",'<TR>')
FileWriteLine("test.html",' <TD WIDTH="100"> ' & $Datum & ' </TD>')
FileWriteLine("test.html",' <TD WIDTH="100"> ' & $Uhrzeit & ' </TD>')
FileWriteLine("test.html",' <TD WIDTH="600"> ')
FileWriteLine("test.html",' Verschieben der PDF´s auf c:\autoit\pdf\test </TD>')
FileWriteLine("test.html",'</TR>')

[/autoit] [autoit][/autoit] [autoit]

;Beginne verschieben der PDF´s
$ret = FileMove("c:\autoit\*.pdf" , "c:\autoit\pdf\test\")

[/autoit] [autoit][/autoit] [autoit]

;Abfrage ob verschieben der PDF´s OK
IF $ret = 1 Then

[/autoit] [autoit][/autoit] [autoit]

FileWriteLine("test.html",'')
FileWriteLine("test.html",'')
FileWriteLine("test.html",'<TR>')
FileWriteLine("test.html",' <TD WIDTH="100"> ' & $Datum & ' </TD>')
FileWriteLine("test.html",' <TD WIDTH="100"> ' & $Uhrzeit & ' </TD>')
FileWriteLine("test.html",' <TD WIDTH="600"> ')
FileWriteLine("test.html",' Verschieben der PDF´s ist beendet </TD>')
FileWriteLine("test.html",'</TR>')
FileWriteLine("test.html",'</TABLE>')
FileWriteLine("test.html",'')
FileWriteLine("test.html",' ')
FileWriteLine("test.html",'')

[/autoit] [autoit][/autoit] [autoit]

ElseIf $ret = 0 Then

[/autoit] [autoit][/autoit] [autoit]

FileWriteLine("test.html",'')
FileWriteLine("test.html",'')
FileWriteLine("test.html",'<TR>')
FileWriteLine("test.html",' <TD WIDTH="100"> ' & $Datum & ' </TD>')
FileWriteLine("test.html",' <TD WIDTH="100"> ' & $Uhrzeit & ' </TD>')
FileWriteLine("test.html",' <TD WIDTH="600"> ')
FileWriteLine("test.html",' Verschieben der PDF´s wurde NICHT erfolgreich beendet </TD>')
FileWriteLine("test.html",'</TR>')
FileWriteLine("test.html",'</TABLE>')
FileWriteLine("test.html",'')
FileWriteLine("test.html",' ')
FileWriteLine("test.html",'')
EndIf

[/autoit]

**Xenobiologist**

HI,

ich hatte nur kurz angefangen, aber so könntest du es aufbauen / ausbauen.

Spoiler anzeigen

[autoit]

#include<Date.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $task = ''
Global $start = ''
Global $quelle = 'c:\test.txt'
Global $ziel = 'c:\test.txt1'

[/autoit] [autoit][/autoit] [autoit]

$protokolldatei = '<TD WIDTH="70"> Rechner: </TD>' & @CRLF & _
'<TD WIDTH="100"> ' & @ComputerName & '</TD>' & @CRLF & _
'<TD WIDTH="80"> IP-Adresse: </TD>' & @CRLF & _
'<TD WIDTH="100"> ' & @IPAddress1 & '</TD>' & @CRLF & _
'<TD WIDTH="50"> Task: </TD>' & @CRLF & _
'<TD WIDTH="150"> ' & $task & ' </TD>' & @CRLF & _
'<TD WIDTH="100"> Startzeitpunkt: </TD>' & @CRLF & _
'<TD WIDTH="200"> ' & $start & ' </TD>' & @CRLF & _
'</TR>' & @CRLF & _
'</TABLE>' & @CRLF & _
'<TABLE BORDER="1">' & @CRLF & _
'<TR>' & @CRLF & _
'<TD WIDTH="80"> Batchprozeß: </TD>' & @CRLF & _
'<TD WIDTH="90"> ' & @ScriptName & ' </TD>' & @CRLF & _
'<TD WIDTH="192"> Zu sichernde Datenbestände: </TD>' & @CRLF & _
'<TD WIDTH="200"> ' & $quelle & ' </TD>' & @CRLF & _
'<TD WIDTH="100"> Zielverzeichnis: </TD>' & @CRLF & _
'<TD WIDTH="200"> ' & $ziel & ' </TD>' & @CRLF & _
'</TR>' & @CRLF & _
'</TABLE>' & @CRLF & _
'<TABLE BORDER="0">' & @CRLF & _
'<TR>' & @CRLF & _
'<TD WIDTH="100"> %DATE% </TD>' & @CRLF & _
'<TD WIDTH="100"> %TIME% </TD>' & @CRLF & _
'<TD WIDTH="600"> ' & @CRLF & _
' </TD>' & @CRLF & _
'</TR>' & @CRLF & _
'<TR>' & @CRLF & _
'<TD WIDTH="100"> ' & _NowDate() & ' </TD>' & @CRLF & _
'<TD WIDTH="100"> ' & _NowTime() & ' </TD>' & @CRLF & _
'<TD WIDTH="600"> ' & @CRLF & _
'</TD>' & @CRLF & _
'</TR>' & @CRLF & _
'<TR>' & @CRLF & _
'<TD WIDTH="100"> %DATE% </TD>' & @CRLF & _
'<TD WIDTH="100"> %TIME% </TD>' & @CRLF & _
'<TD WIDTH="600"> ' & @CRLF & _
' </TD>' & @CRLF & _
'</TR>' & @CRLF & _
'</TABLE>' & @CRLF & _
'' & @CRLF & _
' ' & @CRLF & _
'<TR>' & @CRLF & _
'<TD WIDTH="100"> %DATE% </TD>' & @CRLF & _
'<TD WIDTH="100"> %TIME% </TD>' & @CRLF & _
'<TD WIDTH="600"> ' & @CRLF & _
' </TD>' & @CRLF & _
'</TR>' & @CRLF & _
'</TABLE>' & @CRLF & _
'' & @CRLF & _
' '

FileWrite('c:\test.html', $protokolldatei)

[/autoit]

So long,

Mega