Beiträge von BugFix

[autoit]

$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"
$check_local_admin = 0

$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_GroupUser", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

If IsObj($colItems) then
For $objItem In $colItems
If ( StringInStr($objItem.GroupComponent,"Administratoren") ) Or _
( StringInStr($objItem.GroupComponent,"User") ) Then
If StringInStr($objItem.PartComponent,"admin_ntt") Then
$check_local_admin = 1
ExitLoop
EndIf
EndIf
Next
If $check_local_admin = 1 Then
MsgBox(0,"","User admin_nt existiert bereits!")
Else
MsgBox(0,"","User admin_nt existiert noch nicht!")
EndIf
Else
Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_GroupUser" & @CRLF & "It is not possible to check if the local admin user 'admin_nt exists" )
Endif

[/autoit]

[autoit]

#include <array.au3>
Dim $ar[5], $ar2[5][2]
$ar[0] = "otto"
$ar[1] = "aha"
$ar[2] = "otto"
$ar[3] = "b"
$ar[4] = "aha"

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

$ar2[0][0] = "otto"
$ar2[1][0] = "aha"
$ar2[2][0] = "otto"
$ar2[3][0] = "b"
$ar2[4][0] = "ah"
$ar2[0][1] = "c"
$ar2[1][1] = "ha"
$ar2[2][1] = "c"
$ar2[3][1] = "bor"
$ar2[4][1] = "aha"

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

_ArrayDisplay($ar, "1D mit Doppel")
_Array2DDblDel($ar)
_ArrayDisplay($ar, "1D Doppel gelöscht")

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

_ArrayDisplay($ar2, "2D mit Doppel")
_Array2DDblDel($ar2)
_ArrayDisplay($ar2, "2D Doppel gelöscht")

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

;----------------------------------------------------------------------------------------------------------------------
; Function _Array2DDblDel(ByRef $ARRAY [, $CASESENS=0])
;
; Description - From an 1D/2D Array will delete double entries (2D -> combination by '[n][0]' to '[n][x]').
; - Autodetection 1D/2D Array
; - By using string, you can choose case sensitivity.
;
; Parameter $ARRAY: Array to sort
; optional $CASESENS: Case sensitivity off[0] or on[1] (default 0)
;
; Return Succes ByRef Array without doubles
; Count of doubles
; Failure 0 and set @error = 1; no array
;
; Author BugFix ([email='bugfix@autoit.de'][/email])
;----------------------------------------------------------------------------------------------------------------------
Func _Array2DDblDel(ByRef $ARRAY, $CASESENS=0)
Local $iDIM, $arTmp[1] = [''], $dbl = 0, $count = 0
If ( Not IsArray($ARRAY) ) Then
SetError(1)
Return 0
EndIf
$Ubound2nd = UBound($ARRAY,2)
If @error = 2 Then
For $i = 0 To UBound($ARRAY)-1
$dbl = 0
For $k = 0 To UBound($arTmp)-1
Switch $CASESENS
Case 0
If $arTmp[$k] = $ARRAY[$i] Then
$dbl = 1
$count += 1
EndIf
Case 1
If $arTmp[$k] == $ARRAY[$i] Then
$dbl = 1
$count += 1
EndIf
EndSwitch
Next
If $dbl = 0 Then
If $arTmp[0] = "" Then
$arTmp[0] = $ARRAY[$i]
Else
ReDim $arTmp[UBound($arTmp)+1]
$arTmp[UBound($arTmp)-1] = $ARRAY[$i]
EndIf
Else
$dbl = 0
EndIf
Next
Else
ReDim $arTmp[1][$Ubound2nd]
$arTmp[0][0] = ''
$x = 0
For $i = 0 To UBound($ARRAY)-1
$dbl = 0
$val = ''
$valTmp = ''
For $l = 0 To $Ubound2nd-1
$val &= $ARRAY[$i][$l]
Next
For $k = 0 To UBound($arTmp)-1
For $l = 0 To $Ubound2nd-1
$valTmp &= $arTmp[$k][$l]
Next
Switch $CASESENS
Case 0
If $valTmp = $val Then
$dbl = 1
$count += 1
EndIf
Case 1
If $valTmp == $val Then
$dbl = 1
$count += 1
EndIf
EndSwitch
Next
If $dbl = 0 Then
If $x = 1 Then ReDim $arTmp[UBound($arTmp)+1][$Ubound2nd]
For $l = 0 To $Ubound2nd-1
If $arTmp[0][0] = '' Or $x = 0 Then
$arTmp[0][$l] = $ARRAY[0][$l]
If $l = $Ubound2nd-1 Then $x = 1
Else
$arTmp[UBound($arTmp)-1][$l] = $ARRAY[$i][$l]
$x = 2
If $l = $Ubound2nd-1 Then $x = 1
EndIf
Next
Else
$dbl = 0
EndIf
Next
EndIf
$ARRAY = $arTmp
Return $count
EndFunc ; ==>_ArrayDblDel

