Beiträge von Oscar

[autoit]

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <Misc.au3>

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

Global $hWnd
Global $Befehle

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

HotKeySet("{ENTER}", "pressed")

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

Global $Konsole = _Konsol_Create("Konsole", "Test")
;=================================================================================================
; Function: _Konsol_Create
; Varibles: $title = Titel der Konsole
; $text = Text des Labels
; Author: SB
;=================================================================================================
Func _Konsol_Create($title, $text)
Dim $Befehle[5]
Local $dll = DllOpen("user32.dll")
Dim $hWnd[2]
$Befehle[0] = "Zeit"
$Befehle[1] = "Datum"
$Befehle[2] = "Ip"
$Befehle[3] = "PC-Name"
$Befehle[4] = "Username"
$hWnd[0] = GUICreate($title, 500, 300)
GUISetBkColor(0x000000)
$hWnd[1] = GUICtrlCreateEdit("", 0, 0, 500, 300, BitOR($ES_AUTOVSCROLL, $ES_WANTRETURN, $WS_VSCROLL), 0)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1, 0xDCDCDC)
GUICtrlSetFont(-1, 10, 400, 17, "Georgia")
GUISetState(@SW_SHOW)
While 1
Switch GUIGetMsg()
Case - 3
GUISetState(@SW_HIDE, $hWnd[0])
ExitLoop
EndSwitch
WEnd
Return $hWnd
EndFunc ;==>_Konsol_Create

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

Func pressed()
$read = ControlCommand($hWnd[0], '', $hWnd[1], 'GetLine', ControlCommand($hWnd[0], '', $hWnd[1], 'GetCurrentLine', ''))
Switch $read
Case ''
GUICtrlSetData($hWnd[1], @CRLF, 1)
Case 'zip'
GUICtrlSetData($hWnd[1], @CRLF & 'ZIP-Command' & @CRLF, 1)
Case Else
GUICtrlSetData($hWnd[1], ' <- Syntax Error' & @CRLF, 1)
EndSwitch
EndFunc ;==>pressed

[/autoit]

[autoit]

#include <array.au3>
$path = FileOpenDialog("Select a file to read attributes",@ScriptDir,"All (*.*)")
$prop = _GetExtProperty($path, -1)
_ArrayDisplay($prop,"Property Array")

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

;===============================================================================
; Function Name: GetExtProperty($sPath,$iProp)
; Description: Returns an extended property of a given file.
; Parameter(s): $sPath - The path to the file you are attempting to retrieve an extended property from.
; $iProp - The numerical value for the property you want returned. If $iProp is is set
; to -1 then all properties will be returned in a 1 dimensional array in their corresponding order.
; The properties are as follows:
; Name = 0
; Size = 1
; Type = 2
; DateModified = 3
; DateCreated = 4
; DateAccessed = 5
; Attributes = 6
; Status = 7
; Owner = 8
; Author = 9
; Title = 10
; Subject = 11
; Category = 12
; Pages = 13
; Comments = 14
; Copyright = 15
; Artist = 16
; AlbumTitle = 17
; Year = 18
; TrackNumber = 19
; Genre = 20
; Duration = 21
; BitRate = 22
; Protected = 23
; CameraModel = 24
; DatePictureTaken = 25
; Dimensions = 26
; Width = 27
; Height = 28
; Company = 30
; Description = 31
; FileVersion = 32
; ProductName = 33
; ProductVersion = 34
; Requirement(s): File specified in $spath must exist.
; Return Value(s): On Success - The extended file property, or if $iProp = -1 then an array with all properties
; On Failure - 0, @Error - 1 (If file does not exist)
; Author(s): Simucal ([email='Simucal@gmail.com'][/email])
; Note(s):
;
;===============================================================================
Func _GetExtProperty($sPath, $iProp)
Local $iExist, $sFile, $sDir, $oShellApp, $oDir, $oFile, $aProperty, $sProperty
$iExist = FileExists($sPath)
If $iExist = 0 Then
SetError(1)
Return 0
Else
$sFile = StringTrimLeft($sPath, StringInStr($sPath, "\", 0, -1))
$sDir = StringTrimRight($sPath, (StringLen($sPath) - StringInStr($sPath, "\", 0, -1)))
$oShellApp = ObjCreate ("shell.application")
$oDir = $oShellApp.NameSpace ($sDir)
$oFile = $oDir.Parsename ($sFile)
If $iProp = -1 Then
Local $aProperty[35]
For $i = 0 To 34
$aProperty[$i] = $oDir.GetDetailsOf ($oFile, $i)
Next
Return $aProperty
Else
$sProperty = $oDir.GetDetailsOf ($oFile, $iProp)
If $sProperty = "" Then
Return 0
Else
Return $sProperty
EndIf
EndIf
EndIf
EndFunc ;==>_GetExtProperty

[/autoit]

[autoit]

#include <Array.au3>

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

Dim $HexArray[4] = [0xFFFFFF, 0xC0C0C0, 0x808080, 0x00AA00], $String
$String = ''
For $i = 0 To UBound($HexArray) - 1
$String &= '0x' & String(Hex($HexArray[$i],6))
Next

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

MsgBox(0,0,$String)

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

$Array = StringRegExp($String, '.{8}', 3)
_ArrayDisplay($array)

[/autoit]

[autoit]

$search = FileFindFirstFile("E:\Workflow\10x16\" & "*.jpg")

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

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

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

While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
$find = StringInStr($file, "_Seite_", 1, -1)
$result = StringLeft($file, $find - 1)
FileMove("E:\Workflow\10x16\" & $file, "E:\Workflow\Ausgabe\" & $result & "_300dpi_cmyk.jpg", 1)
WEnd

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

FileClose($search)

[/autoit]