Beiträge von bernd670

Probiers mal 0x00AABB geht zwar schon mehr ins türkis aber man kanns gut lesen, bitte noch die table.au3 in die zip einfügen!

Es kann ja ruhig blau sein nur vllt. etwas heller damit man's richtig lesen kann!

Edit: Bei den Sourcen fehlt noch die Table.au3!

Ich brauch zwar kein Stundenplan mehr, ist aber ein nettes Projekt!

Allerdings ist die blaue Farbe für die Links etwas unglücklich gewählt, die kann man sehr schlecht lesen und der Link auf die neuste Version funktioniert (oder noch) nicht.

Weiter so!!!

Der Horizontale Scrollbalken gehört scheinbar zu $LVS_LIST! Eine Möglichkeit ist es so zu machen!

$LIST_FOLDER = GUICtrlCreateListView("Scripte", 0, 0, 200, 410, $LVS_NOCOLUMNHEADER) ;ERSTELLT EINE LISTE
_GUICtrlListViewSetColumnWidth($LIST_FOLDER, 0, 180) ; Breite = 200 minus Scrollbalken

PS: Jezt bekommst du doch bestimmt eine Geschwindigkeitsrausch, oder?

Edit:
Übrigens um Stile miteinander zu kombinieren nimmt man BitOR, mit einer Kombination von BitAND und BitNot kann bestimmt Stile wieder entfernen!

Hallo!

3 Fehler habe ich gefunden!

Fehler 1 u. 2: Die Schleifen in Zeile 51 und 171 sind nicht ganz korrekt

For $n = 1 To $size[1] + $size[2] ; Filescount + Dirscount

For $a = 1 To $size2[1] + $size2[2] ; Filescount + Dirscount

Tipp: ich würde ganz auf DirGetSize verzichten und die Schleifen so schreiben:

$search = FileFindFirstFile($pfad & "*.*")

If $search = -1 Then
MsgBox(0, "Error", "No files/directories matched the search pattern")
Exit
EndIf

While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop

$insert = _DoSQL("INSERT INTO applications (Name, Pfad) VALUES ('" & $file & "', '" & $pfad & $file & "' );", $datei1)
WEnd

oder mit _FileListToArray arbeiten!

Fehler 3: Bei deiner Dir-Überprüfung (Zeile 163) fehlt der Pfad:

