Beiträge von Kleiner

Kleiner

Gerade gemacht!

Wow da hast du jetzt aber eine stelle gefunden das lustige ist wenn du ein code nich in exe gewandelt hats kann man die sachen auslesen sobalt aber kompiliert dann nicht meher auch nicht mehr der code über autoit ?????
Irgendwie komisch !

LG Kleiner

Kleiner

PrideRage

Habe ich auch schon getestet klapt nicht!
Ist es bei dir auch so?

LG Kleiner

Kleiner

Hi Leute!

Habe mir ein Kopier Func geschrieben um große sachen einfach und schnell zu kopieren nun habe ich ein problem beim kopieren z.B alle daten von e:\ nach c:\..\..\Desktop zeigt mir die GUI ab und zu mal auch öffters ( keine Rückmeldung ) an!
das lesen und schreiben eine zeit brauchen ist kla aber wie kann ich diese kleine unschönheit beseitigen!

Schaut euch den Code mal an u. o. testet mal wie es bei euch ist!

Spoiler anzeigen

[autoit]

#include <Date.au3>
#include <_FileList.au3>

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

Opt('MustDeclareVars', 1)
Opt("GUIOnEventMode", 1)

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

Local $Sec, $Min, $Hour, $Time, $EndTicks, $StrinSplit, $FehlerSave = '', $aO, $aD, $Quell, $Ziel, $NZ, $prog
Local $Groesse, $Ordner, $Datein, $Dauer, $Proz
Global $GUI

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

$GUI = GUICreate('Drive - Kopie', 400, 130, -1, -1)
GUISetOnEvent(-3, '_Exit')
$Groesse = GUICtrlCreateLabel('Größe :', 240, 20, 100, 20)
$Ordner = GUICtrlCreateLabel('Ordner :', 240, 40, 100, 20)
$Datein = GUICtrlCreateLabel('Datein :', 240, 60, 100, 20)
$Dauer = GUICtrlCreateLabel('Dauer :', 240, 80, 100, 20)
$Proz = GUICtrlCreateLabel('', 282, 104, 30, 20)
GUICtrlCreateLabel('Quell-Drive', 12, 5, 52, 20)
$Quell = GUICtrlCreateInput('', 10, 20, 200, 20)
GUICtrlCreateLabel('Ziel-Drive', 12, 50, 52, 20)
$Ziel = GUICtrlCreateInput('', 10, 70, 200, 20)
GUICtrlCreateButton('Start', 330, 100, 60, 20)
GUICtrlSetOnEvent(-1, '_Kopie')
$prog = GUICtrlCreateProgress(10, 100, 265, 20)
GUISetState()

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

