sen örneğin bi paragrafımı yazdırmak istiyorsun bi textdeki while döngüsüyle birşeyler yapabilirsin ne istediğini tam anlamadım -

arkadaşlar şimdi şöyle bir kodlama yaptım Text20. text te sitenin içerik kısmı var text18 de ayrılacak kısım bulunmakta text21 e de ayrılan kısmı yazıyor text19 > text18 den sonra örnegin ; <ayirilacakkisim>354666<text19ayrilacakkisim> ise text18 ile 354666354666<text19ayrilacakkisim> kısmını alıyorsak text19 ile sade 354666 kısmını alıyoruz Şimdi benim isteğim şu ; en son ayrılan yazılar listbox ta sıralı birşekilde alt alta gelecek ; Yanlız bu kodlama sadece bir satırı ayırıyor örnegin 1 yazıyı ayırıor ondan sonraki gelen ayrilacak kisimlari ayırmıyor ben istiyorum ki ne kadar ayrilacak kısım varsa hepsini listbox a veya text21 e yazsın? Kodlama Aşağıdaki gibidir ; Dim veri, ayrilan veri = Text20. Text ayrilan = Split(veri, Text18. Text) Text21. Text = ayrilan(1) Dim veri1, ayrilan1 veri1 = Text21. Text ayrilan1 = Split(veri1, Text19. Text) Text21. Text = ayrilan1(0)