Tengo esta pieza de codigo:
PUBLIC SUB btnPopular_Click()
DIM GetUrlFromXml AS Array
xml8tracks = NEW XmlReader
xml8tracks = urlDownload("http://8tracks.com/mixes.xml?sort=popular")
GetUrlFromXml = GetUrl(xml8tracks)
END
PUBLIC FUNCTION GetUrl(reader AS XmlReader) AS Array
DIM smix[10, 4] AS String
DIM id AS Integer
DO WHILE TRUE
TRY reader.Read()
IF reader.Eof THEN BREAK
IF reader.Node.Type = XmlReaderNodeType.Element THEN
SELECT CASE reader.Node.Name
CASE "name"
id = id + 1
reader.Read()
smix[id, 0] = reader.Node.Value
PRINT id & "Nombre: " & smix[0, 0]
CASE "restful-url"
reader.Read()
smix[id, 1] = reader.Node.Value
PRINT id & "restful-url: " & smix[id, 1]
CASE "description"
reader.Read()
smix[id, 2] = reader.Node.Value
PRINT id & "Descripcion: " & smix[id, 2]
CASE "login"
reader.Read()
smix[id, 3] = reader.Node.Value
PRINT id & "login: " & smix[id, 3]
END SELECT
ENDIF
LOOP
reader.Close()
IF ERROR THEN
Message.Error("Error when trying to open the Heroes.XML file!")
RETURN
ENDIF
RETURN smix
END
El problema es cuando llamo a la función GetUrl, donde le paso un xml como argumento, y me tiene que devolver un array.
Pero me tira el siguiente error: "Type Mismatch: Wanted an Array, got an Array instead"
No entiendo muy bien como solucionarlo....
