string u niz ASCII koda ???

Odgovori Nova tema

3 odgovora
5.396 pregleda

string u niz ASCII koda ??? 30.01.2004. u 11:06 · pre 276 meseci #1

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

Re: string u niz ASCII koda ??? 30.01.2004. u 11:21 · pre 276 meseci #2

Pogledaj Asc, Len i Mid funkcije

Potpis

Blue Man Group

Re: string u niz ASCII koda ??? 28.10.2004. u 23:11 · pre 267 meseci #3

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

Re: string u niz ASCII koda ??? 28.10.2004. u 23:36 · pre 267 meseci #4

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

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Srodne teme