Convertir chaine de charactere en son code ascii

Soyez le premier à donner votre avis sur cette source.

Vue 3 291 fois - Téléchargée 179 fois

Description

Suite a un message sur le forum, je post cette petite source qui en aidera surement...
Sur ce bonne prog a tous...
A++

DeAtH_-_CrAsH [;)]

Source / Exemple :


Private Sub Command1_Click()
x = Text1.Text
i = 1
While i <= Len(x)
lettre = Mid$(x, i, 1)
tout = tout & Asc(lettre)
i = i + 1
Wend
Text2.Text = tout
End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

victor110
Messages postés
86
Date d'inscription
vendredi 20 octobre 2006
Statut
Membre
Dernière intervention
13 mai 2010
-
merci pour ton code
nairolf_88
Messages postés
11
Date d'inscription
mardi 13 avril 2004
Statut
Membre
Dernière intervention
8 mars 2006
-
voici un methode d'apres moi equivalante (mise a part le fait que j'ajoute un <<espace>> apres la convertion de chaque caractére pour facilité la lisibilité) en moins de ligne :

dim i as integer
dim chaine as string
dim result as string

For i = 1 To Len(chaine)
result = result & Asc(Right(Left(chaine, i), 1)) & " "
Next i


@++ nairolf
vampiiire
Messages postés
7
Date d'inscription
jeudi 6 juin 2002
Statut
Membre
Dernière intervention
14 janvier 2003
-
deathcrash > euh t censé être drole en disant ça?? :-/
DeAtHCrAsH
Messages postés
2674
Date d'inscription
vendredi 25 janvier 2002
Statut
Membre
Dernière intervention
6 février 2013
-
Alors celle la elle est royal ... j'ai l'impression de parler avec un sourd et avec un non pensant ... Si c'est pas pire ...

Almandric :
"Ben tu vois, moi la journée je visite ce site histoire de voir ceux qui déposent des sources pour rien. "
===> Le glandeur de 1ere qui n'a rien a faire de ces journées et qui ose critiquer ! Si c'est pas du beau ca !!!

Re Almandric :
" [...] polluer cette zone avec une source à 2 balles.... [...] "
====> Allez trouver un rapport ...!!!

CONCLUSION Sur Mr Almandric :
- Personne presentant des troubles mentales ....
- Divagation dans ces propos
- Et la meilleure de toute : il est ECOLOGISTE !!!
REMEDE(S) :
Il n'y en a pas .. A atteint le stade finale de la debilité... Cas incurrable !
APPEL AUX TRES BON CODEURS :
Si quelqu'un fort en programmation ( voir hyper super fort ) peut essayer de coder un cerveau a Mr Almandric, qu'il le fasse .... Son geste sera recompenser.....

Merci par avance

DeAtH_-_CrAsH =)
celiphane
Messages postés
466
Date d'inscription
samedi 16 février 2002
Statut
Membre
Dernière intervention
20 avril 2007
-
merci almandric

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.