Beiträge von Kev

  • If abfrage mit Datum

    [autoit]


    #include <Date.au3>
    #include <String.au3>
    #include <Array.au3>

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

    $Result = _NowDate()
    $date_array = StringSplit($Result,".")
    ;arraydisplay($date_array)

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

    ;$data_array[1] = Tag
    ;$data_array[2] = Monat
    ;$data_array[3] = Jahr

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

    $vordefinierter_tag = "12"
    $vordefinierter_monat = "09"
    $vordefiniertes_jahr = "2013"

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

    If $date_array[1] = $vordefinierter_tag Then
    MsgBox(0, "Datum", "Heute ist der vordefinierte Tag erreicht")
    Endif

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

    If $date_array[2] = $vordefinierter_monat Then
    MsgBox(0, "Datum", "Heute ist der vordefinierte Monat erreicht")
    Endif

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

    If $date_array[3] = $vordefinierter_jahr Then
    MsgBox(0, "Datum", "Heute ist der vordefinierte Jahr erreicht")
    Endif

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

    if $data_array[1] & "." & $data_array[2] = $vordefinierter_tag & "." & $vordefinierter_monat then ;wenn heute tag + heute monat = vordefinierter tag und vordefinierter monat dann......
    msgbox(0,"","Sie haben das heutige Datum erreicht")
    Endif

    [/autoit]

  • [Expertenrunde] Problem mit ID3_v3.4.au3 UDF

    Hallo Zusammen,

    ich lese mir in einer for schleife bis array anzahl 0 mp3 Daten ein.
    Titel, Artisten, Alben.
    Diese lasse ich dann in eine Listview darstellen.
    Alles schick, nur scheint es ... als macht die ID3 (UDF zum auslesen/setzen von mp3 tags) bei einer großen Anzahl von mp3 Files,schlapp.

    Zitat

    C:\Program Files (x86)\AutoIt3\Include\ID3_v3.4.au3 (1136) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
    $ID3v2_RawDataBinary_Temp &= BinaryMid($ID3v2_RawDataBinary,7,$aIndex[1])
    $ID3v2_RawDataBinary_Temp &= BinaryMid($ID3v2_RawDataBinary,7,^ ERROR

    Das passiert bei ca 4000 mp3 Files. Nehme ich weniger mp3s. 3000 zb. funktioniert es wunderbar.
    Aber sobald ich "alle" einlese. Crashed das Script mit der oben genannten Fehlermeldung.

    Weiß jemand warum? ICh bin nich so der UDF experte und bekomme das auch mit Sicherheit nich raus.
    Aber wenn ich nur eine bestimmte anzahl vom mp3s einlesen kann, ists dämlich bzw unnütz.

    Grüße

  • Msgbox zeigt Werte nicht an

    Hey,

    dann mach ich mal nen Thread dafür.
    Folgende Thematik:

    Ich lese den Artisten und das Album eines mp3 Files aus.
    Beides funktioniert wunderbar.

    Danach lasse ich mir den Artisten mit:

    [autoit]

    msgbox(0,"",$artist); geht

    [/autoit]

    und das Album mit:

    [autoit]

    msgbox(0,"",$artist); geht

    [/autoit]

    ausgeben. Funktioniert bestens.

    Jetzt lasse ich mir beide Werte in einer Msgbox ausgeben:

    [autoit]

    msgbox(0,"","D:\Music\" & $album & $artist)
    msgbox(0,"","D:\Music\" & $artist & $album)

    [/autoit]

    Funktioniert nicht?!

    Egal wie ich es drehe, das ergibt keinen Sinn.
    Die hintere Variable wird nicht angezeigt.

    [autoit]

    Func mp3()
    For $i = 1 To $array[0]
    $test = _ID3ReadTag($array[$i])
    $artist = _ID3GetTagField("Artist")
    $album = _ID3GetTagField("Album")
    msgbox(0,"",$album); geht
    msgbox(0,"",$artist); geht
    msgbox(0,"","D:\Music\" & $artist & "\" & $album) ; Album wird nicht angezeigt
    msgbox(0,"","D:\Music\" & $album & "\" & $artist) ; Artist wird nicht angezeigt
    Next
    Endfunc

    [/autoit]

  • Wie sieht euer Desktop aus?

    HTC ONE S mit ViperOne Custom Rom (Android)
    Handy ist gerooted, ja ;)

    Ansonsten:

    Uccw animus clock
    Uccw beeping weather
    missed it für die Benachrichtigung
    power amp custom widget
    widgetlocker standard button zum entsperren

  • Sonderzeichen im Array.

    Morgen,

    ich lese mir via _Inetgetsource einen RSS Feed aus, mit Vornamen, Nachnamen usw.
    Im RSS sowie im Quellcode werden die Namen wunderbar angezeigt.

    Wenn ich die Daten aus _Inetgetsource in ein File schreibe, zeigt er mir die Sonderzeichen auch noch an.
    Packe ich das Ganze in eine Variable und fange dann an zu splitten, bekomme ich mein Array mit jeglichen Sonderzeichen raus.

    [Blockierte Grafik: http://s14.directupload.net/images/130516/fk8ul7zd.png]

    [autoit]

    func doit()
    $data = "url"
    Filewrite(@scriptdir & "\test.txt",$data)
    global $Nachname = _StringBetween($data,"<title>","</title>")
    _Arraydelete($Nachname,0)
    _Arraydelete($Nachname,0)
    ;_arraydisplay($Nachname)
    global $vorname = _StringBetween($data,"[<div><b>Vorname:</b> ","</div>")
    ;_arraydisplay($vorname)
    $rnachname = Guictrlread($box_nachname)
    $rvorname = Guictrlread($box_vorname)
    ;############################################################ SUCHE NACHNAME
    if $rnachname <> "" then
    $gefunden_nachname = _Arrayfindall($Nachname,$rnachname)
    if not @error then
    ;_arraydisplay($gefunden_nachname)
    for $i = 0 to Ubound($gefunden_nachname) -1
    GUICtrlCreateListViewItem($vorname[$gefunden_nachname[$i]] & "|" & $nachname[$gefunden_nachname[$i]]& "|" & "Immer",$lv)
    Next
    Endif
    Endif

    [/autoit]

    Würde das Ganze gerne umgehen oder die Sonderzeichen in jedem Array automatisch ersetzen.

    Help pls ;(

  • IE.au3 - Datum einsetzen

    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <Date.au3>
    #include <IE.au3>

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

    GUICreate("My GUI",180,250)

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

    GuictrlcreateLabel("From",10,25,50,25)
    $from = GUICtrlCreateDate("",50,20,100,25)
    $DTM_SETFORMAT_ = 0x1032 ; $DTM_SETFORMATW
    $style = "yyyy/MM/dd"
    GUICtrlSendMsg($from, $DTM_SETFORMAT_, 0, $style)

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

    GuictrlcreateLabel("To",10,65,50,25)
    $to = GUICtrlCreateDate("",50,60,100,25)
    $DTM_SETFORMAT_ = 0x1032 ; $DTM_SETFORMATW
    $style = "yyyy/MM/dd"
    GUICtrlSendMsg($to, $DTM_SETFORMAT_, 0, $style)

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

    GuictrlcreateLabel("Select Shift",10,120,80,25)
    GUictrlcreateCombo("SE",80,115,50)
    Guictrlsetdata(-1,"SL|SN|DS")
    $start = Guictrlcreatebutton("Start",40,215,100,25)
    $weekend = GUICtrlCreateCheckbox("Weekend",10,170,100,25)
    GuictrlcreateButton("",-2,100,500,5)
    GUICtrlSetState(-1,$GUI_DISABLE)
    GuictrlcreateButton("",-2,150,500,5)
    GUICtrlSetState(-1,$GUI_DISABLE)
    GUISetState(@SW_SHOW) ; will display an empty dialog box

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

    ; Run the GUI until the dialog is closed
    While 1
    $msg = GUIGetMsg()
    switch $msg
    case $start
    doit()
    dates()
    Endswitch
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    WEnd
    GUIDelete()

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

    Func Date()
    $datefrom= Guictrlread($from)
    $dateto = Guictrlread($to)
    $x = _DateDiff('D',$datefrom,$dateto)
    for $i = 0 to $x
    $xd = _DateAdd('D',$i,$datefrom)
    global $lol = _DateTimeFormat($xd,2)
    Next
    EndFunc

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

    Func doit()
    $url = "http://www.URL.de"
    Global $oIE = _IECreate($url)
    global $oform = _IEFormGetCollection($oIE, 0)
    $obutton = _IEFormElementGetObjByName($oform , "DropDownListKind")
    _IEFormElementOptionSelect($obutton,"Arbeitszeit",1, "byText")
    Endfunc

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

    func dates()
    $obutton = _IEFormElementGetObjByName($oform , "TextBoxDateFrom")
    _IEFormElementSetValue($obutton,"20.02.2013") ;Eintrag wird vorgenommen, aber fliegt nach einer Sekunde wieder raus
    $obutton = _IEFormElementGetObjByName($oform , "TextBoxDateTo")
    _IEFormElementSetValue($obutton,"20.02.2013") ;Eintrag wird vorgenommen, aber fliegt nach einer Sekunde wieder raus
    ENdfunc

    [/autoit]