Moin Moin
hab mal wieder n kleines Problem...
Ich versuche aus einem Array Daten in ein Listview zu schieben, an sich ja eigendlich kein problem mit ner simplen For schleife...
allerdings bekomme ich die werte nicht aus dem Array weder mit MsgBox und Definiertem Array ($Result[0][0]) noch mit _ArrayDisplay()
kommischer weise kommt der wert nur wenn ich _ArrayDisplay($Result[0][0]) Benutze, was mir natürlich auch nicht wirklich weiter Hilft -.-
Hier mal der Code
PHP
#include <GUIConstants.au3>
#include <VLC.au3>
#include <SliderConstants.au3>
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiSlider.au3>
#include <String.au3>
#include <INet.au3>
#include <Array.au3>
_VLCErrorHandlerRegister()
$Gui = GUICreate("Youtube DJ",1000,500)
$vlc1 = _GUICtrlVLC_Create(0, 0, 500, 300)
$vlc2 = _GUICtrlVLC_Create(500, 0, 500, 300)
$QueryInput = GUICtrlCreateInput("",250,300,400,25)
$SearchButton = GUICtrlCreateButton("Search",650,300,100,25)
$SearchList = GUICtrlCreateListView("Title",250,325,500,200)
$List1 = GUICtrlCreateListView("Name|Länge",0,300,250,300)
$List2 = GUICtrlCreateListView("Name|Länge",750,300,250,300)
GUISetState()
_Video_Search("Leider+Geil")
while 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _Video_Search($Query)
$index = 1
$Code = _INetGetSource("https://gdata.youtube.com/feeds/api/videos?q="&$Query&"&orderby=published&start-index="&$index&"1&max-results=10&v=2",True)
MsgBox(0,"",$Code)
$Entrys = _StringBetween($Code,"<entry","</entry>")
MsgBox(0,"",@error)
$rows = UBound($Entrys)
Dim $Result[$rows][3]
Dim $ListID[$rows]
For $i = 0 to $rows-1 Step 1
$Result[$i][0] = _StringBetween($Entrys[$i],"<media:title type='plain'>","</media:title>")
$Result[$i][1] = _StringBetween($Entrys[$i],"<media:thumbnail url='","1.jpg'")
$Result[$i][2] = _StringBetween($Entrys[$i],"<media:player url='","&")
$ListID[$i] = GUICtrlCreateListViewItem($Result[$i][0],$SearchList)
GUICtrlSetData($ListID[$i],$Result[$i][0])
Next
_ArrayDisplay($Result[0][0])
;$Result[0][0] = Title
;$Result[0][1] = Thumbnail
;$Result[0][2] = Link
EndFunc
func urldecode ( $string )
$string = StringReplace ( $string, "+", " ")
for $i = 1 to StringLen ( $string )
$cur = StringMid ( $string, $i, 1 )
if $cur = "%" and $i +2 <= StringLen ( $string ) Then
if StringRegExp ( stringmid ( $string, $i+1, 2 ) , "([0-9A-F]{2})") Then
$temp = StringLeft ( $string, $i-1 )
$temp &= chr ( dec ( stringmid ( $string, $i + 1, 2 ) ) )
$temp &= stringmid ( $string, $i + 3 )
$string = $temp
EndIf
EndIf
Next
Return $string
EndFunc
Alles anzeigen
hoffe von euch hat einer ne Idee...
Liebe Grüße
Tim