AccessTr.neT

düşün bak 1 sayfa hikaye var textbox içinde bu textboxsın içindeki hikayeden benim belirlediğim veriler arasındakileri alacak ve listboxa aktaracak

Anladım Galiba...
Dediğinizi Yapabilmek İçin

Substring Fonksiyonunu Kullanabilirsin. Ama Onun Nasıl ListBox'a Aktarılcak Bilmiyorum...Şu Kadarını Söyleyebilirim.

SubString İle TextBox'daki İstediğiniz Değeri Değişkene Atarsanız.
O Değişkeni İse ListBox AktaraBilirsiniz Diye Düşünüyorum...

Bunumu demek istiyorsunuz texbox yazdığım veriler listbox listelensin ne yapmak istediğinizi daha açık yazarsanız ve örnek eklerseniz size daha hızlı yardımcı oluruz diye düşünüyorum.

TextBox1.Text = WebBrowser1.DocumentText

Dim ara, aranan As String
Dim ilk, son, deg1
ara = TextBox1.Text
deg1 = deg1 & ara
aranan = "<cite>"
ilk = InStr(1, deg1, aranan) + Len(aranan)
If ilk <> Len(aranan) Then
son = InStr(ilk, deg1, "/") - ilk

ListBox1.Items.Add(Mid(deg1, ilk, son))

işte kod bu buradaki değeri lisboxa atıyor ama sadece bir tane atıyor istediğim verdeiğim verilerde textbox1 de kaç tane varsa listxboxa eklesin

Dim ara, aranan As String

Dim ilk, son, deg5

ara = TextBox1.Text

deg1 = deg5 & ara

aranan = "<cite>"

ilk = InStr(1, deg5, aranan) + Len(aranan)

If ilk <> Len(aranan) Then

son = InStr(ilk, deg5, "/") - ilk



ListBox1.Items.Add(Mid(deg5, ilk, son))

Bu şekilde denerminiz

Buda Olmadı projeyi ekliyorum Duayen Kardeşim Bi Zahmet Oradan Bi Bakıver