Beiträge von Kleiner

; #FUNCTION# ====================================================================================================================
; Name...........: _ArrayUniqueEx
; Description ...: Returns Gibt ein eindeutiges 1 oder 2 Dimensonen Array zurück
; Syntax.........: _ArrayUniqueEx($aArray,[ $iDimension = 0,[ $iBase = 0,[ $Count = 0,[ $iCase = 0,[ $iOccur = 0,[ $iPost = 0,[ $iFlag = 2,[ $vDelim = '|']]]]]]]])
; Parameters ....: $aArray - Das Array bedienen
; $$iColumn - [optional] Die Dimension zum verwenden des Array
; $iBase - [optional] Ab welchen Index wird gefunden Standart - 0
; $Count - [optional] das wieviele auftreten des jeweiligen element 2 dimensionen array rückgabe
; $iCase - [optional] Groß-und Kleinschreibung werden berücksichtigt Standart nein - 0
; 0 = Groß- und Kleinschreibung werden nicht berücksichtigt (Standardwert).
; 1 = Berücksichtigt Groß- und Kleinschreibung.
; 2 = Groß- und Kleinschreibung werden nicht berücksichtigt. Es findet ein einfacherer, schnellerer Vergleich statt
; $iOccur - [optional] Das wievielte Auftreten des Unterstrings soll gefunden werden. Ist der Wert negativ, wird von rechts ausgehend gesucht. Der Standardwert ist 1 (erstes Auftreten von links ausgehend).
; $iPost - [optional] Die Startposition für die Suche.
; $iFlag - [optional] ändert wie das Teilen des Strings funktionieren soll. Es können mehrere Flags zusammen verwendet werden, [ Dieses Flag wird nur bei NICHT nutzung von $Count Berücksichtigt ]
; 0 = (Standard), es fungiert jedes in den Trennzeichen enthaltene Zeichen als Trennmarkierung
; 1 = es wird der gesamte Trennzeichenstring als Trennmarkierung genutzt
; 2 = deaktiviert die Rückgabe der Anzahl im ersten Element. Dadurch wird das Array
; $vDelim - [optional] Ein oder mehrere Trennzeichen. Die Groß- und Kleinschreibung wird berücksichtigt. [ Standart "|" ]
; Return values .: Erfolg - Gibt einen 1-dimensionalen Array mit nur die einzigartigen Elemente dieser Dimension oder ein 2 dimensionen array mit der viezahl des aufgetrehtenen element.
; Returns Erfolg 1 oder 2 Dimension Array oder Setzt @error
; 0 - Kein error.
; -1 - Kein Array oder größer als ein 2 Dimensionen Array
; -2 - Übergebener wert von $inCase oder $iFlag ausserhalb der Bestimmung
; -3 - Spalte größer oder kleiner als vorhanden
; -4 - Kein Fund
; Author ........: Kleiner (Autoit.de)
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......:
; ===============================================================================================================================

Func _ArrayUniqueEx(ByRef $aArray, Const $iColumn = 0, Const $iBase = 0, Const $Count = 0, Const $iCase = 0, Const $iOccur = 0, Const $iPost = 0, Const $iFlag = 2, $vDelim = '|')

If Not IsArray($aArray) Or UBound($aArray, 0) > 2 Then Return SetError(1, 0, -1)
If ($iFlag < 0 Or $iFlag > 2) Or ($iCase < 0 Or $iCase > 2) Then Return SetError(2, 0, -2)

Local $iUB = UBound($aArray), $iIndex[$iUB], $sTmp, $j = 0
Local $iStart, $iEnd, $iMid, $iTmp

If Not UBound($aArray, 2) Then
If $Count Then

