Beiträge von sccssf

Danke werde ich mal morgen testen.

Gruß

Steffen

Zitat von ru642

Hallo SCCSSF,

Ich hoffe das hilft dir:

Spoiler anzeigen

[autoit]

#include <Array.au3>
#include <File.au3>

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

Opt('MustDeclareVars', 1)

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

Local $folder1 = "D:\Program Files (x86)\abc\PDF\ausPDFCreator\"
Local $folder2 = "D:\Program Files (x86)\abc\PDF\zumerstellen\"
Local $folder3 = "D:\Program Files (x86)\abc\PDF\erledigt\"

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

Local $FileList = _FileListToArray($folder1)

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

For $i = 1 To UBound($FileList) - 1

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

If FileExists($folder1 & '\' & StringLeft($FileList[$i], StringInStr($FileList[$i], '.', Default, -1) - 1) & '.pdf') = 1 Then
If FileExists($folder2 & '\' & StringLeft($FileList[$i], StringInStr($FileList[$i], '.', Default, -1) - 1) & '.pdf') = 1 Then
FileMove($folder3 & '\' & $FileList[$i], $archiv, 9)

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

EndIf
EndIf
Next

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

Macht das so wie ich das ganze verstanden habe.
Checkt File aus Ordner 1 mit gleichnamigen File aus Ordner 2 ab.
Wenn Ok dann von Ordner 2 File in Ordner 3 verschieben.

Edit: Habe gerade gesehen das du aus Ordner 2 auch kopieren willst. Verwende bei Filemove einfach Filecopy.

MfG Ru642

Alles anzeigen

Hallo,

stehe voll auf dem Schlauch und habe noch keine richtige Idee wie ich es machen soll.

folgendes funktioniert schon mit meinem Skript.

1. eine oder mehrere Datei kommt in den Ordner "$folder1"
2. sobald nicht neues dazukommt werden diese Dateien in Ordner "$folder2" verschoben
3. verarbeitet java Programm
4. Dateien aus Ordner "$folder3" werden nach "$folder4" verschoben
5. fertige Datei wird in "$folder5" verschoben

wo liegt das Problem.

Ich muss die Dateien aus Ordner 1 zwar einlesen (Namen) allerdings dann aus einem anderen Ordner nehmen wo mehr als nur diese Dateien liegen.

z.B.
gelesen
D:\Program Files (x86)\abc\PDF\ausPDFCreator\1.pdf

muss allerdings von Verzeichnis

D:\Program Files (x86)\habe_gar_nichts_damit_zu_tun\1.pdf

kopiert werden.

#include <File.au3>

$folder1 = "D:\Program Files (x86)\abc\PDF\ausPDFCreator\" ;Eingang
$folder2 = "D:\Program Files (x86)\abc\PDF\zumerstellen\" ;verschieben für erstellen einer PDF
$folder3 = "D:\Program Files (x86)\abc\PDF\erledigt\" ;nacherstellen archiveren
$folder4 = "D:\Program Files (x86)\abc\PDF\Fertig\" ;erstellte Ausgangsdatei
$folder5 = "D:\Program Files (x86)\abc\Serverprint\printed\" ;Serverprint Pfad

While 1
sleep (2500)
$dir1 = _FileListToArray($folder1, '*.pdf')
If not @error Then
EndIf
sleep (2500)
$dir2 = _FileListToArray($folder1, '*.pdf')
If not @error and IsArray ($dir1) Then
If($dir1[0]=$dir2[0]) Then
;MsgBox (0,"Sammel beendet", "PDF wird erstellt",1)
FileMove ($folder1&"*.pdf",$folder2&"*.pdf")
sleep (2000)
run ('cmd /c java -jar "C:\\Program Files\\PDF Split and Merge Basic\\lib\\pdfsam-console-2.4.1e.jar" -o "D:\fertigedatei.pdf" -d "D:\\Program Files (x86)\\abc\\PDF\\zumerstellen\\" concat',"", @SW_HIDE)
Sleep (2000)
FileMove ($folder2&"*.pdf",$folder3&"*.pdf")
$t=filegettime("d:\fertigedatei.pdf",1,1)
;MsGBox(0,"Test3",$t,1)
FileMove ("d:\fertigedatei.pdf",$folder4&$t&".pdf",1)
sleep (10000)
EndIf
EndIf
WEnd

Bin für jede Hilfe denkbar (Das vorhandene Skript macht sonst genau was ich will)

Gruß

Steffen

Zitat von Zeitriss

Ungetestet:

Script

[autoit]

#include

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

$folder1 = "U:\PDF\ausPDFCreator\" ;Eingang
$folder2 = "U:\PDF\zumerstellen\" ;verschieben für erstellen einer PDF
$folder3 = "U:\PDF\erledigt\" ;nacherstellen archiveren
$folder4 = "U:\PDF\Fertig\" ;erstellte Ausgangsdatei

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

While 1
sleep (1500)
$dir1 = _FileListToArray($folder1, '*.pdf')
sleep (1500)
$dir2 = _FileListToArray($folder1, '*.pdf')
If not @error and Isarray($dir1) Then
If($dir1[0]=$dir2[0]) Then
MsgBox (0,"Gleich", "Keine neuen Ausdrucke",1)
FileMove ($folder1&"*.pdf",$folder2&"*.pdf")
sleep (1000)
run ('cmd /c java -jar "C:\\Program Files\\PDF Split and Merge Basic\\lib\\pdfsam-console-2.4.1e.jar" -o "U:\fertigedatei.pdf" -d "U:\\PDF\\zumerstellen\\" concat',"", @SW_HIDE)
Sleep (1000)
FileMove ($folder2&"*.pdf",$folder3&"*.pdf")
$t=filegettime("U:\fertigedatei.pdf",1,1)
MsGBox(0,"Test3",$t,1)
FileMove ("U:\fertigedatei.pdf",$folder4&$t&".pdf",1)
Exit
EndIf
WEnd

[/autoit]

Hier prüfe ich es mit IsArray() nach

€: was soll eigentlich passieren wenn das neune Document, nach dem $dir2 deklariert wurde aber bevor $dir1 wieder dran ist, eingefügt wird?

Achso du prüfst nur nach ob er immer noch neue Dokumente kommen, sorry habe das nicht sofort verstanden^^

Alles anzeigen

Habe ich heute früh getestet und es läuft es fehlt nur am Ende noch ein EndIF. Msgbox habe ich auskommentiert und das Exit entfernt.

DANKE

Steffen

Zitat von BugFix

Unabhängig von deinem Problem: Warum machst du das so kompliziert?
Das kannst du ohne Java-Gedöns und sauber per CMD-Line-Befehlen des PDFCreators erledigen. Und das Beste: Diese Befehle wurden schon in eine AutoIt-UDF portiert. Bemühe mal die SuFu.

Das habe ich natürlich gemacht. Nur habe ich es nicht verstanden..

http://www.autoitscript.com/forum/topic/42…ator-print2pdf/

[ offen ] PDF erstellen + zusammenfügen

Wenn du mir noch einen Besseren Tip geben kannst. Nehme ich den gerne.

Bin was Autoit angeht nur ein Anfänger.

Ordner Struktur hat nur den Vorteil das ich nicht an PDFCreator gebunden bin.

Steffen

Hallo Zeitgeist,

Version 1 verstehe ich, werde ich morgen früh mal testen.

Version 2 komme ich nicht nach dem Sinn.

Ich gehe davon aus das in dem Verzeichnis keine Dateien drin sind also ist $dir1 immer leer (Error).

Deshalb prüfe ich es ja immer abwechselnd um Unterschiede zu erkennen. Zeit wird später auch auf 3-5 Sekunden erhöht.

Du vergleichst ja nur Anfang mit Zwischenschritt.

Und genau wo ich dir dies erklären will hast du es auch schon gemerkt

Steffen

Hallo,

bräuchte mal einen Tip. Eigentlich Funktioniert mein Skript, nur gibt es folgenden Fehler. Kommt eine Datei in das Eingangsverzeichnis. In der Zeit zwischen $dir1 und $dir2 rein. Bricht das Skript ab und meldet das in der in $dir1 (nichts ist Error). Was kann ich da noch machen. Wo seht Ihr noch Verbesserungen in dem Skript?

Was passiert.
-> Aus dem PDFCreator kommen PDF Dokumente die gesammelt werden sollen.
-> nach Zeit werden Sie verschoben um Sie zu trennen (von neu eintreffenden in der Verarbeitungszeit)
-> dann werden Sie verbunden (Java Tool)
-> alte Datein werden Archiviert
-> die Fertige Datei wird nach Datum und Uhrzeit benannt verschoben

MsgBox ist natürlich aktuell nur zur Kontrolle und die Schleife Endet wird dann natürlich kein Exit geben.

#include <File.au3>

$folder1 = "U:\PDF\ausPDFCreator\" ;Eingang
$folder2 = "U:\PDF\zumerstellen\" ;verschieben für erstellen einer PDF
$folder3 = "U:\PDF\erledigt\" ;nacherstellen archiveren
$folder4 = "U:\PDF\Fertig\" ;erstellte Ausgangsdatei

While 1
sleep (1500)
$dir1 = _FileListToArray($folder1, '*.pdf')
If not @error Then
MsgBox(0, "Test1", $dir1[0],1)
EndIf
sleep (1500)
$dir2 = _FileListToArray($folder1, '*.pdf')
If not @error Then
MsgBox(0, "Test2", $dir2[0],1)
if ($dir2[0] > 1) and ($dir1[0] > 1) Then
If($dir1[0]=$dir2[0]) Then
MsgBox (0,"Gleich", "Keine neuen Ausdrucke",1)
FileMove ($folder1&"*.pdf",$folder2&"*.pdf")
sleep (1000)
run ('cmd /c java -jar "C:\\Program Files\\PDF Split and Merge Basic\\lib\\pdfsam-console-2.4.1e.jar" -o "U:\fertigedatei.pdf" -d "U:\\PDF\\zumerstellen\\" concat',"", @SW_HIDE)
Sleep (1000)
FileMove ($folder2&"*.pdf",$folder3&"*.pdf")
$t=filegettime("U:\fertigedatei.pdf",1,1)
MsGBox(0,"Test3",$t,1)
FileMove ("U:\fertigedatei.pdf",$folder4&$t&".pdf",1)
Exit
EndIf
EndIf
EndIf
WEnd

Danke

Steffen

Hallo autoBert,

ich habe versucht deinen Tip umzusetzten. Allerdings verstehe ich nicht wie ich es genau machen soll. Meine Test führten mich leider nicht zum Ziel.

Gruß
Steffen

Hallo

habe ein kleines Skript geschrieben was Daten aus einer Excel Liste kopiert und in ein Programm einfügt. Läuft auch soweit.

Nur füllt es manchmal haben einige Zellen keinen Inhalt. Dann soll das Skript das einsetzen überspringen.

Ich habe es versucht mit folgender Funktion, hinzubekommen geht allerdings nicht.

$bak = ClipGet()
if @error = 1 then
MsgBox (0,"Fehler","Fehler dann Beende dich")
Exit
EndIf

MsgBox (0,"Kein Fehler","Es ist folgendes in der Zwischenablage " &$bak)

Danke für jeden Tip

Steffen

Habe ein CTI Monitor der HTML Code kann (Bubble.htm)

eine SQL-Datenbank
einen LDAP Server <customer1> (das geht alles)
habe dann noch eine Webbassierte Warenwirtschaft die auf die SQL Datenbank zugreift.
dort wird beim Anmelden eine USER-ID erzeugt und in der Datenbank abgelegt.

Das Anmelden überwache ich und will die USER ID haben damit ich in der Bubble.htm / Contact.htm dann einen Statischen Link auf rufen kann das Problem ist nur die User ID die ändert sich bei jeder Anmeldung.

Also muß ich die Anmeldung abwarten die Daten aus der Datenbank auslesen und in den "statischen" Link rein packen. Feritg Ruft nun ein Kunde an kann man sofort die Kundendatenbank öffnen oder auch Auftrag/Angebot.

Man kann den User in einer INI-Datei fest einstellen oder erwerd einfach beim Anmelden nochmals Manuell für die Session abgefragt.

Erweiterungen habe ich dann auch noch in Plannung wenn es mal geht.

Ich hoffe du verstehst mich! (mit PHP kann ich nicht arbeiten weil es alles lokal ausgeführt wird. Mit Javaskript kann ich nicht arbeiten weil man damit keine Datenbank abfragen kann. klar könnte ich Autoit und Javaskript kombinieren aber ich dachte mir alles mit einem ist übersichtlicher. man startet die exe direkt mit dem PC und beendet sie auch erst wenn der PC runterfährt, weil man kann sich ja öfters Anmelden.

Aktuelle Version noch immer ohne Daten Austausch

Ok das Problem ist nur das ich den alten Wert dann auch erst auslesen müßte, denn den habe ich nirgens sonst ab "WF" das muß auch immer wieder ausgetauscht werden und das ist eigentlich der ganze Sinn des Programmes !

Ich hoffe ich drücke mich richtig aus wenn nicht versuche ich es gerne noch mal mit anderen Worten.

Leider komme ich immer noch nicht mit meinem Project weiter. Der austausch und das das Programm in einer Schleife laufen soll. Falls mir jemand noch einen Denk anstoß geben könnte?

Habe mal die HTML Datei hier reingeschrieben liegt unter C:\programme\call\blubble.htm

Man meldent sich an das CRM Programm an und bekommt eine neue ID (deshalb die SQL Abfrage)
es wird dann eine INFO Blase bei neuem Anruf geöffnet mit einem Statischem Link und man hat sofort den passen Kunden auf.

<html>
<head>
<!--
<WindowWidth>250</WindowWidth>
<WindowHeight>160</WindowHeight>
<Scrollbar>1</Scrollbar>
-->
<style TYPE="text/css">
<!--
td { font-size: 8pt; font-family: verdana, arial, helvetica, sans-serif; }
body { font-size: 8pt; font-family: verdana, arial, helvetica, sans-serif; margin-top:0; margin-left:0; margin-bottom:0; margin-right:0; background-color:COLORREFBACK; }
-->

</head>

<body>

<table>

<tr>
<FirstName> <LastName>
</tr>
<tr>
<td>AD-ID:</td><td><Custom0></td>
</tr>
<tr>
<td>Zahlung:</td><td><Custom1></td>
</tr>
<tr>
<td>Tour:</td><td><strong><Custom2></strong></td>
</tr>
<tr>
<td><LBLCOMPANY>:</td><td><Company> <Department> <JobTitle></td>
</tr>
<tr>
<td><LBLADDRESS>:</td><td><AddressStreet> <AddressPostalCode>&nbsp;<AddressCity> <AddressCountry></td>
</tr>
<tr>
<td><a href="http://server/meier/ie50/CRM/crmmain/crmmain.aspx?Type=Address&RecordID=<Custom7>&ClientID=wff8864863-30c3-4a46-a101-cf708f5a7adb">CRM</a></td>
<td><a href="http://server/meier/ie50/Sales/SalesOrders/SalesOrdersMain.aspx?ClientID=wff8864863-30c3-4a46-a101-cf708f5a7adbOrderType=4&AddressID=<Custom7>&ProjectID=0">Angebot</a></td>
<td><a href="http://server/meier/ie50/Sales/SalesOrders/SalesOrdersMain.aspx?ClientID=wff8864863-30c3-4a46-a101-cf708f5a7adb&OrderType=2&AddressID=<Custom7>&ProjectID=0">Auftrag</a></td>
</tr>
</table>
</body>
</html>

Genau das habe ich gemeint ! (1 Problem weniger)

Zitat von progandy

Kein TrayIcon:
#NoTrayIcon

Problem was ich noch nicht gelöst habe und auch nicht so ganz verstehe.
Wenn es das erstmal durch gelaufen ist endet das Programm, soll es aber nicht

Func OnAutoItExit()
; was auch immer, SQL schließen
EndFunc

geht nicht da ein syntax Error in der mssql.au3 erzeugt wird.

mit StringReplace habe ich auch so meine Probleme in der Datenbank steht ebend nicht der komplette Link und auch nicht welche ID der User vorher hatte. (entweder tauche ich den Link komplett aus oder ersetzte die ID! Nur wie kome ich nicht genau dahinter.

Herzlich Dank schonmal für die schnelle Info

1/2/3 werde ich ausprobieren

Ja silent ist es msg Box ist nur zur Kontrolle. (Ging mir hier ob ich es auch aus der Taskleiste rausnehmen kann)

Folgendes Problem bei Anmelden wird jedesmal eine neue ID vergeben leider kann ich kein PHP oder so im HTML Text benutzten. Deshalb muß ich den Start überwachen und dann aus der SQL Datenbank den Wert in einen Link schreiben.

http://server/klaus/ie50/CRM…px?ClientID=xxx

(Wert xxx ist z.B.: 'wfb52c8df2-6082-48aa-8839-13df380a4dc3') (wfb ist immer gleich auch die Länge)

Raus lesen aus Datenbank mit warten geht.

1. Problem ich bekomme zwar den Wert aus der Datenbank in die Datei aber nicht noch die Information des Link es.

2. Problem ich muß den Link austauschen also nicht anhängen sondern ändern.

3. Problem mein Programm muß mit dem Rechner starten und erst beim runterfahren sich schließen. (sprich Schleife)
4.Problem nicht ganz so wichtig Programm sollte im Hintergrund ablaufen ohne das man es sieht (nur Taskmanger)

#include "mssql.au3"

WinWaitActive("Anmeldung")
WinWaitClose("Anmeldung")

Sleep(15000)

$sql = _SQLCon("192.168.1.200", "sa", "master", "wfGlobal")
$var = _SQLQuery($sql, "Select * From dbo.tsClients WHERE UserInitials='ST001'")

With $var
While Not .EOF
FileWriteLine("c:\test.txt",.Fields("ClientID").value & @CRLF)
MsgBox(0, 'Output', .Fields("ClientID").value)
.MoveNext
WEnd
EndWith
_SQLEnd($sql)

Herzlichen Dank schon einmal vorne weg.

Gruß Steffen

P.S.: die Datei mit dem html Code kann ich auch zurverfügung stellen.