+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Örnekleri ve Uygulamaları (https://accesstr.net/forum-visual-basic-6-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Kelime Saydırma (/konu-kelime-saydirma.html)
Kelime Saydırma - chopper07 - 28/11/2008
bu makalede bir not defteri içerisinde kaç kelime var onu bulacağız.Bu örnekle aynı zamanda nasıl filtreleme yapılır onu öğreneceğiz.
şimdi formumuza :
richtextbox1 (Bunu projects-components-Microsoft Rich Text Box Control 6.0 'ı aktif ederek koyuyoruz)
commondialog1(projects-components-Microsoft Common Dialog Control 6.0 'ı aktif edere koyuyoruz)
command1 ve command2 olmak üzere 2 adet buton
listbox1 adında list box
label1 adında birde etiket ekliyoruz....
form yüzeyindeki düzenlemeyi aşağıdaki resimdeki gibi yaparsanız daha anlaşılır olacaktır...
![[Resim: kelimesaydirmafaaa0.jpg]](http://server101.kucukresim.com/uploads/kelimesaydirmafaaa0.jpg)
ve kodları direk formumuza yapıştıralım...
Kod:
Private Sub Command1_Click() 'command1 tıklandığında pencere açılıyor ve size seçim sunuyor
CommonDialog1.ShowOpen
RichTextBox1.LoadFile (CommonDialog1.FileName) 'Seçtiğiniz dosya text box 'ya yazılıyor
End Sub
Private Sub Command2_Click()
Data1 = RichTextBox1.Text ' kolay işlemek için text box verisi data1 değişkenine yazılıyor
For i = 1 To Len(Data1) 'döngü 1 den başlayarak data1 içerisindeki karakter uzunluğu kadar işlem yapacak
If Mid(Data1, i, 1) = " " Then 'veri içerisinde boşluklar aranıyor ve işlem yapılıyor
If Trim(Data2) <> "" Then 'artık data2 içinde artık bir kelime oluştuysa list1 e ekleniyor
List1.AddItem Data2
Data2 = ""
End If
Else
If Mid(Data1, i, 1) <> " " Then ' boşluk bulunmadıysa data2 değişkenine eknerek bir kelime oluşturuluyor
Data2 = Data2 & Mid(Data1, i, 1)
End If
End If
Next i
Label1.Caption = List1.ListCount 'tüm işlem tamamlandığında label1'e kaç adet kelime oluşturulduğu yazılıyor...
End Sub