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
TextBox içindeki veri
Bu Konudaki Yorumlar |
TextBox içindeki veri - Yazar: TheWayEnd - 24/06/2011, 17:22
Cvp: TextBox içindeki veri - Yazar: ~~KaG~~ - 24/06/2011, 17:36
Cvp: TextBox içindeki veri - Yazar: TheWayEnd - 24/06/2011, 17:45
Cvp: TextBox içindeki veri - Yazar: ~~KaG~~ - 24/06/2011, 17:51
Cvp: TextBox içindeki veri - Yazar: TheWayEnd - 24/06/2011, 18:06
Cvp: TextBox içindeki veri - Yazar: ~~KaG~~ - 24/06/2011, 18:10
Cvp: TextBox içindeki veri - Yazar: TheWayEnd - 24/06/2011, 18:15
Cvp: TextBox içindeki veri - Yazar: ~~KaG~~ - 24/06/2011, 18:43
Cvp: TextBox içindeki veri - Yazar: DUAYEN - 24/06/2011, 20:46
Cvp: TextBox içindeki veri - Yazar: TheWayEnd - 24/06/2011, 23:40
Cvp: TextBox içindeki veri - Yazar: DUAYEN - 25/06/2011, 00:00
Cvp: TextBox içindeki veri - Yazar: TheWayEnd - 25/06/2011, 09:22
Cvp: TextBox içindeki veri - Yazar: mbteknoloji - 07/12/2011, 15:02
|
Konuyu Okuyanlar: 1 Ziyaretçi