vb6 Pars Acil Yardım

24-05-2016, 15:09:42

Üyeliği durduruldu

Merhaba arkadaşlar visual basic 6 da bir konu takildim isterseniz ücretli yardım edebilecek varmi
bir url adresinde <title></title> arasindaki kodlari almak istyorum tşkler.

24-05-2016, 15:24:42

#2

~~EgemenPolat~~

Üyeliği durduruldu

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

Merhaba arkadaşlar visual basic 6 da bir konu takildim isterseniz ücretli yardım edebilecek varmi
bir url adresinde <title></title> arasindaki kodlari almak istyorum tşkler.

Normal de ücretsiz kod vermem ama içimden geldi

Kolay gelsin.

    '---------------------------------------------------
    Dim Tit_Baslangic As Long
    Dim Tit_Bitis As Long
    Dim GelenSiteKaynagi As String
    '---------------------------------------------------
        GelenSiteKaynagi = "<html><title>Site Deneme Sayfasi</title><html>"
        Tit_Baslangic = InStr(1, GelenSiteKaynagi, "<title>") + 7
        Tit_Bitis = InStr(1, GelenSiteKaynagi, "</title>")
    '---------------------------------------------------
    TitleYaz = Mid(GelenSiteKaynagi, Tit_Baslangic, Tit_Bitis - Tit_Baslangic)
    '---------------------------------------------------
    Call MsgBox(TitleYaz)
    '---------------------------------------------------

24-05-2016, 17:37:35

#3

~~showme~~

Üyeliği durduruldu

saolun hocam tşkler.