Le + simple, des convertisseur texte vers ascii (en 12 lignes !)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 629 fois - Téléchargée 38 fois

Contenu du snippet

Voila je sais pas si cette source est deja sur le site, surement que oui, dans se cas désoler car il ne me semble pas l'avoir vu ! (Jai cherché...)
Je met cette source pour tt le monde bien sur mais en particulier pour ceux qui s'embetait a faire une liste entiere vraiment tres longue des corespondence entre Texte et ASCII...
Mais c'est nullement necessaire car VB nous donne une fonction deaj toute prête qui converti un caractère en son code ASCII, alors pourquoi s'emerder ????
Voila c'est tres simple, trés court mais je l'espert trés utile.
PS: METEZ CE CODE DIRECTEMENT DANS UN FICHIER TEXTE QUE VOUS ENREGISTREREZ AVEC l'EXTENSION ".frm" (ceci vous evite de faire une interface, c'est pas pour 2 minutes mais bon.)

Source / Exemple :


VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "TEXT TO ASCII (By OverDarck 2002)"
   ClientHeight    =   2655
   ClientLeft      =   45
   ClientTop       =   315
   ClientWidth     =   4635
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2655
   ScaleWidth      =   4635
   StartUpPosition =   2  'CenterScreen
   Begin VB.CheckBox Check1 
      Caption         =   "Mode VB"
      Height          =   255
      Left            =   120
      TabIndex        =   4
      Top             =   2220
      Width           =   1995
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Quitter"
      Height          =   375
      Left            =   3480
      TabIndex        =   3
      Top             =   2160
      Width           =   1035
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Go"
      Height          =   375
      Left            =   2400
      TabIndex        =   2
      Top             =   2160
      Width           =   1035
   End
   Begin VB.TextBox Text2 
      Height          =   1515
      Left            =   120
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   1
      Top             =   540
      Width           =   4395
   End
   Begin VB.TextBox Text1 
      Height          =   315
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   4395
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim I As Long
Text2.Text = vbNullString
If Check1.Value = 1 Then
    For I = 0 To Len(Text1.Text) - 2
        Text2.Text = Text2.Text & "Chr(" & Asc(Mid(Text1.Text, I + 1, 1)) & ") "
    Next I
    Text2.Text = Text2.Text & "Chr(" & Asc(Right(Text1.Text, 1)) & ")"
Else
    For I = 0 To Len(Text1.Text) - 1
        Text2.Text = Text2.Text & Asc(Mid(Text1.Text, I + 1, 1)) & " "
    Next I
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then Call Command1_Click
End Sub

Conclusion :


Voila, pour toute remarques critiques (a part sur mon aurtografe) n'hesitez surtout pas.
A bon entendeurs bonne prog a ts @++

A voir également

Ajouter un commentaire

Commentaires

cs_Urgo
Messages postés
780
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
16 avril 2009
1 -
lol le menteur ! Y'a au moins 20 lignes !

Pour avoir menti : 1/10
cs_Kirua
Messages postés
3006
Date d'inscription
dimanche 14 avril 2002
Statut
Membre
Dernière intervention
31 décembre 2008
-
hmmm, pas convaincu ;)
OverDarck
Messages postés
116
Date d'inscription
jeudi 12 juillet 2001
Statut
Membre
Dernière intervention
23 juin 2005
-
12lignes :

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
cs_blabla
Messages postés
112
Date d'inscription
mercredi 28 août 2002
Statut
Membre
Dernière intervention
13 mars 2004
-
arf .. pk pas metre un .zip ?
cs_Kirua
Messages postés
3006
Date d'inscription
dimanche 14 avril 2002
Statut
Membre
Dernière intervention
31 décembre 2008
-
j'ai bea ucompter, j'arrive pas à 12 ... :)

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.