[/autoit]

[autoit]

#include <array.au3>
Dim $ar[5], $ar2[5][2]
$ar[0] = "otto"
$ar[1] = "aha"
$ar[2] = "Adebar"
$ar[3] = "b"
$ar[4] = "ah"

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

$ar2[0][0] = "otto"
$ar2[1][0] = "aha"
$ar2[2][0] = "Adebar"
$ar2[3][0] = "b"
$ar2[4][0] = "ah"
$ar2[0][1] = "c"
$ar2[1][1] = "ha"
$ar2[2][1] = "barracuda"
$ar2[3][1] = "bor"
$ar2[4][1] = "aha"

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

_ArrayDisplay($ar, "Array 1D, unsortiert")
_ArraySortByLen($ar)
_ArrayDisplay($ar, "Array 1D, sortiert nach Länge Eintrag")

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

_ArrayDisplay($ar2, "Array 2D, unsortiert")
_ArraySortByLen($ar2,0,2,0)
_ArrayDisplay($ar2, "Array 2D, sortiert 1. Spalte nach Länge Eintrag")
_ArraySortByLen($ar2,0,2,1)
_ArrayDisplay($ar2, "Array 2D, sortiert 2. Spalte nach Länge Eintrag")

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

;----------------------------------------------------------------------------------------------------------------------
; Function _ArraySortByLen(ByRef $ARRAY [, $iDESCENDING=0 [, $iDIM=0[ , $iSORT=0]]])
;
; Description - Sorts an 1D/2D Array by Length.
; - BaseIndex is 0; sorts the whole array.
;
; Parameter $ARRAY: Array to sort
; optional $iDESCENDING: Sort ascending[0]/descending[1] (default 0)
; optional $iDIM: Occurences in the second dimension, eg $A[100]=0 or $A[100][2]=2 (default 0)
; optional $iSORT: SortIndex by using 2 dimensions (default 0)
;
; Return ByRef sorted Array by Length
;
; Requirements Only 2 occurences in the second dimension
; #include <array.au3>
;
; Author BugFix ([email='bugfix@autoit.de'][/email])
;----------------------------------------------------------------------------------------------------------------------
Func _ArraySortByLen(ByRef $ARRAY, $iDESCENDING=0, $iDIM=0, $iSORT=0)
Local $arTmp1D[1][1], $arTmp2D[1][1]
If $iDIM = 0 Then $iDIM = 1
Switch $iDIM
Case 1 ; 1D
ReDim $arTmp1D[UBound($ARRAY)][2]
For $i = 0 To UBound($ARRAY)-1
$arTmp1D[$i][0] = StringLen($ARRAY[$i])
$arTmp1D[$i][1] = $ARRAY[$i]
$ARRAY[$i] = ''
Next
_ArraySort($arTmp1D,$iDESCENDING,0,0,2,0)
For $i = 0 To UBound($arTmp1D)-1
$ARRAY[$i] = $arTmp1D[$i][1]
Next
Case 2 ; 2D
ReDim $arTmp2D[UBound($ARRAY)][3]
For $i = 0 To UBound($ARRAY)-1
$arTmp2D[$i][2] = StringLen($ARRAY[$i][$iSORT])
$arTmp2D[$i][0] = $ARRAY[$i][0]
$arTmp2D[$i][1] = $ARRAY[$i][1]
$ARRAY[$i][0] = ''
$ARRAY[$i][1] = ''
Next
_ArraySort($arTmp2D,$iDESCENDING,0,0,3,2)
For $i = 0 To UBound($arTmp2D)-1
$ARRAY[$i][0] = $arTmp2D[$i][0]
$ARRAY[$i][1] = $arTmp2D[$i][1]
Next
EndSwitch
EndFunc ; ==>_ArraySortByLen

