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 uzere 2 adet buton

listbox1 adında list box

label1 adında birde etiket ekliyoruz....

Form yuzeyindeki duzenlemeyi aşağıda resimdeki yaparsanız daha anlaşılır olacaktır...



Şimdi kodlar aşağıda acıklandığı gibi :

Private Sub Command1_Click() 'command1 tıklandığında pencere acılıyor ve size secim sunuyor
CommonDialog1.ShowOpen
RichTextBox1.LoadFile (CommonDialog1.FileName) 'Sectiğiniz dosya text box 'ya yazılıyor
End Sub

Private Sub Command2_Click()

Data1 = RichTextBox1.Text ' kolay işlemek icin text box verisi data1 değişkenine yazılıyor

For i = 1 To Len(Data1) 'dongu 1 den başlayarak data1 icerisindeki karakter uzunluğu kadar işlem yapacak

If Mid(Data1, i, 1) = " " Then 'veri icerisinde boşluklar aranıyor ve işlem yapılıyor
If Trim(Data2) "" Then 'artık data2 icinde 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 'tum işlem tamamlandığında label1'e kac adet kelime oluşturulduğu yazılıyor...
End Sub

Kolay gelsin.
__________________