8 svar · 1 795 visningar · startad av eddy1
Hej
har lånat ett script som en medlem här har ghort för dns uppslag..
skumma är att när jag sparar värdet för tex land i databsen så blir det t.ex "SE" följt av en fyrkant?? Fattar inte detta..
Koden:
myUrl = "http://www.wundersolutions.com/web-hosting/WHOIS/?Domain=" & db("ip_nr")
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", myUrl, False ' Hämtar hela websidan. VAD GÖR FALSE ???
objHTTP.Send
strHTML=objHTTP.responseText ' GÖR EN STRÄNG AV HELA SIDANS SOURCE
Set regExp = New regexp
regExp.Global = false ' True visar alla. False visar första träffen.
regExp.IgnoreCase = true ' Bryr sig inte om gemaner/versaler
regExp.Pattern = "country:(.*?)\n" ' Letar efter nätets namn
Set hittade = regExp.Execute(strHTML)
For each item in hittade
'Response.Write(item.value)
varNetCountry = trim(right(item.value,len(item.value)-9))
Next
Ofta visas en fyrkant när programmet inte har ett tecken för det tecknet.
Tecknet kan ofta visas i ett smartare program, tex MS Word. Men är det ett knastecken så kanske det inte är ett synligt tecken, som tex en tab-stopp eller en newline i unixformat etc.
måste ju kunna köra någon replace eller något för att få bort det. men jag vet ju inte hur tecknet ska vara. kan ju inte skriva in en fyrkant i koden??
Du kan ta bort fyrkanten. Det är 0x0a som står där vilket är samma sak som \n dvs en radbrytning.
Anledningen till att det visas som en fyrkant i Windows är att radbrytningar där ska bestå av två tecken: \r\n
det går att ta bort.. vad ska jag köra replace på för tecken då??
den har jag testat..
Hmm... hur var det man skrev i basic... chr(10) har jag för mig.
japp du har rätt. fick svaret på ett annat forum. men kör replace på både Chr(10) och chr(13). En är för vbLf och den andra för vbCr..
