Webden bilgi alma

[dragon44760]

Herkese iyi akşamlar...
İnternetten bilgi almak istemekteyim. Bilgi almak istediğim internet sitesinin ilgili kısmının resmi ekteki rar dosyasındadır. Resimde sorgulamayı yaptığım şahsın eşi ve iki çocuğu var lakin sorguladığım şahısların aile bilgileri değişmektedir. İnternetten sorgulama işlemi yapabilmekteyim. İnternet sayfasından bilgi almak için sitede birçok örneği inceledim. Ancak bilgi alma işlemini beceremedim. Sorgulama yaptıktan sonra "Bakmakla Yükümlü Olduğu Aile Hakkında Bilgi" bölümünde veri varsa ekli dosyada olduğu gibi sorgulanan şahsın satırında ilgili sütuna alınabilir mi_?


İlgili internet sitesinin "Bakmakla Yükümlü Olduğu Aile Hakkında Bilgi" bölümünün kodu:

<td colspan="6" style="height: 17px">
                                 <span style="color: #ff0066; font-size: 10pt;"><strong>Bakmakla Yükümlü Olduğu Alesi Hakkında Bilgi</strong></span></td>
                         </tr>
                         <tr>
                             <td colspan="6" style="height: 13px">
                                 <div>
	<table cellspacing="0" cellpadding="3" rules="rows" bordercolor="#E7E7FF" border="1" id="gvTablo" style="background-color:White;border-color:#E7E7FF;border-width:1px;border-style:None;font-family:Tahoma;font-size:XX-Small;width:810px;border-collapse:collapse;">
		<tr align="left" style="color:White;background-color:#4A3C8C;border-color:Transparent;border-style:None;font-weight:bold;">
			<th scope="col"> </th><th scope="col">YAKINLIK DERECESİ</th><th scope="col">ADI SOYADI</th><th scope="col">DOĞUM TARİHİ</th><th scope="col">ÖĞRENİM DURUMU</th>
		</tr><tr style="color:#4A3C8C;background-color:#E7E7FF;">
			<td>
                                                 <input id="[COLOR="Blue"]gvTablo__ctl2_CheckBox1[/COLOR]" type="checkbox" name="[COLOR="Red"]gvTablo:_ctl2:CheckBox1[/COLOR]" checked="checked" />
                                             </td><td>Çocuk1</td><td>Adullah BAKAR</td><td>02 / 04 / 1998</td><td>İLKOKUL</td>
		</tr><tr style="color:#4A3C8C;background-color:#F7F7F7;">
			<td>
                                                 <input id="[COLOR="blue"]gvTablo__ctl3_CheckBox1[/COLOR]" type="checkbox" name="[COLOR="Red"]gvTablo:_ctl3:CheckBox1[/COLOR]" checked="checked" />
                                             </td><td>Eş1</td><td>Canan BAKAR</td><td>25 / 11 / 1974</td><td>*Belirsiz</td>
		</tr><tr style="color:#4A3C8C;background-color:#E7E7FF;">
			<td>
                                                 <input id="[COLOR="blue"]gvTablo__ctl4_CheckBox1[/COLOR]" type="checkbox" name="[COLOR="red"]gvTablo:_ctl4:CheckBox1[/COLOR]" checked="checked" />
                                             </td><td>Çocuk2</td><td>Ebru BAKAR</td><td>14 / 05 / 2002</td><td>İLKOKUL</td>
		</tr>
	</table>
</div>

 

[Zeki Gürsoy]

Elbette alınabilir... Ancak bu html kodu nereden okunacak?

- İnternet adresinden?
- Disk üzerindeki htm dosyasından?

 

[dragon44760]

Zeki Gürsoy hocam ilginiz için teşekkür ederim.
Bu bilgileri internet üzerinden almak istiyorum. İnternete veri girdikten sonra sorgulama sonucunda çıkan verilerden alacağım.

 

[Zeki Gürsoy]

Öncelikle, Internet Explorer ile çalışmanız gerekiyor ve veri alacağınız sayfadan hariç IE da çalışan başka bir sayfa açık olmasın.
Sonuç sayfası ekrana geldikten sonra, boş bir dosyada aşağıdaki proseduru çalıştırırarak test edin.

Sub IE_Pencerelerinden_Al()
Dim w As Object, x As String, t As Object

    With CreateObject("Shell.Application")
    
        For Each w In .Windows
        
            If TypeName(w.document) = "HTMLDocument" Then
            
                Set t = w.document.getElementsByTagName("table").Item(0) [COLOR=DarkGreen]'İlk tablo[/COLOR]
                
                If Not t Is Nothing Then
                    For i = 0 To t.Rows.Length - 1
                        For j = 0 To t.Rows(i).Cells.Length - 1
                            Cells(i + 1, j + 1) = t.Rows(i).Cells(j).innerText
                        Next
                    Next
                Else
                    MsgBox "tablo bulunamadı"
                End If
                
                Exit For
            End If
            
        Next
        
    End With
    
End Sub

 

[dragon44760]

Üstad interanet ortamında olduğu için şimdilik deneme şansım yok ama sabah mesayide deneyeceğim.
Sitede bulduğum örneklerle tablodan veri alma ile ilgili biraz çalıştım ama fayda vermemişti. İnşallah verdiğiniz kodlarla sorun çözülür.
Herşey için teşekkürler...

 

[dragon44760]

Sn. Üstadlar sorgulama yapıp veri alacağım internet sitesi intranet üzerinde olduğundan Zeki Gürsoy'un vermiş olduğu kodu geç de olsa denedim. Ancak, sayfada bulanan tabloların tamamının bilgilerini alt alta satır satır aldı. Lakin ben ilk mesajımdaki gibi "Bakmakla Yükümlü Olduğu Aile Hakkında Bilgi"lerini sorgulanan kişinin bulunduğu satırda yan yana sütunlara alsın istiyorum.

web sayfasının şu kodları kullanılarak veriler alınamaz mı?
id="gvTablo__ctl2_CheckBox1" / name="gvTablo:_ctl2:CheckBox1"
id="gvTablo__ctl3_CheckBox1" / name="gvTablo:_ctl3:CheckBox1"
id="gvTablo__ctl4_CheckBox1" / name="gvTablo:_ctl4:CheckBox1"

Görüleceği gibi id ve name de gvTablo__ctl2_CheckBox1 mavi renkli rakam değişmekte. Eğer id veya name'ye göre gvTablo__ctl2_CheckBox1'deki 2 den 10'a kadar sorgulasa-arasa ve ilgili sütunlara alsa.

Üstadlar yardımcı olursanız sevinirim.
**web kodunda almak istediğim bölümün kodu</div> ile başlayıp </div> ile bitmesinin sebebini de anlamış değilim...

 

[dragon44760]

Zeki Gürsoy hocam zahmet olmazsa soruma yeniden bakabir misiniz?

 

[dragon44760]

Sn. Üstadalar cevap verecek yok mu?