replace problem

5 svar · 296 visningar · startad av Gimbo 25 aug. 2004

GimboMedlem sedan dec. 20001 626 inlägg

Frågan25 aug. 2004 05:07#1

hejsan har denna kod:


<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%">
      <table border="0" width="100%" cellspacing="0" cellpadding="0">
        <tr>
          <td width="100%"><%
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.weathercentral.com/weather/us/cities/wi_madison.html", False

objHTTP.Send
strHTML=objHTTP.responseText
Set objHTTP = Nothing

Dim strHTML1, strHTML2
strHTML1=split(strHTML,"<table width=""130"" cellpadding=""3"" cellspacing=""0"" border=""0"" class=""currentsub"">")
strHTML2=split(strHTML1(1),"</table>")

strHTML3 = replace(strHTML2(0),"?", "& deg;",1,-1,1)

response.write strHTML3

set objHTTP = nothing
%></td>
        </tr>
      </table>
    </td>
  </tr>
</table>

men den vill inte ersatta fragetecknet med degree tecknet, jag kan ersatta allt annat pa sidan men inte fragetecknet hel skumt???

E tvungen att lagga ett mellanslag mellan & och deg; for att det inte skulle visas som degree tecknat har pa webforum, sa det dar sitter ihop i min kod
/red

@ndersMedlem sedan juni 200032 967 inlägg

25 aug. 2004 05:53#2

Det ska inte vara några problem att replacea frågetecken, under förutsättning att det verkligen är ett frågetecken. Det är inte egentligen någon teckenkod som gör att det visas som frågetecken i browsern?

GimboMedlem sedan dec. 20001 626 inlägg

25 aug. 2004 06:17#3

nope, jag kollar kallan o dar e det ett fragetecken.... testa sjalv, det e hela koden jag gav er, hel skumt!

solbulleMedlem sedan mars 20015 287 inlägg

25 aug. 2004 06:23#4

Som sagt, det är inget frågetecken..

<%
function BinToText(varBinData, intDataSizeInBytes)
const adFldLong = 128
const adVarChar = 200
set objRS = Server.CreateObject("ADODB.Recordset")

objRS.Fields.Append "txt", adVarChar, intDataSizeInBytes, adFldLong
objRS.Open

objRS.AddNew
objRS.Fields("txt").AppendChunk(varBinData)
tmp = objRS("txt").Value
objRS.Close
BinToText = tmp
end function

Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.weathercentral.com/weather/us/cities/wi_madison.html", False

objHTTP.Send
strHTML = BinToText(objHTTP.responseBody,35000)
Set objHTTP = Nothing

Dim strHTML1, strHTML2
strHTML1=split(strHTML,"<table width=""130"" cellpadding=""3"" cellspacing=""0"" border=""0"" class=""currentsub"">")
strHTML2=split(strHTML1(1),"</table>")

response.write strHTML2(0)

set objHTTP = nothing
%>

GimboMedlem sedan dec. 20001 626 inlägg

25 aug. 2004 07:08#5

men, i html koden nar man kollade i kallan sa var det ett fragetecken, hur visste du att d inte va ett fragetecken?? o vad gor denna kod?? 35000 o grejer?

solbulleMedlem sedan mars 20015 287 inlägg

25 aug. 2004 07:28#6

Av någon anledning klarar inte objektet av att hantera dels åäö men inte heller, som synes, en del andra "ovanliga" tecken utan visar då ett frågetecken.

Detta har diskuterats fram och rillbaka här på forumet och den lösning jag postade är den enda jag vet i dagsläget som fixar det hela.
Lösningen är inte optimal eftersom den tar en del kraft.

I ditt fall, när det bara är just ett enda tecken som ska bytas ut tycker jag egentligen att det borde gå att få till en än smidigare lösning...

http://www.webforum.nu/showthread.php?s=&forumid=22&threadid=13932