webForumDet fria alternativet

Encoding och XMLDOM

0 svar · 223 visningar · startad av Viktor

ViktorMedlem sedan aug. 20021 752 inlägg
#1

Jag har detta script,

Option Explicit

Private Function GetContent(URL)
	Dim Http
	Set Http=CreateObject("Microsoft.XMLhttp")
	Http.Open "GET",URL,False
	Http.Send
	GetContent=Http.ResponseText
End Function

Public Function GetRSSItem(URL,ItemNr)
	Dim xmlDoc, Nodes, Text
	Randomize
	Set xmlDoc=CreateObject("Microsoft.XMLDOM")
	xmlDoc.loadXML GetContent(URL & "?random=" & Rnd)

	Set Nodes=xmlDoc.getElementsByTagName("item")
	GetRSSItem=Nodes(ItemNr).getElementsByTagName("title")(0).firstChild.data & "%l" & Nodes(ItemNr).getElementsByTagName("link")(0).firstChild.data
End Function

och det fungerar perfekt men när jag försöker läsa detta XML dokument,

<?xml version="1.0" encoding="iso-8859-1"?> 
<rss version="2.0">
<channel>
...
<description>I´ve</description>
...
</channel>
</rss>

så krashar det på ´ tecknet, är inte det ett OK tecken i iso-8859-1? Det fungerar utan problem i IE som annars alltid brukar klaga när det är olagliga tecken med i XML.

/Viktor

133 ms totalt · 3 externa anrop · v20260731065814-full.16f3d68c
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
129 ms — hämta tråd, inlägg och bilagor (db)