Hi,
ich habe ein Script geschrieben um Liedtexte von einer Seite auszulesen. Zum Prüfen ob die Daten auch alles richtig erkannt wurden habe ich noch ein ArrayDisplay engefügt.
Hier funktioniert alles perfekt:
Spoiler anzeigen
#include <Array.au3>
#include <String.au3>
$lyricurl = InetRead ("http://lyrics.wikia.com/Rammstein:Benzin")
$lyricode = _StringBetween(BinaryToString($lyricurl),"alt='phone' width='16' height='17'/></a></div>","<!--")
$lyricode = StringReplace($lyricode[0], "&#", "")
$lyricode = StringReplace($lyricode, "<br />", "<br />;")
$lyritext = StringSplit($lyricode, ";", 2)
For $i = 0 To UBound($lyritext) - 1
If $lyritext[$i] = "<br />" or $lyritext[$i] = "</i>" or $lyritext[$i] = "<i>" Then
Else
$lyritext[$i] = Chr($lyritext[$i])
EndIf
Next
_ArrayDisplay($lyritext)
$erg = _ArrayToString($lyritext, "")
$erg = StringReplace($erg, "<br />", @CRLF)
MsgBox(0, "", $erg)
Hier aber werden zwar alle Daten richtig ins Array geladen. Allerdings nach _ArrayToString fehlt dann der größte Teil plötzlich in $erg:
Spoiler anzeigen
#include <Array.au3>
#include <String.au3>
$lyricurl = InetRead ("http://lyrics.wikia.com/E_Nomine:Mitternacht")
$lyricode = _StringBetween(BinaryToString($lyricurl),"alt='phone' width='16' height='17'/></a></div>","<!--")
$lyricode = StringReplace($lyricode[0], "&#", "")
$lyricode = StringReplace($lyricode, "<br />", "<br />;")
$lyritext = StringSplit($lyricode, ";", 2)
For $i = 0 To UBound($lyritext) - 1
If $lyritext[$i] = "<br />" or $lyritext[$i] = "</i>" or $lyritext[$i] = "<i>" Then
Else
$lyritext[$i] = Chr($lyritext[$i])
EndIf
Next
_ArrayDisplay($lyritext)
$erg = _ArrayToString($lyritext, "")
$erg = StringReplace($erg, "<br />", @CRLF)
MsgBox(0, "", $erg)