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
string u niz ASCII koda ???
Zaključano
Zakačeno
Pogledaj Asc, Len i Mid funkcije
Potpis
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
Potpis
zxz
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:
@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
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