LE + SIMPLE, DES CONVERTISSEUR TEXTE VERS ASCII (EN 12 LIGNES !)
cs_Kirua
Messages postés
3006
Date d'inscription
dimanche 14 avril 2002
Statut
Membre
Dernière intervention
31 décembre 2008
-
7 déc. 2002 à 02:16
cs_Urgo Messages postés 780 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 16 avril 2009 - 2 mai 2003 à 19:00
cs_Urgo Messages postés 780 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 16 avril 2009 - 2 mai 2003 à 19:00
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/5280-le-simple-des-convertisseur-texte-vers-ascii-en-12-lignes
https://codes-sources.commentcamarche.net/source/5280-le-simple-des-convertisseur-texte-vers-ascii-en-12-lignes
2 mai 2003 à 19:00
Pour avoir menti : 1/10
8 déc. 2002 à 14:41
7 déc. 2002 à 18:13
1 Dim I As Long
2 Text2.Text = vbNullString
3 If Check1.Value = 1 Then
4 For I = 0 To Len(Text1.Text) - 2
5 Text2.Text = Text2.Text & "Chr(" & Asc(Mid(Text1.Text, I + 1, 1)) & ") "
6 Next I
7 Text2.Text = Text2.Text & "Chr(" & Asc(Right(Text1.Text, 1)) & ")"
8Else
9 For I = 0 To Len(Text1.Text) - 1
10 Text2.Text = Text2.Text & Asc(Mid(Text1.Text, I + 1, 1)) & " "
11 Next I
12 End If
celle la ne compte pas....
13 End
14 If KeyAscii = vbKeyReturn Then Call Command1_Click
et le reste c'est lheader.
ca qui nous fait bien 12 ligne
et si tu le simpli + tu peut faire sa en juste 3 ligne
7 déc. 2002 à 11:32
7 déc. 2002 à 02:16