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
Příspěvky odeslané z IP adresy 158.196.64.–
Milan Pavel
Milan Pavel
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
Chybu to hlásí na řádku:
asciikod = Asc(retezec(i))
konkrétně to označí "retezec"
Compille error: Expected array
Milan Pavel
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
Děkuji