Visual Basic - Basic - PicBasic ve Türevleri
Visual Basic İnet, Mid Ve İnstr Yardım
Visual Basic İnet, Mid Ve İnstr Yardım
-
işin içinden çıkamadım bi el atarsanız minnettar olacam.
alttaki kodu yazdım siteye bağlandım istediğim veriyide kısmen çektim. sorunum instr komutu kaynak kodda yer alan ilk "formsec(" zavazingosunu buluyor ondan sonrakileri bulması için döngü ekledim ama olmadı bu işin içinden nasıl çıkacam. site asp ve javasctript ile yazılmış istediğim veri bir tabloda bulunuyor direk tabloyu kopyalamnın bir yolu varmı. inet executeyi denedim oda olmadı.
Dim C As Variant
C = Inet1.OpenURL(WebBrowser1.LocationURL)
RichTextBox1.Text = Mid(C, InStr(C, "FormSec(") + 8, 11) '&richtextbox1.text -
dim aktif as integer
aktif = 0
devam:
aktif = instr(aktif,aranacak, "FormSec(")
bulunanaktif = mid(siteIcerigi,aktif,8 ) '8 yerine ne kadar uzatmak istiyorsan o kadar
if haladevamivar = true then goto devam
bu yöntemle yaparsın ama
daha kolayı, regex ile yapman
mesela uzun bir abcd degiskeni icinde sakli "deneme(" ile başlayıp arasında ilgili birşey olan bir yazinın sonu ")" ile bitiyorsa, bu veriyi otomatik çıkarmak için regexte araya yıldız atıyorsunuz yanlış hatırlamıyorsam
vb.net için:
Dim k As New Regex("deneme(*)", RegexOptions.IgnoreCase Or RegexOptions.IgnorePatternWhitespace)k.Matches(gelenyazi)
sonra bunun sonucunu fornexte koyduğunda
sonuç otomatik olarak geliyor regex daha basit bu konuda. çünkü kıstasına göre otomatik sonuç verir.
Selametle