[/autoit]

[autoit]

;----------------------------------------------------------------------------------------------------------------------
; Function _Array2DSortByLen(ByRef $ARRAY [, $iDESCENDING=0])
;
; Description - Sorts an 1D/2D Array by Length.
; - BaseIndex is 0; sorts the whole array.
;
; Parameter $ARRAY: Array to sort
; optional $iDESCENDING: Sort ascending[0]/descending[1] (default 0)
;
; Return Succes -1 ByRef sorted Array by Length
; Failure 0 set @error = 1; no array
;
; Requirements Func _ArraySort_2ary()
; #include <array.au3>
;
; Author BugFix ([email='bugfix@autoit.de'][/email])
;----------------------------------------------------------------------------------------------------------------------
Func _Array2DSortByLen(ByRef $ARRAY, $iDESCENDING=0)
If ( Not IsArray($ARRAY) ) Then
SetError(1)
Return 0
EndIf
If $iDESCENDING <> 0 Then $iDESCENDING = 1
Local $UBound2nd = UBound($ARRAY,2)
Local $arTmp[1] = ['']
If @error = 2 Then
ReDim $arTmp[UBound($ARRAY)][2]
For $i = 0 To UBound($ARRAY)-1
$arTmp[$i][0] = StringLen($ARRAY[$i])
$arTmp[$i][1] = $ARRAY[$i]
$ARRAY[$i] = ''
Next
_ArraySort($arTmp,$iDESCENDING,0,0,2,0)
For $i = 0 To UBound($arTmp)-1
$ARRAY[$i] = $arTmp[$i][1]
Next
Else
ReDim $arTmp[UBound($ARRAY)][$UBound2nd+1]
For $i = 0 To UBound($ARRAY)-1
For $k = 0 To $UBound2nd-1
$arTmp[$i][$k] = StringLen($ARRAY[$i][$k])
Next
$arTmp[$i][$UBound2nd] = $i
Next
_ArraySort_2ary($arTmp, 0, $iDESCENDING)
For $i = 0 To UBound($arTmp)-1
For $k = 0 To $UBound2nd-1
$arTmp[$i][$k] = $ARRAY[$arTmp[$i][$UBound2nd]][$k]
Next
Next
ReDim $arTmp[UBound($ARRAY)][$UBound2nd]
$ARRAY = $arTmp
EndIf
Return -1
EndFunc ;==>_ArraySortByLen

[/autoit]

[autoit]

#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
AutoitSetOption("GUIResizeMode",802)
Dim $minWidth = 464, $Width = 635, $minHeight = 232, $Height = 456
Dim $x, $y, $PosX = 192, $PosY = 113, $change = 0
#Region ### START Koda GUI section ### Form=d:\koda\winmove.kxf
$Form1 = GUICreate("Form1", $Width, $Height, $PosX, $PosY)
GUISetOnEvent($GUI_EVENT_CLOSE, "AForm1Close")
$Group1 = GUICtrlCreateGroup("Position", 16, 16, 200, 117)
$bLiOb = GUICtrlCreateButton("Links Oben", 28, 40, 75, 20, 0)
GUICtrlSetOnEvent(-1, "bLiObClick")
$bReOb = GUICtrlCreateButton("Rechts Oben", 131, 40, 75, 20, 0)
GUICtrlSetOnEvent(-1, "bReObClick")
$bLiUn = GUICtrlCreateButton("Links Unten", 28, 97, 75, 19, 0)
GUICtrlSetOnEvent(-1, "bLiUnClick")
$bMitte = GUICtrlCreateButton("Mitte", 79, 70, 75, 20, 0)
GUICtrlSetOnEvent(-1, "bMitteClick")
$bReUn = GUICtrlCreateButton("Rechts Unten", 131, 97, 75, 20, 0)
GUICtrlSetOnEvent(-1, "bReUnClick")
$clGr1 = GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Größe ändern (+/- Pixel)", 232, 16, 200, 117)
$Label1 = GUICtrlCreateLabel("Breite:", 249, 42, 34, 17)
$Label2 = GUICtrlCreateLabel("Höhe:", 249, 75, 33, 17)
$iWidth = GUICtrlCreateInput("", 332, 39, 65, 21)
$iHeight = GUICtrlCreateInput("", 332, 72, 65, 21)
$bChange = GUICtrlCreateButton("Ändern", 267, 103, 130, 20, 0)
GUICtrlSetOnEvent(-1, "bChangeClick")
$clGr2 = GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
Sleep(100)
WEnd

