webForumDet fria alternativet

replace problem

5 svar · 296 visningar · startad av Gimbo

GimboMedlem sedan dec. 20001 626 inlägg
#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 969 inlägg
#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
#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
#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
#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
#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

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