Merhaba Arkadaşlar,
Bir uygulama yazıyorum, bir noktada takıldım.
Bir türlü detayı hatırlayamadım
Şimdi ben bir web sayfasından veri çekiyorum
Alıntı
Option Explicit
Private Sub Getir_Click()
Dim objLink As HTMLLinkElement
Dim objMSHTML As New MSHTML.HTMLDocument
Dim objDocument As MSHTML.HTMLDocument
Set objDocument = objMSHTML.createDocumentFromUrl(txtURL.Text, vbNullString)
While objDocument.readyState <> "complete"
DoEvents
Wend
txtSource.Text = objDocument.documentElement.innerText
DoEvents
DoEvents
Beep
End Sub
Bu kodla sayfa yuzeyini tamamen okuyup text box'a aktarabiliyorum,
fakat detaya bir türlü inemiyorum
Halbuki ben;
Alıntı
</tr>
<tr id="gelis">
<td style="padding-left:5px;">Gidiş sefer</td>
<td align="right" style="padding-right:5px;">07:02</td>
</tr>
<tr id="gidis">
<td style="padding-left:5px;">Dönüş Sefer</td>
<td align="right" style="padding-right:5px;">12:25</td>
</tr>
Benim bu kısımda bulunan,
id'leri gelis ve gidis olan tabloların altındaki verileri ayrı ayrı textbox'lara çekmem lazım.
Inet ile çok basit yaparım,
fakat inet artık windowsta sıkıntı çıkarıyor o yüzden direk webbrowser'dan çekmem gerek.Lakin componenti tag lara ayırarak listeleyemedim.
Kodu nasıl detaya indirgerim?
