ASP Bot türkçe karakter sorunu

08-01-2015, 21:07:37

şimdi arkadaşlar şöyle bir kod var;

<tr>
<td class="currency">Piyasa Değeri <span>(USD)</span></td>
<td class="right">220.734.463</td>
</tr>
<tr>
<td class="currency">Piyasa Değeri <span>(TL)</span></td>
<td class="right">507.910.000</td>
</tr>
<tr>
<td class="currency">Özsermaye <span>(TL)(**)</span></td>
<td class="right">189.757.000</td>
</tr>

ben burada sayı olan yerleri almak istiyorum.

<%
adr="http://uzmanpara.milliyet.com.tr/borsa/hisse-senetleri/"& hisse &"/"
set StrHTTP = Server.CreateObject("Microsoft.XMLHTTP")
StrHTTP.Open "GET" ,adr, false
StrHTTP.Send
kur = StrHTTP.Responsetext
Set StrHTTP = Nothing

kes = split(kur,"<td class=""currency"">Piyasa Değeri <span>(USD)</span></td>")
kes2=split(kes(1),"</td>")
baslik=kes2(0)


response.write ""& baslik &""
%>

yukardaki gibi de bir kod var veriyi çekmek için. ama türkçe karakter yüzünden hata veriyor. bunu nasıl aşabilirim? diğer yerlerden ayıracak başka bir kod da yok çekeceğim yerde.

10-01-2015, 22:26:14

#2

oktayman

PetitJoueur adlı üyeden alıntı: mesajı görüntüle

şimdi arkadaşlar şöyle bir kod var;

<tr>
<td class="currency">Piyasa Değeri <span>(USD)</span></td>
<td class="right">220.734.463</td>
</tr>
<tr>
<td class="currency">Piyasa Değeri <span>(TL)</span></td>
<td class="right">507.910.000</td>
</tr>
<tr>
<td class="currency">Özsermaye <span>(TL)(**)</span></td>
<td class="right">189.757.000</td>
</tr>

ben burada sayı olan yerleri almak istiyorum.

<%
adr="http://uzmanpara.milliyet.com.tr/borsa/hisse-senetleri/"& hisse &"/"
set StrHTTP = Server.CreateObject("Microsoft.XMLHTTP")
StrHTTP.Open "GET" ,adr, false
StrHTTP.Send
kur = StrHTTP.Responsetext
Set StrHTTP = Nothing

kes = split(kur,"<td class=""currency"">Piyasa Değeri <span>(USD)</span></td>")
kes2=split(kes(1),"</td>")
baslik=kes2(0)


response.write ""& baslik &""
%>

yukardaki gibi de bir kod var veriyi çekmek için. ama türkçe karakter yüzünden hata veriyor. bunu nasıl aşabilirim? diğer yerlerden ayıracak başka bir kod da yok çekeceğim yerde.

şu sitedeki kodları inceleye bilir siniz http://www.mydesign.gen.tr/kod/881.html

12-01-2015, 03:44:18

#3

bilgmuh

PetitJoueur adlı üyeden alıntı: mesajı görüntüle

şimdi arkadaşlar şöyle bir kod var;

<tr>
<td class="currency">Piyasa Değeri <span>(USD)</span></td>
<td class="right">220.734.463</td>
</tr>
<tr>
<td class="currency">Piyasa Değeri <span>(TL)</span></td>
<td class="right">507.910.000</td>
</tr>
<tr>
<td class="currency">Özsermaye <span>(TL)(**)</span></td>
<td class="right">189.757.000</td>
</tr>

ben burada sayı olan yerleri almak istiyorum.

<%
adr="http://uzmanpara.milliyet.com.tr/borsa/hisse-senetleri/"& hisse &"/"
set StrHTTP = Server.CreateObject("Microsoft.XMLHTTP")
StrHTTP.Open "GET" ,adr, false
StrHTTP.Send
kur = StrHTTP.Responsetext
Set StrHTTP = Nothing

kes = split(kur,"<td class=""currency"">Piyasa Değeri <span>(USD)</span></td>")
kes2=split(kes(1),"</td>")
baslik=kes2(0)


response.write ""& baslik &""
%>

yukardaki gibi de bir kod var veriyi çekmek için. ama türkçe karakter yüzünden hata veriyor. bunu nasıl aşabilirim? diğer yerlerden ayıracak başka bir kod da yok çekeceğim yerde.

Gönderdiğiniz GET isteğinin headerına charset=utf-8 eklemeyi deneyebilirsiniz.

15-01-2015, 13:54:34

#4

resulozlu

öncelikle sayfana utf-8 i tanımlamanı tavsiye ederim. notepad++ bom olmadan kodla seçeneğini seçip vermiş oldugum kodları kullanabilirsin.

Adres = "www.domainadi.com"
Gelen = SayfaAl(Adres)

Private Function SayfaAl(URL)
On Error Resume Next
Dim HTTP
Set HTTP = Server.CreateObject("Microsoft.XMLHTTP" )
HTTP.Open "Get" , URL, False
HTTP.SEnd
SayfaAl = HTTP.ResponseText
Set HTTP = Nothing
End Function

Private Function BaslikAl1(Kaynak)
On Error Resume Next
Dim Baslangic, Genislik
Baslangic = InStr(1,Kaynak, "/BAŞLANGIÇ KODLARIN/" , 1) + Len("/BAŞLANGIÇ KODLARIN/" )
Genislik = InStr(Baslangic,Kaynak, "/BİTİŞ KODLARIN/" , 1) - Baslangic
BaslikAl1 = Mid(Kaynak, Baslangic, Genislik)
End Function

link1=BaslikAl1(Gelen)
response.write link1