Kelime Saydırma

**chopper07** · 28-11-2008, 21:07

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...

Linkleri Görebilmeniz İçin Üye Olmanız Gerekmektedir. Üye Olmak İçin Tıklayın.

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

	Hala Üye Değil misiniz? Üye Olmak Çok Kolay
Üye Olmak İçin Tıklayın !