Beiträge von 20721

20721

Hallo Ihr beiden,

ja das ich mit der Schleife ein Problem habe, ist mir ja bekannt.

Hatte nur eine komplette Blockade wie ich da raus kommen oder wie man es einfacher lösen kann.

Werde das Script von Mommbas morgen mal entsprechend testen und noch anpassen.

Da ich gerade im Urlaub bin kann meine Rückantwort etwas dauern, aber sie kommt.

Danke erstmal

20721

Hallo zusammen,

ich benötige mal einen kleinen Schubs um mein Problem zu lösen.

Ich habe ein Script erstellt, welches als Schleife laufen soll, soweit gut und fast schön.

Aber nach einer gewissen Zeit bekomme ich die Fehlermeldung wie im Betreff.

Ich grübel jetzt schon eine weile darüber, aber irgendwo habe ich eine Fehler drin, wo ich keine Lösung zu finde.

Anbei mal das Script in der Hoffnung einer von hier findet die Lösung.

Ist bestimmt nicht schwer aber ich habe nun keinerlei Idee mehr.

Das Script soll lauf einem Server laufen und bei Bedarf PDF Dateien auf einen anderen Server verschieben, da meine User auf dem die PDF Dateien ankommen keinen Zugriff bekommen sollen.

Diese werden über MFP Geräte als FDP Datei eingescannt.

Bei dem Befehl FileMove habe die " eingefügt, sonst wären dort Smiles

Spoiler anzeigen

#include <array.au3>

#include <File.au3>

#include <WinAPIFiles.au3>

kopieren()

Func kopieren()

$Quelle = "D:\Ordner\"

$Ziel1 = "\\Server\D$\Verzeichnis\"

$Ziel2 = "\\Server\D$\Verzeichnis1\Verzeichnis2"

Local $PDF = _FileListToArrayRec($Quelle,"*.pdf", 1,1)

For $i = 1 to UBound($PDF, $UBOUND_ROWS) - 1