If StringInStr(FileGetAttrib($pfad & "\" & $read_select), "D") Then

Eine Frage habe ich noch, warum arbeitest du mit einer Datenbank wenn der Ihalt sowieso bei jedem Verzeichniswechsel wieder gelöscht wird?

Hallo!

Wenn ich meine Daten eintrage funktioniert es ohne Probleme! Error 5x heisst ja laut hilfe das kene SMTP-Session geöffnet werden kann, das kann auch am Server vom Provider liegen oder vllt. ist auch der Port 25 gesperrt!

Kannst ja zu testen mal auf der Console telnet server 25 eingeben und schauen was als antwort kommt!

Bei GMX wäre es z.B. telnet smtp.gmx.de 25 und als Antwort kommt dann

Zitat

220 mail.gmx.net GMX Mailservices ESMTP {mp036}

@Mega: Das wird nicht gehen _INetSmtpMail verlangt an dieser Stelle ein Array!

Ich weis nicht ob der normale User das auch kann!?

Ich habe ganz unten rechts eine Combobox mit "Administativen Optionen" und da kann ich das Thema bearbeiten!

Hallo!

Dafür gibt es FileGetAttrib()!

If StringInStr(FileGetAttrib($Ausgewaehlte_Datei),"D") Then
;Tu Da und das...
Else
_RunDOS("start " & $pfad & GUICtrlRead(GUICtrlRead($List_Folder)))
EndIf

Hallo!

Ich habe die Schleife in _int2bin mal etwas optimiert, ist jetzt um einiges schneller!

Freut mich, war ja nur ne Kleinigkeit! :schild4:

@Mega, ja wenn ich do durch while ersetze, obwohl geht auch so (ohne if), aber schadet ja nicht!

Hallo!

Probier mal das!

Edit GtaSpider: hab Mal Spoiler geschlossen..

Danke @Spider :kiss:

Hallo!

Das $c = 5 war noch von meinem Test da ich mir keine INI-Datei anlegen wollte aus der ich die Werte lese, sorry!

Hallo!

So wie ich das sehe ist das was in der WBT-Datei steht nicht 100% das was du beschrieben hast. Intessant wäre noch zu wissen was steht in der Feiertag.txt, wann läuft das Script?

Ich habe es mal versucht umzusetzen (ohne gewähr!):

;- Umsetzung der WBT-Datei in AutoIt ------------------------------------------
#include <Date.au3>

Global Const $strTagName[8] = ["", "SON", "MON", "DIE", "MIT", "DON", "FRE", "SAM"]
Global $blFeiertagFlag = False

;- Errechnung des Beginndatum -------------------------------------------------
$strWochentag = $strTagName[@WDAY]

if $strWochentag = "MON" Then
$newtime = _DateAdd("D", -3, _NowCalc())
Else
$newtime = _DateAdd("D", -1, _NowCalc())
EndIf

$strBeginDatum = _DateTimeFormat( $newtime,2)
;- Errechnung des Endedatum ---------------------------------------------------
$strEndDatum = _DateTimeFormat( _NowCalc(),2)

;- Errechnung des Feiertagdatums ----------------------------------------------
If FileExists("\WBTfiles\Feiertag.txt") Then
$handle = FileOpen("\WBTfiles\Feiertag.txt", 0)
While 1
$Feiertag = FileReadLine($handle)
If @error Then ExitLoop
ClipPut($Feiertag) ; in der Zwischenablage ablegen, warum ? (steht auch so in WBT)
If $Feiertag = ";Deaktivierung des Beginn/Enddatum" Then
$strBeginDatum = FileReadLine($handle)
$strEndDatum = FileReadLine($handle)
$blFeiertagFlag = True
EndIf
WEnd
FileClose($handle)
EndIf

;- Sicherung in einer TMP Datei -----------------------------------------------
$handle = FileOpen("\Time.tmp", 2)
FileWriteLine($handle,$strBeginDatum)
FileWriteLine($handle,$strEndDatum)

If $blFeiertagFlag = False Then
FileWriteLine($handle,$strWochentag)
Else
FileWriteLine($handle, "Das Beginn/Enddatum wurde aus der Datei Feiertag.txt ausgelesen.")
EndIf

FileClose($handle)

Hallo!

So sollte es gehen:

#include <array.au3>

$result = IniReadSectionNames ("targets.ini")

$c = $result[0]
;~ $c = 5
Dim $tasktimes[$c][2]
for $i=1 to $result[0]
$data = IniReadSection ("targets.ini",$result[$i])
$tasktimes[$i-1][0]=$result[$i]
$tasktimes[$i-1][1]=$data[1][1]
MsgBox(0,$result[$i],$tasktimes[0][0]&$tasktimes[1][0]&$tasktimes[2][0]&$tasktimes[0][1]&$tasktimes[1][1]&$tasktimes[2][1])
Next
;~ _ArraySort($tasktimes,0,0,0,2,0) ; nach $result sortieren (aufsteigend = [0][0] kleinster Wert)
_ArraySort($tasktimes,0,0,0,2,1) ; nach $data sortieren (aufsteigend = [0][1] kleinster Wert)

MsgBox(0,"lowest",$tasktimes[0][1])

Die Tabelle sollte so mit Dim $tasktimes[$c][2] angelegt werden da du ja immer nur 2 Spalten brauchst, bei dein Dim-Anweisung werden immer soviel spalten wie Zeilen angelegt!

Hi!

Mit Include geht das nicht! Das geht nur mit den Ini...-Befehlen!

Hallo!

Für die Bearbeitung von INI-Dateien gibt es spezielle Befehle (IniDelete, IniRead, IniWrite, IniReadSection, IniReadSectionNames, IniRenameSection)!

Zeilenumbrüche kann man so in Dateien schreiben!

FileWrite($file, @CRLF)

Hallo!

Zitat

Orginal von @Sascha
Du meinst wenn ich die Exe über Command aufrufe? Da geht es auch nicht.... :hm:

Welche Exe meinst du, die gsprint.exe oder die von dir erstellte exe?

Wenn du die von dir erstellte exe meinst, probier mal den gsprint aufruf von Hand über Command aufzurufen!

Hallo!

Das Prolem ist das die 1. Schleife nicht beendet wird! Wenn die 2. Schleife in der Print-Funktion abgearbeitet ist kehrt das Programm in die 1. Schleife zurück und beginnt noch mal von vorne!

Also einfach die 1. Schleife weglassen und alles wird gut!

;#NoTrayIcon

; Hier kann ein Hotkey zum Beenden des Programms festgelegt werden
; in Anführungszeichen vorm Komma, z. Z. ALT+SHIFT+Q
HotKeySet("+!q", "Quit")

;Ist der Ordner C:\Temp\Workflow vorhanden?
If FileExists("C:\Temp\Workflow") Then

; Alle Dateien/Ordner wo schon vorhanden sind werden vorher gelöscht
FileDelete("C:\Temp\Workflow")
DirRemove("C:\Temp\Workflow\gedruckt", 1)
Else
; Erstellen des Workflows Ordners, nachdem festgestellt wurde, das der Ordner fehlt
DirCreate("C:\Temp\Workflow")

; !Testschreiben! Schreibe in die INI, das der Ordner erstellt wurde
;IniWrite("C:\Programme\FreePDF_XP\Workflow-Druck.ini", "Ordner erstellt", "Ordner", "1")

EndIf

;Pfad zu Gsview
$program = "c:\Programme\Ghostgum\gsview"

; Pfad der auf neue Dateien überwacht werden soll
$source = "C:\Temp\Workflow"

; Pfad, in den die Dateien nach dem Drucken verschoben werden sollen
;$dest = "C:\Temp\Workflow\gedruckt"

; Dauer des Prüfintervalls in Millisekungen (10 Sek = 10000)
$interval = 10

Sleep($interval)
$file = FileFindFirstFile($source & "\*.pdf")
If $file <> -1 Then Print()
FileClose($file)

Func Quit()
Exit
EndFunc ;==>Quit

Func Print()
While 1
$pdffile = FileFindNextFile($file)
If @error Then ExitLoop
RunWait('"' & $program & '\gsprint.exe" "' & $source & '\' & $pdffile & '"')
FileDelete("C:\Temp\Workflow\Druck.pdf")

WEnd
Exit
EndFunc ;==>Print

Hallo!

@Spider warum machst du das so umständlich mit HotKey, gib doch einfach dem Start-Button den Style $BS_DEFPUSHBUTTON!

Hallo,

hier die Antwort auf deine 1. Frage:

Send("{Enter 10}")

Edit: Bei mir funktioniert aber auch 10 x hintereinander Send("{Enter}").