Func _Kopie()
If GUICtrlRead($Ziel) = '' Or GUICtrlRead($Quell) = '' Then Return
$aO = _FilesListRekursiv(GUICtrlRead($Quell), 1, 1, '*')
$aD = _FilesListRekursiv(GUICtrlRead($Quell), 1, 0, '*')
_TicksToTime(StringReplace(Round((DirGetSize(GUICtrlRead($Quell)) / 20480) / 60 / 60, 1), ',', '.') * 60 * 1000, $Hour, $Min, $Sec)
GUICtrlSetData($Groesse, 'Größe : ' & Round(DirGetSize(GUICtrlRead($Quell)) / 1024 / 1024) & ' MB')
GUICtrlSetData($Dauer, 'Dauer : ' & StringFormat("%02i:%02i:%02i", $Hour, $Min, $Sec))
GUICtrlSetData($Ordner, 'Ordner : ' & $aO[0])
GUICtrlSetData($Datein, 'Datein : ' & $aD[0])
$NZ = GUICtrlRead($Ziel)
If StringRight($NZ, 1) = '\' Then $NZ = StringTrimRight($NZ, 1)
For $i = 1 To UBound($aO) - 1
$StrinSplit = StringSplit($aO[$i], '\')
DirCreate($NZ & StringTrimLeft($aO[$i], StringLen($StrinSplit[1])))
Next
For $i = 1 To UBound($aD) - 1
$StrinSplit = StringSplit($aD[$i], '\')
GUICtrlSetData($prog, $i * 100 / $aD[0])
GUICtrlSetData($Proz, Round($i * 100 / $aD[0]) & '%')
If FileCopy($aD[$i], $NZ & StringTrimLeft($aD[$i], StringLen($StrinSplit[1]))) = 0 Then ContinueLoop
;Sleep(500)
Next
GUICtrlSetData($prog, 100)
GUICtrlSetData($Proz, 'Fertig!')
EndFunc ;==>_Kopie

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

Func _Exit()
Exit
EndFunc ;==>_Exit

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

While 1 * Sleep(10)
WEnd

[/autoit]

#include <_FileList.au3> im anhang!

LG Kleiner

Kleiner

Hi Tweaky!

Ich habe mir dein Code gerade Kopiert klapt eins a!

WIN 7 X64

LG Kleiner

Kleiner

HI !

Vielen Dank einfach schon aber vieleicht kennst du das wenn man in bestimmten Situationen den Wald vor lauter Bäumen nicht mehr sehen kann!

Lg Kleiner

Kleiner

Hi Leute!

Habe gerade ein Denk fehler ich habe X große oder auch kleine zahlen, lasse sie in einer for next schleife hoch laufen also von 0 bis X und möchte das wenn die schleife zu ende ist in ProgressOn()
100% sind natürlich von 0 bis 100% wie kann man das Rechnen!

biespiel habe eine Zahl die 335 auch 1 o. 500000 o. auch 0 ist wie rechne ich das wenn die schleife z.B 500000 durläuft er aber von 0 bis 100 zhält?

LG Kleiner

Kleiner

Danke euch beiden!

Habe jetzt soweit verstanden wie das abläuft!

wenn ich nicht mehr weiter kommen Frag ivh wieder !

LG Kleiner

Kleiner

Hi!

Das login habe ich schon mal geschaft!

Spoiler anzeigen

[autoit]

#include <Array.au3>
#include <IE.au3>

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

$url = '195.145.10......'

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

_IECreate($url)

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

$oIE = _IEAttach ("Login")

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

$o_form = _IEFormGetObjByName ($oIE, 'Form1')
$o_login = _IEFormElementGetObjByName ($o_form, 'txtUserName')
$o_password = _IEFormElementGetObjByName ($o_form, 'lblPassword')
$o_signin = _IEFormElementGetObjByName ($o_form, 'cmdLogIn')

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

$username = '....'
$password = '....'

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

_IEFormElementSetValue ($o_login, $username)
_IEFormElementSetValue ($o_password, $password)

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

_IEAction ($o_signin, "click")

[/autoit]

Jetz noch auslesen des plan und integriren in einer GUI!

LG Kleiner

Kleiner

Hi Leute!

Versuche mich gerade an Internet Anwendungen, Hintergrund bei mir In der Firma habe ich die Abteilung gewechelt und Arbeite jetzt im Schicht System ( Planung 14 Tage ) das schöne ist das ich mich übers Netz einlocken und mein dienstplan einsehen kann wünsche äusern mails verschicken also habe ich mich dazu entschiden das zu automatisieren nur ist das neu land für mich habe ab zu lut keine ahnung!
Also ich rufe die seite über IP auf und es erscheint ein Pop fenster wo ich User-Name Passwort eingeben muß nun wie finde ich herraus wie wo ich das schicken kann ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????

Ich weiß nicht wo ich anfangen soll!!!!!!

Bitte um Hilfe!

Mein anfang

[autoit]

#include <Array.au3>
#include <IE.au3>

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

$url = '195.145.10.......'

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

$oIE = _IECreate($url, 0, 0)
$sHTML = _IEBodyReadHTML($oIE)
_IEQuit($oIE)

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

$aArray = StringSplit($sHTML, @CRLF, 1)
_ArrayDisplay($aArray)

[/autoit]

LG Kleiner

Kleiner

Hi!

Ich kann den code nur über X86 ausführen!

Habe Win 7 X64

LG Kleiner

Kleiner

Hi Oscar!

Klein aber Fein!

LG Kleiner

Kleiner

Hi !

Habe paar kleine änderungen vorgenommen u. dein problem gelöst vieleicht hast du dardurch ein paar anregungen!

Spoiler anzeigen

[autoit]

#include <GuiListView.au3>
#include <IE.au3>
#include <String.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ListViewConstants.au3>
#include <StructureConstants.au3>

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

Opt("GUIOnEventMode", 1)

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

Global $ListView_Kino, $hStatus, $SiteCount = 0, $MoreSites = 0, $SiteCount_2 = 0, $SiteCounter = 0
Local $aEnd, $CityName, $i, $j, $url, $sHTML, $oIE, $temp_array
Local $Array_Cinema[100][100]
Dim $Version = "Beta 5.5"
Dim $Date = "25.02.2010"

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

$MainForm = GUICreate("Kino Programm by nefas", 980, 370, -1, -1)
GUISetOnEvent(-3, '_ExitC')
GUICtrlCreateLabel("Stadt:", 8, 13, 55, 17)
$txtCity = GUICtrlCreateInput("", 40, 8, 120, 21)
$cmdGo = GUICtrlCreateButton("Go", 162, 8, 27, 21, $WS_GROUP)
GUICtrlSetOnEvent(-1, 'Start')
GUICtrlCreateLabel("Tag:: ", 200, 13, 40, 17)
$radio_Heute = GUICtrlCreateRadio("Heute", 235, 13, 50, 17)
GUICtrlSetOnEvent(-1, 'Start')
$radio_Morgen = GUICtrlCreateRadio("", 335, 13, 80, 17)
GUICtrlSetOnEvent(-1, 'Start')
$radio_UeberMorgen = GUICtrlCreateRadio("", 435, 13, 80, 17)
GUICtrlSetOnEvent(-1, 'Start')
$radio_UeberUeberMorgen = GUICtrlCreateRadio("", 535, 13, 80, 17)
GUICtrlSetOnEvent(-1, 'Start')
$chk_Genauigkeit = GUICtrlCreateCheckbox("Genau", 8, 35)
GUICtrlCreateLabel("Adresse: ", 162, 40, 40, 17)
$lbl_Adresse = GUICtrlCreateLabel("", 210, 40, 350, 17)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlCreateLabel("Tel.: ", 560, 40, 20, 17)
$lbl_TelNum = GUICtrlCreateLabel("", 590, 40, 100, 17)
GUICtrlSetColor(-1, 0x0000FF)
$ListView_Kino = GUICtrlCreateListView('', 8, 56, 153, 300)
_GUICtrlListView_AddColumn($ListView_Kino, 'Kino-Name', 149, 0)
_GUICtrlListView_SetExtendedListViewStyle($ListView_Kino, BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES, $LVS_EX_ONECLICKACTIVATE))
$ListView_Film = GUICtrlCreateListView('', 160, 56, 810, 300)
_GUICtrlListView_AddColumn($ListView_Film, 'Titel', 200, 2)
_GUICtrlListView_AddColumn($ListView_Film, 'Laufzeit', 75, 2)
_GUICtrlListView_AddColumn($ListView_Film, 'FSK', 200, 2)
_GUICtrlListView_AddColumn($ListView_Film, 'Genre', 150, 2)
_GUICtrlListView_AddColumn($ListView_Film, 'Start Zeit', 180, 2)
_GUICtrlListView_SetExtendedListViewStyle($ListView_Film, BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES, $LVS_EX_ONECLICKACTIVATE))
GUICtrlSetState($radio_Heute, $GUI_CHECKED)
GUISetState()

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

GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")

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

Func Start()
If GUICtrlRead($txtCity) = "" Then Return MsgBox(0, "Warnung", "Bitte geben Sie einen Stadtnamen oder ein Plz. ein!")
GUISetState(@SW_DISABLE, $MainForm)
SplashTextOn('Suche gestartet', ' Bitte warten.....', 150, 40, -1, -1, 20, "", 13)
$MoreSites = 0
$SiteCount_2 = 0
$SiteCounter = 0
getSource()
SplashOff()
GUISetState(@SW_ENABLE, $MainForm)
EndFunc ;==>Start

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

Func getSource($ii = -1)
$i = 0
$j = 0
$CityName = StringReplace(StringReplace(StringReplace(StringReplace(GUICtrlRead($txtCity), 'ß', 'ss'), 'ö', 'oe'), 'ä', 'ae'), 'ü', 'ue')
$url = 'http://www.google.de/movies?hl=de&near=' & $CityName & '&date=0&start=' & $SiteCount_2
If (GUICtrlRead($radio_Morgen) = $GUI_CHECKED) Then $url = 'http://www.google.de/movies?hl=de&near=' & $CityName & '&date=1&start=' & $SiteCount_2
If (GUICtrlRead($radio_UeberMorgen) = $GUI_CHECKED) Then $url = 'http://www.google.de/movies?hl=de&near=' & $CityName & '&date=2&start=' & $SiteCount_2
If (GUICtrlRead($radio_UeberUeberMorgen) = $GUI_CHECKED) Then $url = 'http://www.google.de/movies?hl=de&near=' & $CityName & '&date=3&start=' & $SiteCount_2
$oIE = _IECreate($url, 0, 0)
$sHTML = _IEBodyReadHTML($oIE)
_IEQuit($oIE)
If $MoreSites = 0 Then
For $i = 0 To UBound($Array_Cinema, 1) - 1
For $jj = 0 To UBound($Array_Cinema, 2) - 1
$Array_Cinema[$i][$jj] = ''
Next
Next
EndIf
$aArray = StringSplit($sHTML, @CRLF, 1)
For $i = 0 To UBound($aArray) - 1
Select
Case $aArray[$i] = "<DIV class=theater>"
$j = 0
$i += 2
$ii += 1
$temp_array = _StringBetween($aArray[$i], "<SPAN dir=ltr>", "</SPAN>")
If @error = 0 Then $Array_Cinema[$ii][$j] = $temp_array[0]
$i += 1
$j += 1
$temp_array = _StringBetween($aArray[$i], "<DIV class=info>", "<A class=")
If @error = 0 Then $Array_Cinema[$ii][$j] = $temp_array[0]
Case $aArray[$i] = "<DIV class=movie>"
$i += 1
$j += 1
$temp_array = _StringBetween($aArray[$i], "<SPAN dir=ltr>", "</SPAN>")
If @error = 0 Then $Array_Cinema[$ii][$j] = $temp_array[0]
$j += 1
$temp_array = _StringBetween($aArray[$i], "</NOBR>", "</SPAN>")
If @error = 0 Then $Array_Cinema[$ii][$j] = $temp_array[0]
$i += 1
$j += 1
$temp_array = _StringBetween($aArray[$i], "<DIV class=times>", "</DIV>")
If @error = 0 Then $Array_Cinema[$ii][$j] = $temp_array[0]
Case StringInStr($aArray[$i], 'date=1">')
$temp_array = _StringBetween($aArray[$i], 'date=1">', "</A></DIV>")
If @error = 0 Then GUICtrlSetData($radio_Morgen, $temp_array[0])
Case StringInStr($aArray[$i], 'date=2">')
$temp_array = _StringBetween($aArray[$i], 'date=2">', "</A></DIV>")
If @error = 0 Then GUICtrlSetData($radio_UeberMorgen, $temp_array[0])
Case StringInStr($aArray[$i], 'date=3">')
$temp_array = _StringBetween($aArray[$i], 'date=3">', "</A></DIV>")
If @error = 0 Then GUICtrlSetData($radio_UeberUeberMorgen, $temp_array[0])
Case StringInStr($aArray[$i], '<TD noWrap><A href')
If $MoreSites = 0 Then $SiteCount += 1
EndSelect
Next
If ($MoreSites = 0) Then
$MoreSites = 1
While $SiteCounter < $SiteCount
$SiteCounter += 1
$SiteCount_2 += 10
getSource($ii)
WEnd
Find_Cinema()
EndIf
EndFunc ;==>getSource

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