$Verzeichnis = StringSplit($PDF[$i],"\")

$Zugriff = _WinAPI_FileInUse($Quelle&$PDF[$i])

$byte = FileGetSize($Quelle&$PDF[$i])

If $Zugriff = "1" OR $byte = "0" Then

Else

If $Verzeichnis[1] = "Allgemein" then

"FileMove($Quelle&$PDF[$i],$Verwa&$Verzeichnis[2], 8)"

Else

"FileMove($Quelle&$PDF[$i],$Home&$Verzeichnis[1]&"\Scanner\"&$Verzeichnis[2], 8)"

EndIf

_ArrayDelete($PDF, $i)

EndFunc

Func pause()

sleep(10000)

kopieren()

EndFunc

20721

Moin,

danke Micha_he für den hinweis und Racer nochmal für die Erklärung.

nun habe ich das ganze im 64bit Modus gemacht und siehe da es funzt so wie es soll.

Jetzt geht es ins eingemachte.

20721

32bit kompiliert.

Ich werde mal das ganze als 64bit kompilieren und sehen ob es dann läuft.

Dism und diskpart stehen nur unter X:\windows\system32.

20721

Moin,

hatte ich auch ausprobiert.

Aber leider bleibt der Fehler weiterhin.

Komisch ist auch wenn ich z.B. die dism.exe, welche ebenfalls nicht gefunden werden kann in das Verzeichnis X:\setup\ kopieren, kann ich diese auch ausführen bzw. er findet diese.

Als ich das gleiche mit Diskpart.exe versucht habe bleibt das Programm hängt, sprich es startet und keine weitere Eingabeaufforderung.

Vielleicht kennt einer die notwendigen Dateien um diskpart zu starten, so würde ich diese vorab entsprechend kopieren.

20721

Hallo,

nach langem Probieren komme ich nicht mehr weiter und hoffe einer kann mir weiterhelfen.

Ich habe mit mir dem WINPESE Builder ein ISO gebaut um unsere Rechner einfacher zu installieren.

Zum Anfang habe ich alles über Batchdateien laufen lassen um die SSD entsprechend vorzubereiten und bin jetzt dabei das ganze in AutoIT zu packen mit einem entsprechenden GUI.

Nun habe ich das Problem sobald ich versuche "diskpart" oder "dism" aus dem Script zu starten klappt es nicht.

Nach langer suche bin ich darauf gestoßen das wenn ich eine DOS Fenster öffne komischer weise "diskpart" und "dism" nicht mehr im Verzeichnis C:\Windows\system32 finde. Sprich es ist nicht mehr vorhanden in dem Prozess.

Wenn ich parallel ein DOS Fenster ohne AutoIT öffne kann ich die beiden Programme starten.

Ich habe folgende Zeilen versucht, aber immer mit dem gleichen Problem.

So sieht meine Zeile entsprechend aus.

RunWait(@ComSpec & " /c " & "Diskpart /S" & @ScriptDir & "\Disk0.txt > Protokoll.txt", @ScriptDir)

Auch wenn ich /c gegen /k austausche klappt es nicht. RunAsWait bringt ebenfalls keine Besserung.

Hat jemand einen Tipp für mich.

20721

Hallo autoBert,
danke erstmal für die Antwort.
Also ich habe nochmal alles durch gesehen was mein Script und die au3 Dateien betrifft ob ich was finden kann.

Aber wie das zu manchmal ist, keine Fehler gefunden.

Darauf hin haben ich AutoIt komplett einmal deinstalliert und die Version 3.3.8.1 neu installiert, was aber auch kein Erfolg brachte.

somit habe ich notgedrungen die Version 3.3.14 installiert mit der SciTe 3.5.4.

Siehe da plötzlich ging alles so wie ich es auch in meinem Script eingetragen habe.

ich werde jetzt mal prüfen lassen ob ich die 3.3.14 nutzen kann ohne das unsere Virenscanner bei denn au3 sowie exe dateien Alarm schlagen.

Bei einer Version wurden mir alle EXE ( ca. 80 Stk. ) gelöscht da angeblich Sicherheitsrisiko.

Von daher werde ich die Anfrage mal schließen

20721

Hallo zusammen,
ich bin gerade dabei für unsere Mitarbeiter in unserer Firma eine kleines Script zu schreiben wo ich Dateiinformationen von einem FTP Server abfrage.
Dazu muss ich _FTP_ListToArrayEx nutzen da ich neben den Dateinamen auch die Größe und das Datum abfrage.

Und jetzt kommt das Problem bzw. ich weiß nicht ob ich was falsche mache oder es an der FTPEx.au3 liegt.

Hier mal ein Script was ich zum testen genommen habe.

C

#include <FTPEx.au3>
#include <Array.au3>
#include <File.au3>
$RemoteFile = "<Verzeichnis>"
If ping(<IP>) > 0 Then
   $Open = _FTP_Open(<IP>)
  $Conn = _FTP_Connect($Open,<IP>, $FTP_user, $FTP_pass)
  _FTP_DirSetCurrent($Conn, $RemoteFile)
  $aFile = _FTP_ListToArrayEx($Conn,0)
  _ArrayDisplay($aFile)
  $File = Fileopen(@ScriptDir & "\Test.txt",2)
 _FileWriteFromArray($File, $aFile,1,0,";")
 _FTP_Close($open)
Else
EndIF

Alles anzeigen

Wenn ich das Script so laufen lasse bekomme ich auch alle Informationen geliefert

Sprich: Datei oder Verzeichnisname, Dateigröße,Dateiattribut,Datum und Uhrzeit

Und jetzt habe ich zwei Probleme

1. Wenn ich bei _FTP_ListToArrayEx($Conn,0) den Parameter von 0 = Dateien und Verzeichnisse auf 1 oder 2 ändere bekomme ich ein leeres Array angezeigt
2. Wenn ich die Testdatei öffne bekomme ich bei dem Parameter 0 das Datum und die Uhrzeit nicht mit ausgegeben, sondern die Ausgabe erfolgt wie unten.

.;0;16
..;0;16
L;0;16
I;0;16
G;0;16
V;0;16
CAAS;0;16
MULTIHOS;0;16
STD.TXT;0;32

Sprich er schreibt mir keine Informationen über das Datum und Uhrzeit in die Textdatei.

Wer kann mir verraten was ich falsche mache oder kann es sein das ich eine falsche FTEx.au3 habe.

Die Programmversion von AutoIt lautet: 3.3.8.1

Aus sicherheitstechnischen Gründen bin ich an dieser Version gebunden.

Hier die Informationen zur FTPEx.au3 Datei

; #INDEX# =======================================================================================================================
; Title .........: FTP
; AutoIt Version : 3.3.7.20++
; Language ......: English
; Description ...: Functions that assist with FTP.
; Author(s) .....: Wouter, Prog@ndy, jpm, Beege
; Notes .........: based on FTP_Ex.au3 16/02/2009 http://www.autoit.de/index.php?page=Thread&postID=48393
; Dll(s) ........: wininet.dll
; ===============================================================================================================================

Vielen Dank schon im Voraus für die Hilfe

20721

Hallo BugFix,
danke für die schnelle Antwort.
klappt super, darauf wäre ich nie im Leben gekommen.

Ihr seit hier echt super.

Jetzt kann ich bmail auch abschalten.

20721

Hallo zusammen,
ich habe man eine Frage zu diesem Script und ob man meine Idee damit umsetzten kann.
Das Script habe ich per Google mal gefunden und läuft auch ohne Probleme.

[autoit]

$SmtpServer = "" ; address for the smtp-server to use - REQUIRED
$FromName = "" ; name from who the email was sent
$FromAddress = "" ; address from where the mail should come
$ToAddress = "" ; destination address of the email - REQUIRED
;$ToAddress = ""
$CcAddress = ""
$BccAddress = "" ; address for bcc - leave blank if not needed
$Subject = "" ; subject from the email - can be anything you want it to be
$Body = "" ; the messagebody from the mail - can be left blank but then you get a blank mail
$AttachFiles = "" ; the file(s) you want to attach seperated with a ; (Semicolon) - leave blank if not needed
$Importance = "HIGH" ; Send message priority: "High", "Normal", "Low"
$Username = "" ; username for the account used from where the mail gets sent - REQUIRED
$Password = "" ; password for the account used from where the mail gets sent - REQUIRED
$IPPort = ; port used for sending the mail
$ssl = ; enables/disables secure socket layer sending - put to 1 if using httpS
; GMAILenables/disables secure socket layer sending - put to 1 if using httpS

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

;##################################
; Script
;##################################
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
If @error Then
MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $rc)
EndIf
;
; The UDF
Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
Local $objEmail = ObjCreate("CDO.Message")
$objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
$objEmail.To = $s_ToAddress
Local $i_Error = 0
Local $i_Error_desciption = ""
If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
$objEmail.Subject = $s_Subject
If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
$objEmail.HTMLBody = $as_Body
Else
$objEmail.Textbody = $as_Body & @CRLF
EndIf
If $s_AttachFiles <> "" Then
Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
For $x = 1 To $S_Files2Attach[0]
$S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
;~ ConsoleWrite('@@ Debug : $S_Files2Attach[$x] = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
If FileExists($S_Files2Attach[$x]) Then
ConsoleWrite('+> File attachment added: ' & $S_Files2Attach[$x] & @LF)
$objEmail.AddAttachment($S_Files2Attach[$x])
Else
ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
SetError(1)
Return 0
EndIf
Next
EndIf
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
If Number($IPPort) = 0 then $IPPort = 25
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
;Authenticated SMTP
If $s_Username <> "" Then
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
EndIf
If $ssl Then
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
EndIf
;Update settings
$objEmail.Configuration.Fields.Update
; Set Email Importance
Switch $s_Importance
Case "High"
$objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
Case "Normal"
$objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
Case "Low"
$objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"
EndSwitch
$objEmail.Fields.Update
; Sent the Message
$objEmail.Send
If @error Then
SetError(2)
Return $oMyRet[1]
EndIf
$objEmail=""
EndFunc ;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func MyErrFunc()
$HexNumber = Hex($oMyError.number,
$oMyRet[0] = $HexNumber
$oMyRet[1] = StringStripWS($oMyError.description, 3)
ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF)
SetError(1); something to check for when this function returns
Return
EndFunc ;==>MyErrFunc

[/autoit]

Nun möchte ich Anstatt eine Datei als Anhang mit zu senden den Inhalt der Datei als Body haben.

Derzeit mache ich das über bmail aber ich möchte gerne wenn es möglich ist alles aus einer Hand haben und nicht auf andere Programme zugreifen.

Daher meine Frage an euch, ob sowas überhaupt machbar ist mit diesem Script.

Versucht habe ich bereits die Datei in ein Array einzulesen und dies als Body auszugeben, aber leider ohne Erfolg.
Ebenfalls die Textdatei als Body anzugeben verlief ohne erfolg.

Es waren wie gesagt versuche, wobei ich mit schon gedacht habe das dieses schief geht.

20721

Hallo zusammen,
man gut das man mal abschalten kann und nun habe ich eine Lösung gefunden.
Vielleicht nicht die beste aber sie funzt.

[autoit]

$i = 0
$Gesamt = 0
While 1
$Einzel = _GUICtrlListView_GetItemText($ListView2, $i,3)
If $olaf = "" Then
ExitLoop
Else
$Gesamt = $Gesamt + $Einzel
EndIf
$i = $i + 1
WEnd
If $Gesamt > 0 Then
sleep(10000)
_start()
Else
EndIf

[/autoit]

Aber danke für den Gedankenanstoß

20721

Hallo,
leider habe ich erst heute Zeit das ganze mal zu testen
@chip
Vielleicht habe ich mich bei der Beschreibung etwas doof ausgedrückt.Die Summenberechnung soll erst dann stattfinden wenn alle Schleifen beendet sind und das ListView gefüllt ist.

@'Kanashius
Wenn ich deine func ins Script einbinde bekomme ich folgende Fehlermeldung
.C:\SQL\SQL.au3(210,62)
: ERROR: syntax error$Number+=int(_GUICtrlListView_GetItem($ListView2,$i,$column)[~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

20721

Hallo zusammen,
leider konnte ich was mein Problem betrifft keine Informationen finden, so das ich euch mal fragen wollte ob das möglich ist was mir vorschwebt und wie man das umsetzen könnte.

Hintergrund:
Ich habe ein Script geschrieben womit ich was super läuft, nach bestimmten Eingaben eine SQL Abfrage starte, das Ergebnis dieser Abfrage wird über ein Array dann an ein _GUICtrlListView weitergegeben.

Ziel:
Damit der Anwender nicht von sich aus diese Abfrage immer wieder neu starten muss, wollte ich ein Automatik einbauen die diese Abfrage alle 60 Sek. neu startet.

Problem:
Damit die Abfrage nicht in eine Endlosschleife läuft wäre es von meiner Seite aus sinnvoll die Summe einer Spalte zu berechnen und wenn diese = 0 ist soll der die Automatik abbrechen.
Bei dem Inhalt der Spalten handelt es sich um Zahlen

Da das Script etwas größer ist und Firmenintern hoffe ich das euch die Infos reichen die ich hier einstelle ohne das ich das Script erstmal umarbeiten muss.

Die Spalten vom ListView sehen so aus, wobei ich die Summe der Spalte 4 benötige.

$Listview2 = GUICtrlCreateListView("1", 2, 270, 600, 150)
_GUICtrlListView_AddColumn($ListView2, "2", 50)
_GUICtrlListView_AddColumn($ListView2, "3", 90)
_GUICtrlListView_AddColumn($ListView2, "4", 90)
_GUICtrlListView_AddColumn($ListView2, "5", 90)
_GUICtrlListView_AddColumn($ListView2, "6", 90)
_GUICtrlListView_AddColumn($ListView2, "7", 90)

Die Werte werden mittels
_GUICtrlListView_AddArray($ListView2, $aArray)
vom Array das wie folgt aufgebaut ist in das ListView eintragen.

_Array2DInsert($aArray, $Zeile_array, $eingabe&"|"&$String_Abt[2]&"|"&$String_Abt[4]&"|"&changeNumber(StringFormat('%.2f',$Summe0), '.', ',')&"|"&changeNumber(StringFormat('%.2f',$Summe1), '.', ',')&"|"&changeNumber(StringFormat('%.2f',$Summe2), '.', ',')&"|"&changeNumber(StringFormat('%.2f',$Diff), '.', ','))

Bis auf die If Then Formel bin ich noch nicht weitergekommen.

If <Prüfen ob die Summe > 0 ist> Then
start()
Else
MsgBox(0,"text","Es wurden alle Werte verabreitet")
EndIf

Das wäre die Einfache Methode wenn sowas möglich ist, am liebsten wäre mir ein Countdown der Runterzählt im GUI wann die nächste automatische Aktualisierung laufen wird.

Ich hoffe ich habe mich verständlich ausgedrückt, falls noch Infos fehlen einfach fragen.

20721

Hallo AspirinJunkie,

Das mit deiner Schleife klappt perfekt.

Das mit den #include hatte ich noch aus alten Testzwecken, habe ich aber auch schon rasugenommen.

Damti ist der Fall gelöst und ich bedanke mich.

20721

Hallo zusammen,
für meine Arbeit muss ich mich mit einen Oracle Server 11g verbinden und dort entsprechende Abfragen durchführen.
Die Verbindung und eine abfrage bekomme ich auch hin aber wenn ich die Abfrage ausführe zeigt er mir immer nur den ersten Datensatz an, ich weiß aber das es wesentlich mehr Datensätze gibt.
Das Programm was wir normalerweiße einsetzten kann ich nicht nutzten, da ich über 300 Abfragen hätte und eine Script schreiben das das Programm steuert geht auch nicht da ich das Script nachts laufen lassen müsste bei der Menge.

Anbei das Script und ich hoffe das mir jemand weiterhelfen kann, was die Ausgabe betrifft.

Spoiler anzeigen

#include <sqlite.au3>
#include <sqlite.dll.au3>
#include <Array.au3>
#include <mysql.au3>

Local $avArray[3][3]

$conn = ObjCreate( "ADODB.Connection" )
$DSN = "Driver={Microsoft ODBC for Oracle};" & _
"CONNECTSTRING=(DESCRIPTION=" & _
"(ADDRESS=(PROTOCOL=TCP)" & _
"(HOST="&$Host&")(PORT="&$Port&"))" & _
"(CONNECT_DATA=(SID="&$SID&"))); Uid="&$User&";Pwd="&$PW&";"

$conn.Open($DSN)
$rs = ObjCreate( "ADODB.RecordSet" )
$rs.open("select trunc(1a) 1, sum (2a) 2, 3a Zeichen from "TABELLE" where datum> '02.09.2014' group by trunc(1a), 3a order by trunc(1a)", $conn )

$avArray[0][0] = $rs.Fields( "1" ).Value
$avArray[0][1] = $rs.Fields( "2" ).Value
$avArray[0][2] = $rs.Fields( "Zeichen" ).Value
_ArrayDisplay($avArray)

$conn.close

Ich musste die Werte entsprechend verändern da es eine interen Abfrage ist.

Es zeigt mir wie gesagt nur den ersten Datensatz an den er findet, er sollte aber alle Datensätze anzeigen wo das Datum größer als der 02.09.2014 ist.

Muss ich noch eine entsprechende Schleife einbauen ?

Die Abfrage würde ich dann gerne in eine Textdatei schreiben lassen bzw. zwecke einfacher Kontrolle in eine Array schreiben lassen.
Das mit den Array habe och auch schon mal getestet und dabei hat er mir wie gesagt nur einen Datensatz angezeigt.
Das mit der Textdatei klappt überhaupt nicht.

Google konnte mir leider keine genauen Tipps geben, ich hoffe einer hier kann mir weiterhelfen.

20721

Hallo nochmal,
da ich noch berichte erstellen muss und keine weiteren Scripte schreiben wollte, habe das Script entsprechend erweitert.
Doch nun habe ich das Problem das er nicht mehr die 10 Verbindungen parallel aufbaut sondern wie vorher alle nach einander.
Ich bin das SCript schon durchgegangen kann aber so keine Fehler feststelle.
Bin vielleicht auch etwas Bild geworden in dem Script.
Wenn mir jemand vielleicht ein Typ geben kann woran es liegen könnte oder was ich daran besser machen kann wäre ich dankbar.

Spoiler anzeigen

[autoit]

#include <FTPEx.au3>
#include <File.au3>
#include <Date.au3>
#include <Array.au3>
If FileExists("D:\Automatik\RELEASE\Textdateien\status.ok") Then
; -------- Löschen nicht mehr benötigter Daten ------------------------------
FileDelete("D:\Automatik\RELEASE\Temp\*.*")
FileDelete("D:\Automatik\RELEASE\Berichte\*.*")