Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

string u niz ASCII koda ???

[es] :: Visual Basic 6 :: string u niz ASCII koda ???

[ Pregleda: 4027 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Wlada

Član broj: 14344
Poruke: 171
*.ptt.yu



Profil

icon string u niz ASCII koda ???30.01.2004. u 11:06 - pre 245 meseci
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
 
Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.yubc.net

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: string u niz ASCII koda ???30.01.2004. u 11:21 - pre 245 meseci
Pogledaj Asc, Len i Mid funkcije
 
Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
195.222.59.*

Sajt: www.icentar.ba


+2 Profil

icon Re: string u niz ASCII koda ???28.10.2004. u 23:11 - pre 236 meseci

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
zxz
 
Odgovor na temu

filjo

Član broj: 17551
Poruke: 136
*.co.yu.



+1 Profil

icon Re: string u niz ASCII koda ???28.10.2004. u 23:36 - pre 236 meseci
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
 
Odgovor na temu

[es] :: Visual Basic 6 :: string u niz ASCII koda ???

[ Pregleda: 4027 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.