For $i = $iBase To $iUB - 1
$pos = StringInStr($sTmp & $vDelim, $vDelim & $aArray[$i] & $vDelim, $iCase, $iOccur, $iPost)
Switch Not $pos
Case True
$sTmp &= $vDelim & $aArray[$i]
$iIndex[$j] = (StringLen($sTmp) - StringLen($aArray[$i]))
$aArray[$j] = 1
$j += 1
Case False
$iTmp = Int($pos / (StringLen($sTmp) / $j))
If $pos = $iIndex[$iTmp] Then
$aArray[$iTmp] += 1
ElseIf $pos = $iIndex[$iTmp + 1] Then
$aArray[$iTmp + 1] += 1
Else
$iStart = 0
$iEnd = ($j - 1)
$iMid = Int(($iEnd + $iStart) / 2)
While $iStart <= $iMid And $pos <> $iIndex[$iMid]
If $pos < $iIndex[$iMid] Then
$iEnd = $iMid - 1
Else
$iStart = $iMid + 1
EndIf
$iMid = Int(($iEnd + $iStart) / 2)
WEnd
$aArray[$iMid] += 1
EndIf
EndSwitch
Next

Else

For $i = $iBase To $iUB - 1
Switch Not StringInStr($sTmp & $vDelim, $vDelim & $aArray[$i] & $vDelim, $iCase, $iOccur, $iPost)
Case True
$sTmp &= $vDelim & $aArray[$i]
EndSwitch
Next

EndIf

Else

If ($iColumn > (UBound($aArray, 2) - 1) Or $iColumn < 0) Then Return SetError(3, 0, -3)
If $Count Then

For $i = $iBase To $iUB - 1
$pos = StringInStr($sTmp & $vDelim, $vDelim & $aArray[$i][$iColumn] & $vDelim, $iCase, $iOccur, $iPost)
Switch Not $pos
Case True
$sTmp &= $vDelim & $aArray[$i][$iColumn]
$iIndex[$j] = (StringLen($sTmp) - StringLen($aArray[$i][$iColumn]))
$aArray[$j][0] = 1
$j += 1
Case False
$iTmp = Int($pos / (StringLen($sTmp) / $j))
If $pos = $iIndex[$iTmp] Then
$aArray[$iTmp][0] += 1
ElseIf $pos = $iIndex[$iTmp + 1] Then
$aArray[$iTmp + 1][0] += 1
Else
$iStart = 0
$iEnd = ($j - 1)
$iMid = Int(($iEnd + $iStart) / 2)
While $iStart <= $iMid And $pos <> $iIndex[$iMid]
If $pos < $iIndex[$iMid] Then
$iEnd = $iMid - 1
Else
$iStart = $iMid + 1
EndIf
$iMid = Int(($iEnd + $iStart) / 2)
WEnd
$aArray[$iMid][0] += 1
EndIf
EndSwitch
Next

Else

For $i = $iBase To $iUB - 1
Switch Not StringInStr($sTmp & $vDelim, $vDelim & $aArray[$i][$iColumn] & $vDelim, $iCase, $iOccur, $iPost)
Case True
$sTmp &= $vDelim & $aArray[$i][$iColumn]
EndSwitch
Next

EndIf

EndIf

If Not $sTmp Then Return SetError(4, 0, -4)

If $Count Then
If Not UBound($aArray, 2) Then

Local $aTmp[$j][2]
$j = 0
For $str In StringSplit(StringTrimLeft($sTmp, StringLen($vDelim)), $vDelim, 2)
$aTmp[$j][0] = $str
$aTmp[$j][1] = $aArray[$j]
$j += 1
Next
Return $aTmp

Else

Local $aTmp[$j][2]
$j = 0
For $str In StringSplit(StringTrimLeft($sTmp, StringLen($vDelim)), $vDelim, 2)
$aTmp[$j][0] = $str
$aTmp[$j][1] = $aArray[$j][0]
$j += 1
Next
Return $aTmp
EndIf

Else
Return StringSplit(StringTrimLeft($sTmp, StringLen($vDelim)), $vDelim, $iFlag)
EndIf

EndFunc ;==>_ArrayUniqueEx

Local $srcpath = 'H:\*.*'
Local $tempdir = '\Test'
Local $F_op, $Run, $line, $Ers

$Run = Run(@ComSpec & " /c " & "dir /B /S " & $srcpath, @ScriptDir, @SW_HIDE, 2)

