Çözüldü internetten veri çekme (Span) harici

syf.Cells(satir, sutun).Value = td.innerText satırını
syf.Cells(satir, sutun).Value = Right(td.innerText, 5) ile değiştirsek?

muratboz06' Alıntı:

syf.Cells(satir, sutun).Value = td.innerText satırını
syf.Cells(satir, sutun).Value = Right(td.innerText, 5) ile değiştirsek?

Genişletmek için tıkla...

Bu örnek için olur ama başka siteden saat harici almaya kalksak iş karışır bence.
Bende bir sürü kod yazmıştım sağdan kodu aklıma gelmedi
Yada geldi 4:05 yada diğeri 05:15 gibi olursa diye düşünüp vazgeçmitim galiba Right için.

Aslında alttaki gibi split ilede çözülüyor ama nedense kodu arka arkaya çalıştırınca hata veriyor bazen.
Benim asıl öğrenmek istediğim span kısmı mesela getElementsByTagName("span") bunun gibi birşeyler eklenip span varsa altındaki veri al gibi
Tamda garip siteye denk gelmişim

Teşekkürler halily abey konu çözüldü

İnterntten veri çekme olayıda zevkliymiş belki anlamadıklarım olursa konu açarım.

Rica ederim
iyi çalışmalar
bu da diziye aktarılmış hali

Dosya ekdedir hocam .

Artemis' Alıntı:

Dosya ekdedir hocam .

Genişletmek için tıkla...

Sağolun abey

halily' Alıntı:

Rica ederim
iyi çalışmalar
bu da diziye aktarılmış hali

Kod:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Genişletmek için tıkla...

Sağol abey.
Ben extra dizi yada scripting=false ve true eklememiştim çünkü butona tıklayınca verilerin süzüle süzüle gelmesini izlemek heyecanlıydı
Böyle daha hızlı tabii.

halily' Alıntı:

Dim DzVkt(2 To 1000, 1 To 10

Genişletmek için tıkla...

Alttaki gibi dahaiyi oldu abey.

Screenupdate false yapınca diziye almadan daha hızlı aliyor

halily' Alıntı:

Screenupdate false yapınca diziye almadan daha hızlı aliyor

Genişletmek için tıkla...

Redim içindeki yani redim arr(1 to satır,1 to1) burdaki satır yazan nekadar çoksa fazla sürer.Ben genelde garanti olsun diye rows.count ekliyorum.preserve ile yapılınca bu kezde transposeden dolayı 65536 olayı sorun çıkarıyor abey.
Aetık biraz denemer yapayım başka siterlede yapabilecekmiyim bu veri çekmeyi artık
Ama mantığı çözdüm

Refaz' Alıntı:

rows.count ekliyorum

Genişletmek için tıkla...

bu durumda en az 65.000 satırlık bir dizi oluşturulmuş olmuyor mu?

halily' Alıntı:

bu durumda en az 65.000 satırlık bir dizi oluşturulmuş olmuyor mu?

Genişletmek için tıkla...

2003 için 65536 diğerler için 1048576 biliyorum.
Dediğim gibi genelde ben böyle yapıyorum belki 1 saniye fark ediyor.
Satır sayısı belliyse o kadarda yazılır.
Litbox yada combo ya zaten zorunlu olmadıkça prerve kullanıyorum orda transpose ye gerek olmadığı için 65536 sorunda olmuyor.
Yada abey bu dosyada alttaki kafadan yazacağım örnek kalıpla preserve olarak yazılınca rows.countada gerek olmaz bildiğiniz gibi.

Redim arr(1 to 1 ,1 to 1)

Döngü içinede

Say =say +1
Redim preserve arr(1 to 10,1 to say)
Arr(1,say)=1
Arr(2,say)=6

Bunlar döngüyede alınabilir.Yazdığım gibi zaten biliyorsunuz.Bu şekilde en başta redime sayı girmeye gerek kalmaz 1000 yada başka.
Bu şekilde yapınca listbox için

Listbox1.column= arr

Yazmak yeterli transposeye gerek kalmadan yada column yerine list yazılabilinir.
Sayfaya aktarmak için ise

Sayfa1.cells(1,1).resize(ubound(arr,2),ubound(arr,1)).value= application.transpose(arr)

Olarak yapılabilinir.Dediğim gibi mobilden kafadan yazdığım için mantık hatası yada kod yazma hatası olabilir abey.