Func GetFilmList()
Dim $i_ListView = 0
$Index = _GUICtrlListView_GetHotItem($ListView_Kino)
If ($Index = -1) Then Return
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView_Film))
$String_Seperated = StringSplit($Array_Cinema[$Index][1], " - ", 1)
If ($String_Seperated[0] = 2) Then GUICtrlSetData($lbl_TelNum, $String_Seperated[2])
GUICtrlSetData($lbl_Adresse, $String_Seperated[1])
For $j = 2 To UBound($Array_Cinema, 2) - 1
If ($Array_Cinema[$Index][$j] <> '') Then
_GUICtrlListView_AddItem($ListView_Film, $Array_Cinema[$Index][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$Index][$j], 10)
If ($Temp <> '') Then
$TempArray = StringSplit($Temp, '- ', 1)
Switch $TempArray[0]
Case 1
_GUICtrlListView_AddSubItem($ListView_Film, $i_ListView, StringTrimRight($TempArray[1], 3), 1)
Case 2
_GUICtrlListView_AddSubItem($ListView_Film, $i_ListView, StringTrimRight($TempArray[1], 3), 1)
_GUICtrlListView_AddSubItem($ListView_Film, $i_ListView, StringTrimLeft(StringTrimRight($TempArray[2], 3), 5), 2)
Case 3
_GUICtrlListView_AddSubItem($ListView_Film, $i_ListView, StringTrimRight($TempArray[1], 3), 1)
_GUICtrlListView_AddSubItem($ListView_Film, $i_ListView, StringTrimRight(StringTrimRight($TempArray[2], 3), 3), 2)
_GUICtrlListView_AddSubItem($ListView_Film, $i_ListView, StringTrimRight($TempArray[3], 1), 3)
EndSwitch
EndIf
$j += 1
_GUICtrlListView_AddSubItem($ListView_Film, $i_ListView, StringReplace($Array_Cinema[$Index][$j], ' ', ';'), 4)
$i_ListView += 1
EndIf
Next
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView_Film))
EndFunc ;==>GetFilmList

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

