10 svar · 1 899 visningar · startad av Mattias Nordin
Nu måste jag vara jättetrött. Hur gör man en sträng som innehåller " tecken?
Försöker hitta och ersätta > imgurl:"http://
varString = "imgurl:" &Chr(34) &"http://"
response.write("<hr>" &varString &"<hr>")
varPage = replace(varPage, varString, "###" )
Får det inte att fungera. Hmm.
varString = "imageurl""http://"
Escapa med \ tecknet
Hmmm...
Fnuttarna fungerar men inte min replace.
varString = "imgurl:""http://"
response.write("<hr>" &varString &"<hr>")
varPage = replace(varPage, varString, "###" )
Kör jag ctrl + f på sidan så hittar den imgurl:"http:// både i min response.write samt på andra ställen på sidan. Men inga ###.
Hmm. Är jag dummare än vanligt nu Voigtann!?
Du visar för lite kod. Vi kan inte gissa vad varPage har för innehåll eller hur resten av sidan ser ut.
är det " och inte "e; du vill ersätta? Vad innehåller varPage exakt?
=)
Efter lite filtrering så ser nu sidan (varPage) ut så här:
Vill nu få bort prefixdelen innan länkarna genom att köra:
<% function funCleanUp(varPage)
varPage= replace(varPage, "###""", "" )
funCleanUp = varPage
end function %>
Men jag får inte någon match på ###"
<% function funExtractImages(iPageString)
'1) - CLEANUP PAGE STRING...
varFindThisString = "imgurl:"
response.write("<hr>" &varFindThisString &"<hr>")
iPageString = replace(iPageString, varFindThisString, "###" )
'2) - FIND LINKS USING REGULAR EXPRESSIONS...
Dim re
Set re = new RegExp
re.IgnoreCase = true
re.global = true
'FIND EVERYTHING BETWEEN ### and ,
re.Pattern = "###(.*?),"
varResult = re.Test(iPageString)
' Puts all matched HTML in a collection called Matches:
Set Matches = re.Execute(iPageString)
' Show all the matching HTML:
For Each Item in Matches
Response.Write( funCleanUp(Item.Value) )
Next
' Show one specific piece:
'Response.write(Matches.Item(0).Value)
%>
<% End Function %>
<% function funCleanUp(iString)
iString = replace(iString, chr(34), "" )
iString = replace(iString, "###", "" )
funCleanUp = iString
end function %>
Alternativet är att skapa en bättre regeExp som inte tar med citattecknen i länkarna men jag lyckas inte med den heller.
På följande sida så testar jag följande:
###.(.*?).
Och det returnerar korrekt (match1) i testverktyget http://www.regextester.com/:
http://www.imotion.com.br/imagens/data/media/18/Tom_Cruise.jpg
på följande text sträng (varPage)
",###"http://www.imotion.com.br/imagens/data/media/18/Tom_Cruise.jpg",offset:"9",t:"Tom Cruise",w:"1024",h:"768",ff:"jpeg",fs:"438",durl:"www.imotion.com.br/imagens/details.php?image_id=4423",surl:"http://www.imotion.com.br/imagens/details.php?image_id=4423",mid:"D870560AA8F6DA88F388BE48831FF9930804C47F",k:"24",ns:"API.images"}" id="333245121528"><span class="sg_c"><img class="sg_i" src="http://ts1.mm.bing.net/images/thumbnail.aspx?q=333245121528&id=bce8b075cb3f7d6aa6995f5c687679fd&index=ch1" style="width:136px;height:102px;left:0px;top:17px"/><span class="sg_txt H23"></span></span></span><span class="sg_u" metadata="{height:"300",width:"273",turl:"http://ts1.mm.bing.net/images/thumbnail.aspx?q=328251149072&id=b906e49d1a9a442e70492c9d84435ec2&index=ch1",###"http://www.ueltzhoeffer.com/LOGO%20PICTURE/Tom-Cruise.jpg",offset:"10",t:"Tom Cruise / Ralph ...",w:"480",h:"526",ff:"jpeg",fs:"62",durl:"www.ueltzhoeffer.com/TOM-CRUISE-UELTZHOEFFER.html",surl:"http://www.ueltzhoeffer.com/TOM-CRUISE-UELTZHOEFFER.html",mid:"EBDA25DF4A281992EB90687533BDD56D2337B445",k:"26",ns:"API.images"}" id="328251149072"><span class="sg_c"><
Men likväl blir output på min sida =
Jag vill alltså ha en kommaseparerad sträng utan fnuttar runt adressen.
Hmm....
FÖRLÅT MIN HJÄRNBLÖDNING...
Men varför bing väljer att koda sina urler med quot; förstår jag inte.
Hur som helst så är den enkla lösningen
iString = replace(iString, """, "")
Måste småle lite att jag har spenderat en dag åt att hitta detta. Jag måste vara askass *ler*
Tack för hjälpen my guru friends!