While 1
$line &= StdoutRead($Run, 0, 0)
If @error Then ExitLoop
$Ers = StringReplace(StringReplace(StringReplace(StringReplace(StringReplace(StringReplace(StringReplace($line, Chr(154), 'Ü'), Chr(129), 'ü'), Chr(153), 'Ö'), Chr(148), 'ö'), Chr(142), 'Ä'), Chr(132), 'ä'), Chr(225), 'ß')
WEnd

$F_op = FileOpen(@ScriptDir & $tempdir & "\Filter.log", 2)
FileWrite($F_op, $Ers)
FileClose($F_op)

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=OTRS-Backup.exe
#AutoIt3Wrapper_Au3Check_Parameters= -q
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.2.0
Author: myName

Script Function:
Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
;############################################################################################################################################################

; Wechsle in den OnEvent Modus
Opt("GUIOnEventMode", 1)

;~ GUICtrlSetOnEvent($btn_AddFile, "_AddFile")

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\b.wagener\Desktop\OTRS Update Tool\Mainform.kxf

Global $index = 1
Global $IniPaht = @ScriptDir & "\Config.ini"

$Form1 = GUICreate("OTRS BackupRestore", 595, 643, 192, 124)
GUISetOnEvent(-3, 'E')
$Label1 = GUICtrlCreateLabel("OTRS Pfad", 40, 88, 69, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$btn_OTRSPfad = GUICtrlCreateButton("Suchen", 400, 88, 131, 25, $WS_GROUP)
$Label2 = GUICtrlCreateLabel("Backup Pfad", 40, 134, 78, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$btn_backupPfad = GUICtrlCreateButton("Suchen", 400, 134, 131, 25, $WS_GROUP)
$Edit_dir = GUICtrlCreateEdit("", 40, 216, 353, 137)
GUICtrlSetData(-1, "Edit_dir")
$btn_AddDir = GUICtrlCreateButton("Hinzufügen", 400, 216, 131, 25, $WS_GROUP)
$edit_files = GUICtrlCreateListView("Paht", 40, 411, 353, 137)
$btn_AddFile = GUICtrlCreateButton("Hinzufügen", 400, 411, 131, 25, $WS_GROUP)
GUICtrlSetOnEvent($btn_AddFile, "_AddFile")
$Label5 = GUICtrlCreateLabel("Verzeichnisse", 40, 192, 69, 17)
$Label6 = GUICtrlCreateLabel("Dateien", 40, 388, 41, 17)
$Input1 = GUICtrlCreateInput("Input1", 136, 88, 241, 21)
$Input2 = GUICtrlCreateInput("Input2", 136, 136, 241, 21)
$Button2 = GUICtrlCreateButton("Backup", 120, 584, 120, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Restore", 353, 583, 120, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

IniCheck() ; Scriptstart prüfung ob einträge vorhanden sind

;############################################################################################################################################################################################################################
Func _AddFile()
$Path1 = FileOpenDialog("Suchen...", @HomeDrive, "Alle Dateien (*.*)", 3)
If $Path1 Then
IniWrite($IniPaht, "FILE", $index, $Path1)
GUICtrlCreateListViewItem($Path1, $edit_files)
$index += 1
EndIf
EndFunc ;==>_AddFile

Func IniCheck()
If Not FileExists($IniPaht) Then Return ; Datei ist nicht vorhanden

Local $IniRead = IniReadSection($IniPaht, 'FILE')
If @error Then Return ;section konnte nicht gelesen werden
$index = $IniRead[0][0]
For $i = 1 To $IniRead[0][0]
GUICtrlCreateListViewItem($IniRead[$i][1], $edit_files)
Next
EndFunc ;==>IniCheck

Func E()
Exit
EndFunc ;==>E

While 1 * Sleep(10)
WEnd

Func _AddFile()

$Path1 = FileOpenDialog("Suchen...", @HomeDrive, "Alle Dateien (*.*)", 3)
If $Path1 Then
IniWrite("Config.ini", "FILE", $Intex, $Path1)
$Intex += 1
GUICtrlSetData($edit_files, $Path1)
EndIf
EndFunc ;==>_AddFile