Func Find_Cinema()
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView_Kino))
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView_Film))
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView_Kino))
$aEnd = UBound($Array_Cinema, 1) - 1
If (GUICtrlRead($chk_Genauigkeit) = $GUI_CHECKED) Then
For $i = 0 To $aEnd Step +1
If (StringInStr($Array_Cinema[$i][1], GUICtrlRead($txtCity)) <> 0) Then _GUICtrlListView_AddItem($ListView_Kino, $Array_Cinema[$i][0])
Next
Else
For $i = 0 To $aEnd
If ($Array_Cinema[$i][0] <> '') Then _GUICtrlListView_AddItem($ListView_Kino, $Array_Cinema[$i][0])
Next
EndIf
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView_Kino))
EndFunc ;==>Find_Cinema

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

Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView, $tInfo
$hWndListView = $ListView_Kino
If Not IsHWnd($ListView_Kino) Then $hWndListView = GUICtrlGetHandle($ListView_Kino)
$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, 'hWndFrom'))
$iIDFrom = DllStructGetData($tNMHDR, 'IDFrom')
$iCode = DllStructGetData($tNMHDR, 'Code')
Switch $hWndFrom
Case $hWndListView
Switch $iCode
Case $NM_CLICK
$tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView_Film))
GetFilmList()
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY

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

Func _ExitC()
If (MsgBox(292, '', 'Wollen sie das Programm wirklich Beenden ?') = 6) Then Exit
EndFunc ;==>_ExitC

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

While 1 * Sleep(10)
WEnd

[/autoit]

LG Kleiner

Kleiner

Moin!

Was haltet ihr von dieser Version!

Spoiler anzeigen

[autoit]

#include <Array.au3>
#include <Timers.au3>
Dim $Zeilen, $Spalten, $TE,$start
Dim $Array[3][3] = [['abc', 'a11', '555'],['bcd', 'a11', '444'],['cde', 'a11', '666']]
Dim $Array1[4][4] = [['abc', 'a11', '555', 'b'],['xcd', 'a11', '444', 'c'],['cde', 'a11', '666', 'd'],['fde', 'a11', '777', 'h']]
Dim $Array2[9999][3]
For $i = 0 To 9998
$Array2[$i][0] = Chr(Random(65, 90, 1)) & Chr(Random(65, 90, 1)) & Chr(Random(65, 90, 1))
$Array2[$i][1] = Chr(Random(65, 90, 1)) & Random(0, 99, 1)
$Array2[$i][2] = Random(0, 999, 1)
Next
Dim $Array3[100][4]
For $i = 0 To 99
For $j = 0 To 3
$Array3[$i][$j] = Random(0, 10, 1)
Next
Next

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

_ArrayDisplay($Array)
$start = _Timer_Init()
$TE = _ArraySort2D($Array)
_ArrayDisplay($TE,_Timer_Diff($start))

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

_ArrayDisplay($Array1)
$start = _Timer_Init()
$TE = _ArraySort2D($Array1)
_ArrayDisplay($TE,_Timer_Diff($start))

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

_ArrayDisplay($Array2)
$start = _Timer_Init()
$TE = _ArraySort2D($Array2)
_ArrayDisplay($TE,_Timer_Diff($start))

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

_ArrayDisplay($Array3)
$start = _Timer_Init()
$TE = _ArraySort2D($Array3)
_ArrayDisplay($TE,_Timer_Diff($start))

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

Func _ArraySort2D(ByRef $Array)
If Not IsArray($Array) Then Return SetError(1, 0, 1)
$Zeilen = UBound($Array)
$Spalten = UBound($Array, 2)
Dim $SubArray[$Zeilen][$Spalten]
For $i = 0 To $Spalten - 1
_ArraySort($Array, 0, 0, 0, $i)
For $e = 0 To $Zeilen - 1
$SubArray[$e][$i] = $Array[$e][$i]
Next
Next
Return $SubArray
EndFunc ;==>_ArraySort2D

[/autoit]

LG Kleiner

Kleiner

Hi Leute!

Habe ein Func geschrieben nenn sie _ArraySort2D()

Soweit ohne Bug´s!

[autoit]

#include <Array.au3>

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

