[ Wlada @ 30.01.2004. 11:06 ] @
Kako da iz TextBox-a uzmem string npr. Poster, i da ga prebacim u niz brojeva koji odgovaraju ASCII kod-u?

P o s t e r <==> 80,111,115,116,101,114
[ mladenovicz @ 30.01.2004. 11:21 ] @
Pogledaj Asc, Len i Mid funkcije
[ izonic @ 28.10.2004. 23:11 ] @

Function AscStr(Str As String)
Dim DuzS As Integer
Dim I As Integer
Dim S As Integer

DuzS = Len(Str)
For I = 1 To DuzS
S = Asc(Mid(Str, I, 1))
AscStr = AscStr & "," & S
Next I
End Function
[ filjo @ 28.10.2004. 23:36 ] @
Jeste da je tema stara, i Wlada je verovatno nasao odgovor, ali moze da koristi.
@izonic
Program ti bas ne radi kako treba posto ispred prve cifre stavlja zarez, ali nema veze to se lako popravi.

Evo jednog rekurzivnog:
Code:

Function a2(str As String) As String
    If str = "" Then
        a2 = ""
    Else
        a2 = Asc(Left(str, 1)) & IIf(Len(str) > 1, ",", "") & a2(Right(str, Len(str) - 1))
    End If
End Function