Soyez le premier à donner votre avis sur cette source.
Snippet vu 8 212 fois - Téléchargée 37 fois
Private Sub Command1_Click() Text2 = "" For i = 1 To Len(Text1) 'i = 1 -> Nbre de lettres dans Text1 Text2 = Text2 + Str(Asc(Mid(Text1, i, 1))) 'Transfore une lettre de Text1 en ASCII Next i 'Passe à la lettre suivante End Sub Private Sub Command2_Click() On Error Resume Next 'En cas d'erreur il passe dessus (les erreurs possibles sont stupides donc pas besoin de developper plus) Text2 = "" 'ca devient + dur après Text01 = LTrim(Text1) 'Il enleve les espaces devant le texte deb = 1 'le debus est 1 (le 1er caractère) lon = Len(Text01) 'lon = la longeur du Text1 fin = InStr(deb, Text01, " ") 'Cherche la position du premier espace dans Text1 If fin = 0 And deb < lon Then fin = lon + 1 'Si il n'y a pas d'espace à la fin, donne la position vide àpres la fin du Text1 10 Text2 = Text2 + Chr(Mid(Text01, deb, fin - deb)) 'Signet '10' : Text2 = Ce qui est déja dans Text2 + Lettre suivante de Text1 20 deb = fin + 1 'Signet '20' : Va voir le caractère suivant fin = InStr(deb, Text01, " ") 'Cherche la position du prochain espace dans Text1 If fin = deb Then GoTo 20 'Si il y a plusieurs espaces entre les codes ASCII il va au signet 20 (Va voir le caractère suivant) If fin = 0 And deb < lon Then fin = lon + 1 'Si il n'y a pas d'espace à la fin, donne la position vide àpres la fin du Text1 If fin <> 0 Then GoTo 10 'Si la prochaine lettre existe il va au signet 10 sinon il s'arrete End Sub 'C'est Tordu mais c'ets comme ca et s'est bien expliqué :p, 'Merci a mon père qui m'a aider pour changer l'ASCII en Texte
14 sept. 2004 à 10:43
Si QQ1 a un tuyau ...Merci
Example a traduire :"
"
6 nov. 2003 à 12:43
6 août 2003 à 15:09
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.