Dim $Split, $Speicher, $TE
Dim $Array[4][4] = [['abc', 'a11', '555', 'b'],['bcd', 'a11', '444', 'c'],['cde', 'a11', '666', 'd'],['fde', 'a11', '777', 'h']]

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

$TE = _ArraySort2D($Array)
_ArrayDisplay($TE)

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

Func _ArraySort2D($Array)
For $i = 0 To UBound($Array, 2) - 1
$Speicher = ''
For $e = 0 To UBound($Array) - 1
$Speicher &= $Array[$e][$i] & '|'
Next
$Split = StringSplit($Speicher, '|')
_ArraySort($Array, 0, 0, 0, 2)
For $a = 1 To UBound($Split) - 2
$Array[$a - 1][$i] = $Split[$a]
Next
Next
Return $Array
EndFunc ;==>_ArraySort2D

[/autoit]

Edit: doch ein Bug gefunden

Jetzt aber !

[autoit]

#include <Array.au3>

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

Dim $Split, $Speicher, $TE
Dim $Array[4][4] = [['abc', 'a11', '555', 'b'],['xcd', 'a11', '444', 'c'],['cde', 'a11', '666', 'd'],['fde', 'a11', '777', 'h']]

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

$TE = _ArraySort2D($Array)
_ArrayDisplay($TE)

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

Func _ArraySort2D($Array)
For $i = 0 To UBound($Array, 2) - 1
$Speicher = ''
For $e = 0 To UBound($Array) - 1
$Speicher &= $Array[$e][$i] & '|'
Next
$Split = StringSplit($Speicher, '|')
_ArrayDelete($Split, 0)
_ArrayDelete($Split, UBound($Split))
_ArraySort($Split, 0, 0, 0, 2)
For $a = 0 To UBound($Split) - 1
$Array[$a][$i] = $Split[$a]
Next
Next
Return $Array
EndFunc ;==>_ArraySort2D

[/autoit]

LG Kleiner

Kleiner

Hi Oscar!

autoBert
das geht auch mit

[autoit]

_ArraySort($array, 0, 0, 0, 2)

[/autoit]

Aber trotzdem wird 'abc' nicht richtig Sotiert!

Kleiner

Auch von mir Schöne Idee!

Habe da noch was für dich, Arbeite doch mehr mit array´s !

LG Kleiner

Kleiner

Welche Probleme sind dan noch offen?

Kleiner

Moin BugFix!

http://raphaelplaner.de/blog/index.php…n-Tutorial.html

LG Kleiner

Kleiner

Beispiel Fehler in _SQLite_SQLiteExe !

Es fehlen in zeile 29 ,37,39, das @ bei 'CRLF' und bei mir Win 7 x64 fuktioniert das beispiel garnicht Fehler: @error=1 beim Aufruf von _SQLite_SQLiteExe

LG Kleiner

Kleiner

Hallo Liebe Leute!

Habe ein wenig nachgeforscht und habe die antwort gefunden erstmal sind diese Ordner ja Virtuelle Verknüpfungen für Alte Software die den Richtigen weg in der Struktur finden sollen wenn man den als Admin aufmachen will fehler aber auch diese ordner verknüpfungen lassen sich freischalten um darein zu schauen um eventuelle verzweigung anzulegen und ich habe mir diese berechdigung eingestellt ohne zu wissen welche auswirkungen das hat.

Aber trotzdem muß in Autoit eine möglichkeit geschafen werden solche Ordner die eine Schleife auslösen zu erkennen, denn man kann auch mit diesen Virtuellen Ordnern Arbeiten!

LG KLeiner

Beiträge von Kleiner

Reg auslesen - 64bit geht nicht (Funktion von BugFix)

Kopieren von Drive

Kopieren von Drive

Reg auslesen - 64bit geht nicht (Funktion von BugFix)

Aus X goße Zahl immer 0 bis 100 - 100% ?

Aus X goße Zahl immer 0 bis 100 - 100% ?

Im Pop Fenster Daten eingeben!

Im Pop Fenster Daten eingeben!

Im Pop Fenster Daten eingeben!

Organize Includes

TSAdress (Adressverwaltung)

Kino Programm deiner Stadt V2

_ArraySort sortiert "komisch"

_ArraySort sortiert "komisch"

_ArraySort sortiert "komisch"

Kino Programm deiner Stadt V2

Restart VOR Anmeldefenster

Restart VOR Anmeldefenster

_SQLite_SQLiteExe

Windows 7 Verzeichnis Schleife?