Beiträge von Xenobiologist

Hauptkomponenten
BeQuiet Pure Base 600 schwarz
AMD Ryzen 5 1600X (6x 3.6GHz / 4.00 Turbo)
Alpenfoehn Matterhorn Pure
MSI B350 Tomahawk
16GB (2x8GB) DDR4 Patriot 2400MHz Viper 4
525GB Crucial MX300
2000GB SATA 6GB/s 7200rpm
8GB Palit GTX1080 DUAL (DVI, HDMI, 3x DP)
550W Cougar GX-S550 (80+ Gold)
kein Laufwerk
Garantie und Service
2 Jahre Garantie
externe Erweiterung
Cardreader für 11 übliche Speicherkarten

$re_A = StringSplit('02,1,10,11,3,15,16,17,2,3,4,5,6,7,8,9', ',' , 2)


$re_A = _ArrayUnique($re_A)


_ArraySortNum($re_A)


_ArrayDisplay($re_A, "Sorted Array")


Func _ArraySortNum(ByRef $n_array, $i_descending = 0, $i_start = 1)
    Local $i_ub = UBound($n_array)
    For $i_count = $i_start To $i_ub - 2
        Local $i_se = $i_count
        If $i_descending Then
            For $x_count = $i_count To $i_ub - 1
                If Number($n_array[$i_se]) < Number($n_array[$x_count]) Then $i_se = $x_count
            Next
        Else
            For $x_count = $i_count To $i_ub - 1
                If Number($n_array[$i_se]) > Number($n_array[$x_count]) Then $i_se = $x_count
            Next
        EndIf
        Local $i_hld = $n_array[$i_count]
        $n_array[$i_count] = $n_array[$i_se]
        $n_array[$i_se] = $i_hld
    Next
EndFunc   ;==>_ArraySortNum

Dim $aIE[1]
$aIE[0] = 0
$i = 1
While 1
	$oIE = _IEAttach("", "instance", $i)
	If @error = $_IEStatus_NoMatch Then ExitLoop
	ReDim $aIE[$i + 1]
	$aIE[$i] = $oIE
	$aIE[0] = $i
	$i += 1
	ConsoleWrite($oIE.LocationURL & @CRLF)
WEnd
Exit

#include <APIConstants.au3>
#include <WinAPIEx.au3>
#include <Process.au3>


Global $url = 'http://www.autoit.de'
Global $defaultBrowserPath = _getDefaultBrowser()
Global $width = 400
Global $height = 400
Global $left = 100
Global $top = 50


Global $pid = ShellExecute($url, '', '', 'open')


Do
	Sleep(100)
Until StringInStr($defaultBrowserPath, _ProcessGetName(WinGetProcess("[ACTIVE]")))


$handle = WinGetHandle("[ACTIVE]")
WinMove($handle, '', $left, $top, $width, $height)


Func _getDefaultBrowser()
	Return _WinAPI_AssocQueryString(".html", $ASSOCSTR_EXECUTABLE)
EndFunc   ;==>_getDefaultBrowser

#include <Array.au3>
$str = 'Z:\APP-12000-12999\APP-12633N\APP-12633N' & @CRLF & _
		'Z:\APP-12000-12999\APP-12633N\APP-12633N-DE' & @CRLF & _
		'Z:\APP-12000-12999\APP-12633N\APP-12633N-DE\2 Filing' & @CRLF & _
		'Z:\APP-12000-12999\APP-12633N\APP-12633N-US\6 scanned' & @CRLF & _
		'Z:\APP-12000-12999\APP-12633N\APP-12633N-WO\Mandant' & @CRLF & _
		'Z:\APP-12000-12999\APP-12633N\APP-12633N-IT\' & @CRLF & _
		'Z:\APP-12000-12999\APP-12640P-US01\5 IDSZ:\APP-12000-12999\APP-12633N\APP-12633N-TW\' & @CRLF  & _
		'Z:\APP-12000-12999\APP-12641P-CN\1 agent' & @CRLF & _
		'Z:\APP-12000-12999\APP-12641P-CN\2 client'


;~ 		mindestens bei: [Drei Buchstaben]-[5zahlen][ein Buchstabe]
;~ Allerdings Optional kann der Teil nach dem Buchstaben auch länger sein. Und zwar alles bis zu einem Leerzeichen, Zeilenende oder "\"


$re = StringRegExp($str, '(?:[A-Z]{3}-[0-9]{5}[A-Z].*?)*([A-Z]{3}-[0-9]{5}[A-Z].*?)[\s\\]', 3)
_ArrayDisplay($re)

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Main_GUI = GUICreate("Main", 640, 480, 50, 50, $WS_CLIPCHILDREN + $WS_CLIPSIBLINGS)
$Btn_Exit = GUICtrlCreateButton("E&xit", 10, 10, 90, 20)
GUISetState(@SW_SHOW, $Main_GUI)
$Child_GUI = GUICreate("Child", 200, 100, 10, 50, $WS_CAPTION)
GUISetBkColor(0xfffaf0, $Child_GUI)
$Btn_Test = GUICtrlCreateButton("Test", 10, 10, 90, 20)
GUISetState(@SW_SHOW, $Child_GUI)
GUIRegisterMsg( $WM_Move, "_WinMove" )


While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE, $Btn_Exit
            Exit
        Case $Btn_Test
            MsgBox(0, "Test", "Hit Button on Child Window")
    EndSwitch
WEnd


Func _WinMove()
    If WinActive( $Main_GUI ) Then
        $pos = WinGetPos( $Main_GUI )
        WinMove( $Child_GUI, "", $pos[0] - 205, $pos[1] )
    EndIf
EndFunc