wydaje mi sie, ze uzycie funkcji len jes
Dodane przez sagyrd w dniu - 2006-02-17 12:41:13
Tekst$ = "Ciekawe ile wy tym tekscie jest róznych liter??"
x = len (Tekst$)
MsgBox x |
sorki nie doczytalem, ze chodzi o rozne
Dodane przez sagyrd w dniu - 2006-02-17 12:42:21
 |
Troszke na piechotke...
Dodane przez ViDoQuE w dniu - 2007-06-02 23:15:18
Dim tekst,wynik as String
Dim ilosc_wystapien(255) as Integer
tekst ="Ciekawe ile wy tym tekscie jest róznych liter??"
'petla inkrementujaca licznik odpowiedniego znaku
For i = 1 to len(tekst) step 1
ilosc_wystapien(chr$(mid(tekst,i,1)))= ilosc_wystapien(chr$(mid(tekst,i,1))) +1
next i
'petla wypisująca wartości poszczególnych znaków do pami?ci
for i = 1 to 255
If ilosc_wystapien(i) > 0 then
wynik = wynik & chr(10) & i & ": " & ilosc_wystapien(i)
End If
next i
'wyświetlenie wyniku
Msgbox wynik
'ViDoQuE |
Troszke na piechotke ... tym razem bez M
Dodane przez ViDoQuE w dniu - 2007-06-02 23:42:06
Dim tekst, wynik As String
Dim i, ilosc_wystapien(255) As Integer
tekst = "asfd DDDL:Kjhlhjga234lhjg"
Dim l
'funkcja dostepna w Visual Basic 2005 .Net
l = tekst.ToCharArray()
'zliczanie w tablicy wystapie?
For i = 0 To Len(tekst) - 1 Step 1
ilosc_wystapien((Asc(l(i)))) = ilosc_wystapien((Asc(l(i)))) + 1
Next i
'przepisanie wyników do zmiennej
For i = 0 To 255 Step 1
If ilosc_wystapien(i) > 0 Then
wynik = wynik & Chr(i) & ": " & ilosc_wystapien(i) & Chr(10)
End If
Next i
'wyświetlenie wyników
MsgBox(wynik) |
