Question

在我的网站上，我有一个脚本，它返回当前从我的shoutcast服务器播放的歌曲，格式为：“artist-track”，我想要做的是取出该字符串和将它拆分为 2个字符串：艺术家和曲目，为了做到这一点，我将服务器标签中的脚本包装成如下：

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

在我背后的代码上做了类似这样的事情：

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

问题是由于某种原因，字符串数组总是空的，实际上我根本无法进行任何操作（remove，substring.lastIndexOf等）它总是似乎是空的。

但如果我不对字符串进行任何操作，一切都还可以，我可以看到这样的字符串：

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

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

 End Sub

任何想法为什么？

Answer 1

使用此...

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("-")

这会将js文件作为字符串加载，然后删除document.write语法，只留下artist-tile。

Answer 2

尝试：

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

Answer 3

刺伤但尝试：

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

无法操纵字符串

3 个答案: