Anonymní profil Milan Pavel – Programujte.com

To liborb :
no ve visual studiu 2008 to funguje, ale bohužel ve vb6 ne.
znaky sem přepsal na integer to sem fakt chtěl
i=i+1 je hovadina, to tam nesmí být vůbec, jinak za 4 a napíše 2 atd...
s tím výpisem se zkusím nějak poprat.
Nechám to do večera odpočinout a proberu to s kamošem, jestli mu to jde. (Kvůli němu sem stahoval a instaloval VB6)
Zatím děkuji za pomoc a pravděpodobně se ještě ozvu

To liborb :
Tady je upravený kód:

Private Sub Command1_Click()



Dim retezec As String

Dim znaky(127) As String

Dim asciikod As Integer

Dim delka As Integer

retezec = Text1.Text

delka = Len(retezec)



Dim i As Integer

For i = 0 To delka - 1



asciikod = Asc(retezec(i))

znaky(asciikod) = znaky(asciikod) + 1

i = i + 1



Next



i = 0

Dim cetnost As Integer



For i = 0 To 127

cetnost = znaky(i)

If cetnost > 0 Then



Label1.Text = Chr(i) & cetnost & Chr(13)



End If

i = i + 1

Next



End Sub

asciikod = Asc(retezec(i))

To liborb :
Díky za pomoc, myslím, že po logické stránce by to mohlo být dobře, ale neověřím to, protože mi to háže chyby a já nevím co s tím.
Tady je co jsem vykoumal:

Private Sub Command1_Click()



Dim retezec As String

Dim znaky(127) As String

Dim asciikod As Integer



retezec = Text1.Text

delka = Len(retezec)



Dim i As Integer

For i = 0 To delka - 1



asciikod = Asc(retezec(i))

znaky(asciikod) = znaky(asciikod) + 1

i = i + 1



Next



i = 0

Dim cetnost As Integer



For i = 0 To 127

cetnost = znaky(i)

If cetnost > 0 Then



Print Chr$(i) & cetnost



End If



Next



End Sub