Impossible de manipuler la chaîne

Question

Dans mon site Web j'ai un script qui retourne la chanson en cours qui joue de mon serveur shoutcast dans un format de: "artiste-piste", ce que je veux faire est de prendre cette chaîne et diviser à 2 cordes: l'artiste et la piste, afin de le faire j'enroulai le script dans la balise serveur comme ceci:

<div id="nowPlaying" runat="server"> 
<script type="text/javascript" src="http://shoutcast.mixstream.net/js/song/uk3-free:34588"></script>  
</div> 

et sur le code derrière je l'ai fait somthing comme ceci:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) 

     Dim query() As String = nowPlaying.InnerText.Split("-") 
     Dim artist As String = query(0) 
     Dim track As String = query(1) 
     Response.Write(artist + "<br />" + track) 

    End Sub 

la problème est que pour certains reaso n le tableau de chaînes est toujours vide en fait je suis incapable de faire aucune manipulation du tout (remove, substring. lastIndexOf etc.) il semble toujours être vide.

mais si je ne fais aucune manipulation sur la chaîne tout est ok et je peux voir la chaîne comme ceci:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) 

     Dim query As String = nowPlaying.InnerText 
     Response.Write(query) 

End Sub 

idées pourquoi?

Answer 1

Utilisez cette ...

Dim request As HttpWebRequest = WebRequest.Create("http://shoutcast.mixstream.net/js/song/uk3-free:34588") 
Dim response As HttpWebResponse = request.GetResponse() 
Dim reader As StreamReader = New StreamReader(response.GetResponseStream()) 
Dim sTrim = reader.ReadToEnd() 

reader.Close() 
sTrim=sTrim.Replace("document.write('","") 
sTrim=sTrim.SubString(0,sTrim.length-3) 
Dim query() As String = sTrim.Split("-") 

Cette charge le fichier js sous forme de chaîne, puis supprime la syntaxe document.write pour vous laisser juste une mosaïque d'artistes.

Answer 2

Essayez:

Dim query() As String = nowPlaying.InnerText.Split(New [Char]() {"-"c}) 

Answer 3

Bit d'un coup de couteau, mais essayez:

Dim sTrim as String = nowPlaying.InnerText 
sTrim=sTrim.Replace("document.write('","") 
sTrim=sTrim.SubString(0,sTrim.length-3) 
Dim query() As String = sTrim.Split("-")