Kelime Saydırma
Tarih
28/11/2008 22:07
Konu Sahibi
chopper07
Yorumlar
0
Okunma
1819
Konuyu Oyla:
  • Derecelendirme: 5/5 - 2 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 2 oy



chopper07
Uzman
Kullanici Avatari
Uzman
E....
1.798
29/01/2008
365
Aydın
Ofis 2003
Bugün,16:32
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


ve kodları direk formumuza yapıştıralım...

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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

™Hiç Birimiz, Hepimiz Kadar Akıllı Olamayız...®

resim
resim
resim
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  vB Bir Kelime Bir İşlem SérqeN 3 4.820 02/11/2012, 12:15 accessman


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya