[autoit]Alles anzeigen[/autoit]
Switch GuiGetMsg()
Case -3
Exit
Case $MA[0] To $MA[5]
; Aktion
EndSwitch
Vielen Dank für die Antwort, funktioniert das denn auch mit mehrdimensionalen Arrays?
Case $MA[0][0] To $MA[5][10]
[/autoit]Funktioniert leider nicht. =/
Hallo liebe AutoIt.de Community,
bisher konntet ihr mir immer wunderbar helfen und ich denke, auch dieses mal wird es nicht anders sein.
Ich möchte mit mehreren Arrays die gleiche Funktion ansprechen.
Also ich stelle mir das so vor:
Dim $MA[5]
[/autoit] [autoit][/autoit] [autoit]$MA[0] = GUICtrlCreateLabel("1", 10, 10, 20, 20)
$MA[1] = GUICtrlCreateLabel("2", 10, 30, 20, 20)
$MA[2] = GUICtrlCreateLabel("3", 10, 50, 20, 20)
$MA[3] = GUICtrlCreateLabel("4", 10, 70, 20, 20)
$MA[4] = GUICtrlCreateLabel("5", 10, 90, 20, 20)
$MA[5] = GUICtrlCreateLabel("6", 10, 110, 20, 20)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $MA[<EGAL>]
MsgBox(0, "", $MA[<WAS GEWÄHLT WURDE>])
EndSelect
WEnd
Es soll also beim Click auf das jeweilige Label, eine Messagebox mit der Variablen des selbigen Lables erscheinen.
Wahrscheinlich ist es einfacher als ich denke, aber ich komme nicht dahinter. =/
Vielen Dank im Voraus!
PS: Der Code ist jetzt so auf dem Kopf entstanden ohne Test.
Alles anzeigenDie Zeile:
[autoit]$progar = _GuiCtrlCreateOCXProgress(2,2,200,20)
[/autoit][autoit]
liefert @error = 1 zurück. D.h. die Funktion hat ein Problem beim erstellen des Objektes
Also hier:$ar[0] = ObjCreate("Proyecto2.XP_ProgressBar")
[/autoit]
If @error Then Return SetError(1,0,0)Was hat sich denn verändert seitdem es "plötzlich unbrauchbar" wurde?
Anderer Rechner? Anderes Betriebssystem? Andere AutoIt Version? Windows Updates?Ohne Änderung wird es nicht "plötzlich unbrauchbar"
Hallo,
das hatte ich mir auch gedacht, das Problem trat im Betrieb auf.
Ich habe nichts geändert, sagen wir mal so um 10:00 Uhr hatte ich das Script soweit fertig und habe mich einem anderen (andere .au3) gewidmet.
Um 11:00 Uhr brauchte ich die vorangegangene .au3 erneut - jetzt gab es diesen Fehler. Also habe ich sogar die ursprüngliche .au3 (siehe Anhang) verwendet, gleiches Problem.
Aber erklären kann ich mir das nicht, habe keine andere AutoIT / SCiTE Version oä. benutzt oder Updates durchgeführt.
Ohne mir das im Detail anzusehen: Die Fehlermeldung sagt dir, dass $ProgressArray kein Array ist (oder gar nicht existiert). Denn der Fehler tritt auf beim Versuch auf ein Index-Element dieser Variablen zuzugreifen. Also setze an dieser Stelle mit der Fehlersuche an. Gehe Schritt für Schritt rückwärts zu der Stelle an der dieses Array erstellt werden soll/muß. Dort geht was daneben.
Erst einmal danke für die schnelle Antwort, jedoch finde ich den Ort der ersten Deklaration nicht, hier mal das ganze Script:
; Code by Prog@ndy
;Does it need VB-Runtime???
;Progressbar OCX from http://www.recursosvisualbasic.com.ar/htm/ocx-compon…r-xp-varios.htm
;Paintx.dll from http://www.paintlib.de/paintlib/
#include <GUIConstants.au3>
#include <String.au3>
Dim $ocx
[/autoit] [autoit][/autoit] [autoit]Func OnAutoItExit ( )
_GuiCtrlOCXProgressUnregister($ocx)
EndFunc
$ocx = _GuiCtrlOCXProgressRegister()
[/autoit] [autoit][/autoit] [autoit];$progress = ObjCreate("Proyecto2.XP_ProgressBar")
[/autoit] [autoit][/autoit] [autoit];Global Const $WM_LBUTTONDOWN = 0x0201
;Const $WM_SYSCOMMAND = 0x112
;Global $aNDrive = DriveGetDrive('FIXED'), $aProgress[$aNDrive[0]], $aName[$aNDrive[0]], $msg = 0, $aVol = 0
Global $GUI = GUICreate('SpaceBar v 2.0', 248, 500, @DesktopWidth - 250, 27, -1, $WS_EX_TOPMOST)
;GUICtrlCreateObj($progress,0,0,100,20)
$progar = _GuiCtrlCreateOCXProgress(2,2,200,20)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]_GuiCtrlOCXProgressShowText($progar)
_GuiCtrlOCXProgressSetScrolling($progar,9)
_GuiCtrlOCXProgressSetImage($progar,@ScriptDir & "\Progress.png")
_GuiCtrlOCXProgressSetColor($progar,0xFF0000)
_GuiCtrlOCXProgressSetMinMax($progar,0,100)
_GuiCtrlOCXProgressSetValue($progar,50)
_GuiCtrlOCXProgressShowOrientation($progar,0)
_GuiCtrlOCXProgressSetFont($progar,"", _
10, True, _
False, True, _
False, 800)
$progar2 = _GuiCtrlCreateOCXProgress(2,50,50,200)
$label = GUICtrlCreateLabel("This is a LABEL",2,125,50,75,$SS_CENTER)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-1,0x0000FF)
GUICtrlSetFont(-1,12,700,-1,"Arial")
_GuiCtrlOCXProgressShowText($progar2,0) ;Text verstecken
_GuiCtrlOCXProgressSetScrolling($progar2,9)
_GuiCtrlOCXProgressSetImage($progar2,@ScriptDir & "\progress.png")
_GuiCtrlOCXProgressSetColor($progar2,0xFF0000)
_GuiCtrlOCXProgressSetMinMax($progar2,0,100)
_GuiCtrlOCXProgressSetValue($progar2,50)
_GuiCtrlOCXProgressShowOrientation($progar2,1)
_GuiCtrlOCXProgressSetFont($progar2,"Courier", _
10, True, _
False, True, _
False, 800)
GUISetState()
[/autoit] [autoit][/autoit] [autoit];Sleep(1000)
;_GuiCtrlDeleteOCXProgress($progar)
For $i = 0 To 10
_GuiCtrlOCXProgressSetScrolling($progar,$i)
_GuiCtrlOCXProgressSetScrolling($progar2,$i)
For $j = 0 To 100
_GuiCtrlOCXProgressSetValue($progar,$j)
_GuiCtrlOCXProgressSetValue($progar2,$j)
GUICtrlSetStyle($label,-1)
Sleep(20)
Next
Sleep(500)
Next
While 1
$msg = GUIGetMsg()
If $msg = -3 Or $msg = -1 Then ExitLoop
WEnd
Exit
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func _GuiCtrlOCXProgressSetFont(ByRef $ProgressArray,$FontName = "", _
$Size = 0, $Bold = False, _
$Underline = False, $Italic = False, _
$Strikethrough = False, $Weight = -1)
If Not IsObj($ProgressArray[0]) Then Return SetError(1,0,0)
$Tfont = ObjCreate("StdFont")
If Not IsObj($Tfont) Then Return SetError(2,0,0)
If Not $FontName = "" Then $Tfont.Name = $FontName
If Not $Size = 0 Then $Tfont.Size = $Size
$Tfont.Bold = $Bold ;true/false
$Tfont.Underline = $Underline ;true/false
$Tfont.Italic = $Italic ;true/false
$Tfont.Strikethrough = $Strikethrough ;true/false
$Tfont.Charset(4576) ;true/false
If Not $Weight = -1 Then $Tfont.Weight = $Weight ; min: 0 /max: 1000
$ProgressArray[0].Font = $Tfont
$Tfont = 0
EndFunc
Func _GuiCtrlOCXProgressSetValue(ByRef $ProgressArray,$value)
If Not IsObj($ProgressArray[0]) Then Return SetError(1,0,0)
If Not IsNumber($value) Then Return SetError(2,0,0)
$ProgressArray[0].Value = $value
EndFunc
Func _GuiCtrlOCXProgressSetMinMax(ByRef $ProgressArray,$min = -1, $max = -1)
If Not IsObj($ProgressArray[0]) Then Return SetError(1,0,0)
If Not IsNumber($min) Or Not IsNumber($max) Then Return SetError(2,0,0)
If $min > -1 Then $ProgressArray[0].min = $min
If $max > -1 Then $ProgressArray[0].max = $max
EndFunc
Func _GuiCtrlOCXProgressShowText(ByRef $ProgressArray,$value = True)
If Not IsObj($ProgressArray[0]) Then Return SetError(1,0,0)
If Not $value = 1 And Not $value = 0 Or IsString($value) Then Return SetError(2,0,0)
$ProgressArray[0].ShowText = $value
EndFunc
Func _GuiCtrlOCXProgressShowOrientation(ByRef $ProgressArray,$value = 0)
If Not IsObj($ProgressArray[0]) Then Return SetError(1,0,0)
If Not $value = 1 And Not $value = 0 Or IsString($value) Then Return SetError(2,0,0)
$ProgressArray[0].Orientation = $value
EndFunc
Func _GuiCtrlOCXProgressSetScrolling(ByRef $ProgressArray,$value)
If Not IsObj($ProgressArray[0]) Then Return SetError(1,0,0)
If $value >= 0 And $value <= 10 Then
$ProgressArray[0].Scrolling = $value
Return 1
EndIf
Return 0
EndFunc
Func _GuiCtrlOCXProgressSetColor(ByRef $ProgressArray,$value, $RGB = 1)
If Not IsObj($ProgressArray[0]) Then Return SetError(1,0,0)
If $RGB Then
$hex = Hex($value,6)
$value = Execute("0x" & StringRight($hex,2) & StringMid($hex,3,2) & StringLeft($hex,2))
EndIf
$ProgressArray[0].Color = $value
EndFunc
Func _GuiCtrlOCXProgressSetImage(ByRef $ProgressArray,$value)
If Not IsObj($ProgressArray[0]) Then Return SetError(1,0,0)
If Not FileExists($value) Then Return SetError(2,0,0)
$TPictureLoad = ObjCreate("PaintX.PictureDecoder")
$ProgressArray[0].Image = $TPictureLoad.LoadPicture($value)
$TPictureLoad = 0
EndFunc
Func _GuiCtrlCreateOCXProgress($x, $y, $width, $height, $Scrolling = 0, $Orientation = 0)
Dim $ar[2]
$ar[0] = ObjCreate("Proyecto2.XP_ProgressBar")
If @error Then Return SetError(1,0,0)
$ar[0].Scrolling = $scrolling
$ar[0].Orientation = $Orientation
$ar[1] = GUICtrlCreateObj($ar[0],$x,$y,$width,$height)
Return $ar
EndFunc
Func _GuiCtrlOCXProgressRegister()
$return = 0
If RegRead("HKCR\CLSID\{4A5E5E35-91F4-46B1-B62F-78148132EF93}","") = "Proyecto2.XP_ProgressBar" Then
Else
If Not FileExists(@ScriptDir & "\progressbar-xp.ocx") Then FileInstall("progressbar-xp.ocx",@ScriptDir & "\progressbar-xp.ocx")
RunWait("regsvr32.exe /s progressbar-xp.ocx",@ScriptDir)
$return = 1
EndIf
If RegRead("HKCR\CLSID\{B69FE5D3-9F53-11D2-B13F-444553540000}","") = "PictureDecoder Class" Then
Else
If Not FileExists(@ScriptDir & "\paintx.dll") Then FileInstall("paintx.dll",@ScriptDir & "\paintx.dll")
RunWait("regsvr32.exe /s paintx.dll",@ScriptDir)
$return += 2
EndIf
Return $return
EndFunc
Func _GuiCtrlOCXProgressUnregister($Install)
If $Install >= 1 Then
RunWait("regsvr32.exe /s /u progressbar-xp.ocx",@ScriptDir)
FileDelete(@ScriptDir & "\progressbar-xp.ocx")
EndIf
If $Install >= 2 Then
RunWait("regsvr32.exe /s /u paintx.dll",@ScriptDir)
FileDelete(@ScriptDir & "\paintx.dll")
EndIf
EndFunc
Func _GuiCtrlDeleteOCXProgress(ByRef $ProgressArray)
If Not IsObj($ProgressArray[0]) Then Return SetError(1,0,0)
GUICtrlDelete($ProgressArray[1])
$ProgressArray[0] = 0
Return 1
EndFunc
Hallo zusammen,
ich habe ein kleines Problem und zwar wollte ich mir farbige Progressbars ansehen und habe dazu in diesem Forum folgenden Thread entdeckt.
Script samt Anhang (1er Post) habe ich verwendet, funktionierte auch einwandfrei. (Als einzelnes und auch im Script)
Doch plötzlich taucht folgende Fehlermeldung auf:
ColorProgress.au3" (123) : ==> Subscript used on non-accessible variable.:
If Not IsObj($ProgressArray[0]) Then Return SetError(1,0,0)
If Not IsObj($ProgressArray^ ERROR
Im Anhang ist die .ZIP genau so, wie ich Sie heruntergeladen habe.
Ich habe auch keine passende Lösung für das Problem finden können. =/
Erst funktionierte es und nun - nicht mehr!
Vielen Dank im Voraus!
Hallo liebe AutoIT-Gemeinde,
ich habe ein Problem, welches ich selbst nicht lösen kann, da ich es nicht beschreiben kann. =/
Zum Einen möchte ich eine Funktion aufrufen, die einen Button erstellt, das funktioniert auch gut.
Wenn dieser Button angeklickt wird, soll er durch eine weitere Funktion "zerstört" werden und in einer anderen Funktion wieder ersetzt werden.
Allerdings ist es so, dass letztere Funktion automatisch in Endlosschleife aufgerufen wird und das GUI Somit zerstört wird.
Hier der Code:
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
ExitLoop
Case $New
_NewStart()
_Village()
_SetStats()
GUICtrlSetState($Load, $GUI_ENABLE)
Case $Load
_SetStats()
_Village()
Case $_Village_Forest
_Village_Destroy()
_Forest()
EndSwitch
WEnd
Hier die angesprochene "andere" .au3
Global $_Village_Forest, $_Forest_Village, $_Forest_Search
[/autoit] [autoit][/autoit] [autoit]Func _Village()
$_Village_Forest = GUICtrlCreateButton("Wald", 160, 20, 100, 20)
EndFunc
Func _Village_Destroy()
GUICtrlDelete($_Village_Forest)
EndFunc
Func _Forest()
$_Forest_Village = GUICtrlCreateButton("Zurück", 160, 20, 100, 20)
$_Forest_Search = GUICtrlCreateButton("Suchen", 160, 50, 100, 20)
EndFunc
Func _Forest_Destroy()
GUICtrlDelete($_Forest_Village)
GUICtrlDelete($_Forest_Search)
EndFunc
Das zum ersten Problem, in der obigen .au3 wird die Funktion "_SetStats()" aufgerufen, die wiederum in einer anderen .au3 liegt.
Diese funktioniert auch genau so wie sie soll, ABER nachdem man das Script beendet (uncompiliert) werden Deklarationsfehler angezeigt.
Func _SetStats()
GUICtrlSetData($Prog_Label, IniRead(@ScriptDir & "\cfg\sys.ini", "Stats", "Force", ""))
EndFunc
Ich hoffe das ist halbwegs verständlich, un mir kann evtl. jemand helfen.
Ich bedanke mich schon einmal im Voraus für alle Mühen!
mfg* vism
// -- EDIT
Ich konnte das Problem lösen.
Ich habe die Deklaration in der letzten Datei global vorgenommen.
Zur Lösung mit dem Loop der Buttons, ich habe die Buttons anstatt mit GUICtrlCreate und GUICtrlDelete, mit den Stati HIDE und SHOW versehen, in Kombination mit dem Erstellen der Buttons in der Main-Datei löste sich das Problem.
Danke trotzdem! =)
Hallo liebe AutoIt-Community,
ich habe ein Anliegen und zwar würde ich gerne eine Mitarbeiterdisposition erstellen.
Leider fehlt mir der Ansatz. Die Oberfläche sollte kein Problem darstellen, leider habe ich aber noch nie wirklich mit einem Kalender gearbeitet.
Ich stelle mir das in etwa so vor, dass 3 Monate angezeigt werden, bspw 2 Monate Aktuell + Nächster.
Darunter eine Listview, "Objekt", "Mitarbeiteranzahl", "Treffpunkt", "Uhrzeit", "Beginn", "Ende", "Stonstiges1", "Sonstiges2", "Sonstiges3")
darunter wiederum eine Listview - mit Mitarbeitern aus einer .ini oder wie auch immer.
Bis dahin werde ich wahrscheinlich kommen, ABER die Übergabe, die schaffe ich nicht. Bspw. ich will einen Mitarbeiter einplanen.
Ich markiere den Auftrag, wählen den Mitarbeiter und sage bspw. "disponieren", der Mitarbeiter soll dann im Auftrag auftauchen, und für den Zeitraum aus der Buchung entfernt werden. Ich denke das geht mit Arrays - leider beherrsche ich Listviews nicht und auch die Hilfe, hilft mir nicht wirklich.
Ich hoffe die Fragestellung ist nicht allzu unverschämt, ich versuche mich mal am Code und hoffe ich kriege etwas zustande. Den Übertrag zwischen den Listviews, sowie dessen Speicherung von Aufträgen und Mitarbeitern über Inputs, kann ich mir nicht logisch zusammenreimen. =(
EDIT:
Hier der Code, den ich bis jetzt habe, kann ich die Mitarbeiter per Drag&Drop dem Auftrag zuweisen? Den Auftrag mit zB. Doppelklick öffnen und die zugewiesenen MAs sehen?
#include <GUIConstants.au3>
#include <GuiListView.au3>
#include <Array.au3>
$gui1 = GUICreate("Disposition", 800, 400)
$cal = GUICtrlCreateMonthCal("Kalender", 0,0,340,160)
$neuer_Auftrag = GUICtrlCreateButton("neuer Auftrag", 10, 165, 100, 20)
$speichern_Auftrag = GUICtrlCreateButton("speichern", 120, 165, 100, 20)
$laden_Auftrag = GUICtrlCreateButton("laden", 230, 165, 100, 20)
GUICtrlSetState($laden_Auftrag, $GUI_DISABLE)
$loeschen_Auftrag = GUICtrlCreateButton("löschen", 350, 165, 100, 20)
$loeschen_alles = GUICtrlCreateButton("alles löschen", 455, 165, 100, 20)
$recover = GUICtrlCreateButton("Backup einspielen", 560, 165, 100, 20)
If FileExists("Files\Plan.txt") Then GUICtrlSetState($recover, $GUI_DISABLE)
If FileExists("Files\Plan.txt") Then GUICtrlSetState($laden_Auftrag, $GUI_ENABLE)
$Listview_Auftrag = GUICtrlCreateListView("Auftrag|Adresse|MA|Treffpunkt|Uhrzeit|Beginn|Ende|Sonstiges1|Sonstiges2|Sonstiges3|Gebucht", 0, 190, 800, 200)
$hListView = GUICtrlGetHandle($Listview_Auftrag)
_AuftragLaden()
$Listview_Mitarbeiter = GUICtrlCreateListView("PersNr.|Name|Vorname|SPK|FS|43a", 345, 0, 455, 140)
$hListView2 = GUICtrlGetHandle($Listview_Mitarbeiter)
_MitarbeiterLaden()
GUICtrlCreateButton("buchen", 350, 143, 100, 20)
GUISetState(@SW_SHOW)
$gui2 = GUICreate("Neuer Auftrag", 300, 255)
GUICtrlCreateLabel("Auftrag", 10, 10, 50)
$gui2_Auftrag = GUICtrlCreateInput("", 70, 10, 220, 17)
GUICtrlCreateLabel("Adresse", 10, 30, 50)
$gui2_Adresse = GUICtrlCreateInput("", 70, 30, 220, 17)
GUICtrlCreateLabel("Mitbeiter", 10, 50, 50)
$gui2_Mitarbeiter = GUICtrlCreateInput("", 70, 50, 220, 17)
GUICtrlCreateLabel("Treffpunkt", 10, 70, 50)
$gui2_Treffpunkt = GUICtrlCreateInput("", 70, 70, 220, 17)
GUICtrlCreateLabel("Uhrzeit", 10, 90, 50)
$gui2_Uhrzeit = GUICtrlCreateInput("", 70, 90, 220, 17)
GUICtrlCreateLabel("Beginn", 10, 110, 50)
$gui2_Beginn = GUICtrlCreateInput("", 70, 110, 220, 17)
GUICtrlCreateLabel("Ende", 10, 130, 50)
$gui2_Ende = GUICtrlCreateInput("", 70, 130, 220, 17)
GUICtrlCreateLabel("Sonstiges", 10, 150, 50)
$gui2_Sonstiges1 = GUICtrlCreateInput("", 70, 150, 220, 17)
GUICtrlCreateLabel("Sonstiges", 10, 170, 50)
$gui2_Sonstiges2 = GUICtrlCreateInput("", 70, 170, 220, 17)
GUICtrlCreateLabel("Sonstiges", 10, 190, 50)
$gui2_Sonstiges3 = GUICtrlCreateInput("", 70, 190, 220, 17)
GUICtrlCreateLabel("Datum", 10, 210, 50)
$gui2_Datum = GUICtrlCreateInput(GUICtrlRead($cal), 70, 210, 170, 17)
$gui2_Datum_set = GUICtrlCreateButton("Heute", 245, 210, 50, 17)
$speichern_Auftrag_gui2 = GUICtrlCreateButton("speichern", 10, 230, 280, 20)
$gui2_Schliessen = GUICtrlCreateCheckbox("nach Speichern schließen", 10, 250)
GUICtrlSetState($gui2_Schliessen, $GUI_CHECKED)
GUISetState(@SW_HIDE)
Func _ListViewToArray()
Local $iCnt = _GUICtrlListView_GetItemCount($hListView)
If $iCnt < 1 Then Return SetError(1)
Dim $aRet[$iCnt][4]
For $i = 0 To $iCnt - 1
$aRet[$i][0] = _GUICtrlListView_GetItemText($hListView, $i, 0)
$aRet[$i][1] = _GUICtrlListView_GetItemText($hListView, $i, 1)
$aRet[$i][2] = _GUICtrlListView_GetItemText($hListView, $i, 2)
$aRet[$i][3] = _GUICtrlListView_GetItemText($hListView, $i, 3)
Next
Return $aRet
EndFunc
Func _FileWriteFromArray2D($FILEPATH, $ARRAY, $iROWstart = 0, $iROWend = 0, $iCOLstart = 0, $iCOLend = 0, $DELIM = '|')
If Not IsArray($ARRAY) Then
SetError(1)
Return 0
EndIf
Local $Ubound = UBound($ARRAY)
If $iROWend = 0 Then $iROWend = $Ubound - 1
Local $fh = FileOpen($FILEPATH, 2)
If $fh = -1 Then
SetError(2)
Return 0
EndIf
Select
Case $iROWstart < 0 Or $iROWstart > $Ubound - 1
$iROWstart = 0
ContinueCase
Case $iROWend < 0 Or $iROWend > $Ubound - 1
$iROWend = $Ubound - 1
ContinueCase
Case $iROWstart > $iROWend
$tmp = $iROWstart
$iROWstart = $iROWend
$iROWend = $tmp
EndSelect
Local $Ubound2nd = UBound($ARRAY, 2)
If @error = 2 Then
For $i = $iROWstart To $iROWend
FileWriteLine($fh, $ARRAY[$i])
Next
Else
If $iCOLend = 0 Then $iCOLend = $Ubound2nd - 1
Select
Case $iCOLstart < 0 Or $iCOLstart > $Ubound2nd - 1
$iCOLstart = 0
ContinueCase
Case $iCOLend < 0 Or $iCOLend > $Ubound2nd - 1
$iCOLend = $Ubound2nd - 1
ContinueCase
Case $iCOLstart > $iCOLend
$tmp = $iCOLstart
$iCOLstart = $iCOLend
$iCOLend = $tmp
EndSelect
For $i = $iROWstart To $iROWend
$tmp = ''
For $k = $iCOLstart To $iCOLend
If $k < $iCOLend Then
$tmp &= $ARRAY[$i][$k] & $DELIM
Else
$tmp &= $ARRAY[$i][$k]
EndIf
Next
FileWriteLine($fh, $tmp)
Next
EndIf
FileClose($fh)
Return -1
EndFunc
Func _FileReadToArray2D($FILEPATH, ByRef $ARRAY, $DELIM = -1)
Local $fh = FileOpen($FILEPATH, 0), $line, $var, $n = 1
If $fh = -1 Then
SetError(2)
Return 0
EndIf
If $DELIM <> -1 Then
$line = FileReadLine($fh, 1)
$var = StringSplit($line, $DELIM)
If IsArray($var) Then
$Ubound2nd = $var[0]
Local $AR[1][$Ubound2nd]
$AR[0][0] = 0
Else
SetError(1)
Return 0
EndIf
While 1
$line = FileReadLine($fh, $n)
If @error = -1 Then ExitLoop
$var = StringSplit($line, $DELIM)
If IsArray($var) Then
ReDim $AR[UBound($AR) + 1][$Ubound2nd]
For $i = 0 To $Ubound2nd - 1
$AR[UBound($AR) - 1][$i] = $var[$i + 1]
Next
$AR[0][0] += 1
Else
SetError(1)
Return 0
EndIf
$n += 1
WEnd
Else
Local $AR[1]
$AR[0] = 0
While 1
$line = FileReadLine($fh, $n)
If @error = -1 Then ExitLoop
ReDim $AR[UBound($AR) + 1]
$AR[UBound($AR) - 1] = $line
$AR[0] += 1
$n += 1
WEnd
EndIf
FileClose($fh)
$ARRAY = $AR
Return -1
EndFunc
Func _AuftragLaden()
$PathLoad = "Files/Plan.txt"
Local $ARRAY
_FileReadToArray2D($PathLoad, $ARRAY, "|")
_ArrayDelete($ARRAY, 0)
_GUICtrlListView_AddArray($hListView, $ARRAY)
EndFunc
Func _MitarbeiterLaden()
$PathLoad = "Files/Mitarbeiter.txt"
Local $ARRAY
_FileReadToArray2D($PathLoad, $ARRAY, "|")
_ArrayDelete($ARRAY, 0)
_GUICtrlListView_AddArray($hListView2, $ARRAY)
EndFunc
Func _AuftragSpeichern()
$PathSave = "Files\Plan"
If StringRight($PathSave, 4) <> ".txt" Then $PathSave &= ".txt"
$aArrayListView = _ListViewToArray()
_FileWriteFromArray2D($PathSave, $aArrayListView)
EndFunc
Func _Recover()
$PathLoad = FileOpenDialog("Datei öffnen", "Files\Backup", "Textdateien (*.txt)")
Local $ARRAY
_FileReadToArray2D($PathLoad, $ARRAY, "|")
_ArrayDelete($ARRAY, 0)
_GUICtrlListView_AddArray($hListView, $ARRAY)
GUICtrlSetState($recover, $GUI_DISABLE)
GUICtrlSetState($laden_Auftrag, $GUI_ENABLE)
_AuftragSpeichern()
EndFunc
While 1
$msg = GUIGetMsg(1)
Switch $msg[1]
Case $gui1
Switch $msg[0] ; Event
Case $GUI_EVENT_CLOSE
_AuftragSpeichern()
Exit
Case $neuer_Auftrag
GUISetState(@SW_SHOW, $gui2)
case $speichern_Auftrag
$PathSave = "Files\Plan"
If StringRight($PathSave, 4) <> ".txt" Then $PathSave &= ".txt"
$aArrayListView = _ListViewToArray()
_FileWriteFromArray2D($PathSave, $aArrayListView)
case $laden_Auftrag
$PathLoad = "Files/Plan.txt"
Local $ARRAY
_FileReadToArray2D($PathLoad, $ARRAY, "|")
_ArrayDelete($ARRAY, 0)
_GUICtrlListView_AddArray($hListView, $ARRAY)
case $loeschen_Auftrag
_GUICtrlListView_DeleteItemsSelected($hListView)
_AuftragSpeichern()
case $loeschen_alles
$SafeMsg1 = MsgBox(64+4,"Bestätigen", "Sind Sie sicher, dass Sie alles löschen wollen?" & @CRLF & @CRLF & "Es werden alle Daten restlos gelöscht!")
If $SafeMsg1 = 6 Then $SafeMsg2 = MsgBox(48+4,"Bestätigen", "WIRKLICH SICHER?!")
If $SafeMsg2 = 6 Then
_GUICtrlListView_DeleteAllItems($hListView)
DirCreate("Files\Backup" & @YEAR & @MON & @MDAY & @HOUR & @MIN)
FileCopy("Files\Plan.txt", "Files\Backup" & @YEAR & @MON & @MDAY & @HOUR & @MIN & "\Plan.txt")
FileDelete("Files\Plan.txt")
_AuftragSpeichern()
EndIf
case $recover
_Recover()
EndSwitch
Case $gui2
Switch $msg[0]
Case $GUI_EVENT_CLOSE
GUISetState(@SW_SHOW, $gui1)
GUISetState(@SW_HIDE, $gui2)
Case $speichern_Auftrag_gui2
GUICtrlCreateListViewItem(GUICtrlRead($gui2_Auftrag) & "|" & GUICtrlRead($gui2_Adresse) & "|" & GUICtrlRead($gui2_Mitarbeiter) & " (" & GUICtrlRead($gui2_Mitarbeiter) & ")" & "|" & GUICtrlRead($gui2_Treffpunkt) & "|" & GUICtrlRead($gui2_Uhrzeit) & "|" & GUICtrlRead($gui2_Beginn) & "|" & GUICtrlRead($gui2_Ende) & "|" & GUICtrlRead($gui2_Sonstiges1) & "|" & GUICtrlRead($gui2_Sonstiges2) & "|" & GUICtrlRead($gui2_Sonstiges3) & "|" & "", $Listview_Auftrag)
If GUICtrlRead($gui2_Schliessen) = "1" Then GUISetState(@SW_HIDE, $gui2)
GUICtrlSetData($gui2_Auftrag, "")
GUICtrlSetData($gui2_Adresse, "")
GUICtrlSetData($gui2_Mitarbeiter, "")
GUICtrlSetData($gui2_Treffpunkt, "")
GUICtrlSetData($gui2_Uhrzeit, "")
GUICtrlSetData($gui2_Beginn, "")
GUICtrlSetData($gui2_Ende, "")
GUICtrlSetData($gui2_Sonstiges1, "")
GUICtrlSetData($gui2_Sonstiges2, "")
GUICtrlSetData($gui2_Sonstiges3, "")
_AuftragSpeichern()
EndSwitch
EndSwitch
WEnd
Das mit der Console war lediglich ein Test um dir zu zeigen dass der Befehl auch wirklich den HTML-Code einer Seite ausliest. Du nimmst an der Stelle halt ganz normal den StringRegExp Befehl oder halt StringInStr wobei ich ersteres immer nutze
Hi,
Danke allerdings ist StringRegExp für mich ein Buch mit sieben Siegeln momentan, nach letzterem Regexp Muster, wird lediglich der Link gelesen, nicht aber die aktuelle Seite bzw. der Quellcode.
Hi,
gut, dass sieht gut aus, wie suche ich innerhalb der Console dann nach einem Satz bzw. Zeile?
Edit: Nimmt er dann die aktuelle Seite oder einfach nur den Link? Das wäre nämlich ein Problem ich müsste die aktuelle Seite nehmen, nach der Suche verändert sich der Quellcode aber nicht der Link.
Also hilft mir das sonst auch kein Stück. =(
Hab mit InetRead noch nie gearbeitet aber was mir aufgefallen ist:
Deine GoogleAdresse dort ist zumindest bei mir nicht in dieser Form
Mit einem anderen Bsp.: funktioniert es:
Spoiler anzeigen
[autoit]Local $sData = InetRead("http://de.wikipedia.org/wiki/AutoIt")
[/autoit] [autoit][/autoit] [autoit]
Local $nBytesRead = @extendedMsgBox(0,"",StringRegExp(BinaryToString($sData), "AutoIt"))
[/autoit]
Hi,
also in dem Beispiel ist es ja so, dass er den Link selbst ausliest, also Sprich, den Text der zwischen den " steht. Er soll ja den Link öffnen und den HTML-Code durchsuchen, oder generell auf der Seite.
Gibt es da vielleicht eine Beispiel-URL? *zwink*
Hi,
Problem ist, die URL funktioniert nur mit Login, den kann ich ja nicht rausgeben....
Aber das Beispiel müsste man doch überall machen können wo eine Textzeile ausgelesen werden kann/muss?
Also zB. hier bei >dieser Googlesuche<, - "Ergebnisse" suchen lassen?
Wenn der Textteil genauso heißt und sich nicht ändert braucht man dafür keinen regulären Ausdruck sondern es reicht StringInStr().
Vorher das ganze als String in eine Variable einlesen per InetRead().
Also ich versuche mich gerade an der Lösung, kriege aber keine Funktionierende Ausgabe, gibt es da vlt. ein Beispiel? *Schäm*
Guten Tag,
ist es mir möglich aus einer .HTML (direkt im WEB) folgende Zeile zu lesen "Datensatz deaktiviert." bzw. "<b>Datensatz deaktiviert.</b>" ?
Wenn ja, wie suche ich danach? Ich möchte eine If Abfrage dazu erstellen, also wenn die Zeile gefunden wird, dann x, wenn nicht dann y.
Vielen Dank im Vorraus.
Hallo vism,
[autoit]_IENavigate($IE, "javascript:MarkAll('Form_Liste')", 0)
[/autoit]ist keine gültige URL. Beschreibe bitte dein Vrhben etws genauer.Vielleicht findert sich j dnn eine Lösung für das Problem.
mfg autoBert
Hallo,
danke für die Antwort, also, der Befehl macht nichts, außer eben alle Einträge zu markieren, das funktioniert auch alles, es kann aber vorkommen, dass keine Einträge vorhanden sind, dann wartet Autoit ja auf die Checkbox...Wenn die aber nicht kommt? Was mache ich da? Soll ich es am besten erst mal mit einem Sleep versuchen? Aber dass hilft mir ja nicht hundert prozentig weiter, wenn bspw. die Ladezeit sich etwas in die Länge zieht oä.
Er braucht ja auch die Zeile.
Dafür ist ja das $i da.Der Wert wird von der For-Schleife immer um 1 hochgezählt.
[autoit]$line = FileReadLine($file, $i)
[/autoit]
Hi,
danke, das hatte ich gerade auch rausgefunden das klappte auch, jetzt brauche ich noch eine If abfrage, es kann vorkommen dass
[autoit]_IENavigate($IE, "javascript:MarkAll('Form_Liste')", 0)
[/autoit](und alles danach)
nicht zutrifft, also diese Checkbox nicht angezeigt wird, wenn das passiert soll er überspringen udn die Abfrage mit der nächste Zeile neu starten, geht das auch? =/
Also so funktioniert das alles perfekt, nur wenn eben diese Sache auftaucht, dann ist vorbei. =(
Wie kann ich das umgehen?
Edit:
So, also ich habe es jetzt so, dass es "eigentlich" gehen sollte, tut es aber nicht, denn jetzt nimmt er IMMER die erste Zeile.
Code:
[autoit]For $i = 2 To 1000000000000 Step 1
$file = "LBestand.txt"
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
$oForm_AB_ = _IEFormGetObjByName ($IE, "Form_Suche")
$oQuery2_ = _IEFormElementGetObjByName ($oForm_AB_, "ListerHistory_Suchbegriff")
_IEFormElementSetValue ($oQuery2_, $line)
$Seach2_ = _IEGetObjByName($IE,"ShowSearch")
_IEAction($Seach2_,"click")
sleep(1000)
_IELOADWAIT($IE)
_IELOADWAIT($IE)
_IENavigate($IE, "javascript:MarkAll('Form_Liste')", 0)
$oForm_LS_ = _IEFormGetObjByName ($IE, "Form_Liste")
$oQuery3_ = _IEFormElementGetObjByName ($oForm_LS_, "art_tmp")
_IEFormElementSetValue ($oQuery3_, "ebayenditemsure")
$Show_ = _IEGetObjByName($IE,"Ausfuehren_Button")
_IEAction($Show_,"click")
_IELOADWAIT($IE)
$oForm_OF_ = _IEFormGetObjByName ($IE, "enditemform")
$oQuery4_ = _IEFormElementGetObjByName ($oForm_OF_, "EndItemReason")
_IEFormElementSetValue ($oQuery4_, "NotAvailable")
$Submitx_ = _IEGetObjByName($IE,"ConfirmButton")
_IEAction($Submitx_,"click")
_IELOADWAIT($IE)
_IENavigate($IE, "Linked.x")
Next
MsgBox(0, "Fertig", "Abgeschlossen")
Exit
Guten Tag zusammen,
ich habe ein Problem, ich möchte eine Abfrage erstellen, diese muss sich wiederholen.
Ich möchte in der Abfrage Zeile X auslesen und einsetzen, dann den Rest des Vorgangs, der Vorgang muss wieder von vorne beginnen aber Zeile X+1 einsetzen, dann der Rest dann von vorn mit Zeile X+2 usw.
Hier mal der Code, ich komme da leider nicht weiter. =(
[autoit]_IEFormElementSetValue ($oQuery2, FileReadLine("LBestand.txt", 2))
$Seach2 = _IEGetObjByName($IE,"ShowSearch")
_IEAction($Seach2,"click")
sleep(1000)
_IELOADWAIT($IE)
_IELOADWAIT($IE)
_IENavigate($IE, "javascript:MarkAll('Form_Liste')", 0)
$oForm_LS = _IEFormGetObjByName ($IE, "Form_Liste")
$oQuery3 = _IEFormElementGetObjByName ($oForm_LS, "art_tmp")
_IEFormElementSetValue ($oQuery3, "ebayenditemsure")
$Show = _IEGetObjByName($IE,"Ausfuehren_Button")
_IEAction($Show,"click")
_IELOADWAIT($IE)
$oForm_OF = _IEFormGetObjByName ($IE, "enditemform")
$oQuery4 = _IEFormElementGetObjByName ($oForm_OF, "EndItemReason")
_IEFormElementSetValue ($oQuery4, "NotAvailable")
$Submitx = _IEGetObjByName($IE,"ConfirmButton")
_IEAction($Submitx,"click")
_IELOADWAIT($IE)
_IENavigate($IE, "Linked.x")
Hoffe das Problem ist verständlich Bei jedem neuen Durchlauf also
[autoit]_IEFormElementSetValue ($oQuery2, FileReadLine("LBestand.txt", 2))
[/autoit]
um eine Zeile (also in dem Fall 3) erhöhen, bis das Dokument endet.
Vielen Danke!
Guten Abend zusammen,
ich hätte da mal eine Frage, ich versuche mich gerade daran eine Art HTML Generator zu erstellen.
Eigentlich muss nichts getan werden, außer ein bestimmter Wert(e) in einem Quelltext ersetzt werden.
Ich habe es versucht in dem ich zB. eine Teilfunktion verwende.
Also Sprich
Quelltext1(Anfang)
*Wert
*Quelltext2(Ende)
Gibt es eine Möglichkeit sowas einfacher aber dennoch als HTML leserlich zu erstellen.
Also den Quelltext nicht zB in eine Zeile schreiben, dann den Wert via Inputbox einfügen und den Rest des Quellcodes. zB;
$Quellcode = "blahblah" & $Wert & "blublub"
[/autoit]usw. - sondern eine bessere Lösung? )
Hallo zusammen,
bisher konnte ich leider keine OO-UDF finden, bzw. nicht die Funktion, die ich benötige.
Ich müsste lediglich eine XLS oder XML wie auch immer, öffnen und in bestimmte Zellen schreiben.
Also zB A22, F4 usw. Diese müsste ich aus einem Input auslesen.
Letzteres ist aber nicht das Problem, wie schreibe ich in die Zellen? =(
Hat da eventuell jemand einen Anhaltspunkt? Es müsste unbedingt OpenOffice sein.
Wenn es KEINE andere Möglichkeit gibt, könnte ich eventuell auf den Artbeits-PC mit Office 2010 wechseln, geht es denn da?
_Word_DocPrint($oDoc, Default, $iAnzahl_der_Kopien)
_Word_DocPrint($oDoc, Default, $iAnzahl_der_Kopien)
Habe mich jetzt auf der Seite umgesehen, leider finde ich nichts zum festlegen der Position also "links, mitte, rechts" DIV befehl? =(