Func AForm1Close()
Exit
EndFunc

Func bChangeClick()
$x = GUICtrlRead($iWidth)
$y = GUICtrlRead($iHeight)
If ($Width + $x) < $minWidth Then
MsgBox(16, '',"Breitenänderung nicht möglich!"& @LF &"Mindestbreite wird unterschritten.")
Return
EndIf
If ($Height + $y) < $minHeight Then
MsgBox(16, '',"Höhenänderung nicht möglich!"& @LF &"Mindesthöhe wird unterschritten.")
Return
EndIf
WinMove($Form1, "", $PosX, $PosY, $Width+$x, $Height+$y)
_size()
EndFunc

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

Func _size()
Local $size
$size = WinGetPos("Form1")
$PosX = $size[0]
$PosY = $size[1]
$Width = $size[2]
$Height = $size[3]
EndFunc

Func bLiObClick()
WinMove($Form1, "", -1, -1)
_size()
EndFunc

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

Func bLiUnClick()
WinMove($Form1, "", -1, @DesktopHeight-$Height)
_size()
EndFunc

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

Func bMitteClick()
WinMove($Form1, "", (@DesktopWidth-$Width)/2, (@DesktopHeight-$Height)/2)
_size()
EndFunc

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

Func bReObClick()
WinMove($Form1, "", @DesktopWidth-$Width, -1)
_size()
EndFunc

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

Func bReUnClick()
WinMove($Form1, "", @DesktopWidth-$Width, @DesktopHeight-$Height)
_size()
EndFunc

[/autoit]

[autoit]

; pcdmis2csv00.au3.au3
#include-once
#include <\Archiv\Prg\AutoIt\Include\rexx01.au3>
#include <\Archiv\Prg\AutoIt\Include\tools00.au3>
#include <\Archiv\Prg\AutoIt\Include\stack00.au3>

; Grundeinstellungen
HotKeySet("{PAUSE}", "MeinExit")

; Hilfsfunktionen
Func MeinExit()
Exit
EndFunc

; init
$n_s1 = inistack() ; init stack 1


$search = FileFindFirstFile(@WorkingDir&"\*.rtf")
If $search = -1 Then
MsgBox(0, @ScriptName&": Fehler!", "Keine RTF Dateien in >"&@WorkingDir&"< gefunden")
Exit
EndIf
While 1
$dummy = FileFindNextFile($search)
If @error Then ExitLoop
push($n_s1,$dummy)
WEnd
FileClose($search)

send("^n")

while eos($n_s1)
$datei_r = pop($n_s1)
$datei_w = changestr('.rtf',$datei_r,'.csv')
$fh1 = fileopen($datei_r,0) ; Quelle lesend geöffnet #### Filehandle
$fh2 = fileopen($datei_w,2) ; Ziel überschreibend geöffnet #### Filehandle
tooltip(@ScriptName&"- Datei: "&$datei_r&" wird bearbeitet", )
$n = 0 ; Startzeile Messprogramm
While 1
$n = $n + 1
$zeile = FileReadLine($fh1,$n)
; tooltip($zeile)
if $zeile = "}}" Then ExitLoop ; Ende des RTF
; if pos('SCN',$zeile) > 0 then
; $rl = length($zeile) - pos('SCN',$zeile) + 1
; $zeile = right($zeile,rl)
; ele = word(zeile,1)
; endif


; MsgBox(0, "Line read:", $n)
Wend

fileclose($fh1)
fileclose($fh2)
wend

[/autoit]