Convertir des caractères en chiffres/lettres

Question

Bonjour, y a t-il une m&#233;thode tr&#232;s simple (donc pas tr&#232;s fiable) mais qui puisse juste convertir un texte en chiffre par exemple, et faire revenir les chiffres en texte.

En fait mon truc c'est que mon prog stock des donn&#233;es dans un fichier, sauf que je ne veux pas que en lisant le fichier, on puisse y voir le texte... qu'on soit oblig&#233; d'utiliser le prog!

il y a toujours quelque chose en nous, qui nous permettra de faire quelque chose que l'on aime

spa666 · Answer

la fonction Asc(String) renvoie la premiere lettre d une chaine de caracteres. Par exemple Asc("A") = 65

avec ca tu devrais pouvoir te debrouiller pour gerer tes chiffre et tes lettres comme tu veux

tinux · Answer

Il me met Asc non d&#233;clar&#233;.. je suis en .NET, je dois faire une fonction? comment proc&#233;der merci :)

Kangourou_Nomade · Answer

C'est pas AscB plutot ?

Le Rasta fou rien, vous le savez bien

PCPT · Answer

salut, c'est bien ASC. voici une possibilité (qui n'est bien sûr aucunement sécurisé....) en VB6 Option Explicit ' Private Sub Form_Load() Const sAA As String = "Bonjour" Const sBB As String = "84.105.110.117.120" MsgBox sAA & " encodé donne :" & vbCrLf & vbCrLf & Encode(sAA) MsgBox sBB & " décodé donne :" & vbCrLf & vbCrLf & Decode(sBB) Unload Me End Sub ' Private Function Encode(ByVal sChaine As String) As String Dim i As Integer, sBuffer As String sBuffer = "" For i = 1 To Len (sChaine) sBuffer = sBuffer & Asc(Mid$(sChaine, i, 1)) & "." Next i Encode = LeftB$(sBuffer, LenB (sBuffer) - 2) sBuffer = vbNullString End Function ' Private Function Decode(ByVal sChaine As String) As String Dim i As Integer, aBuffer() As String, sBuffer As String sBuffer = "" aBuffer = Split (sChaine, ".") For i = 0 To UBound(aBuffer) sBuffer = sBuffer & Chr$( Val (aBuffer(i))) Next i Decode = sBuffer Erase aBuffer sBuffer = vbNullString End Function Coloration syntaxique automatique [AFCK] à toi d'adapter en VB.NET PCPT [AFCK]

tinux · Answer

Je ne sais pas integrer des fonctions en .NET

PCPT · Answer

&#224; part le lien msdn pour ASC en .NET, je ne peux rien faire de plus.....

spa666 · Answer

pour moi la fonction ASC fonctionne en VB.NET

tinux · Answer

tu as fait surement des imports.... ou dim asc as integer... qu'as tu fait spa666 ?

tinux · Answer

Bon j'ai pris mon mal en patience et du coup j'ai trouv&#233; un truc tout b&#234;te mais qui correspond exactement &#224; ce que je cherchais : replace("","") voil&#224; donc replace("2";"A"). bien s&#251;r je vais du coup prendre beaucoup plus de caract&#232;res mais voil&#224; ce qu'il me fallait !

PCPT · Answer

umm

donc en exemple, en supposant 2=A donc 3=B (sans parler des maj min
accents), quand tu vas devoir lire "21", &#231;&#224; sera "AZ" ou "T" .... &#224;
d&#233;cider sur le moment? en al&#233;atoire?

cette solution est incorrecte, d&#233;sol&#233; ....

tinux · Answer

Bien sur j'ai chang&#233; la configuration, je retranscrit avec d'autres lettres :)

tinux · Answer

Bon je viens de passer &#224; #Develop 2.0, il prend en charge AscW.
Quel moyen &#224; tu pris pour retourner le caract&#232;re d'un code ascii

au lieu de faire 

if ... ="97" then
    ... = "A"
Elseif ...

PCPT · Answer

quel moyen avais-je utilis&#233;?

beh tu peux... te servir de ta molette pour scroller de cette page, le code y est toujours.....



Attention ascW pour unicode!!

PCPT   [AFCK]

tinux · Answer

Ok pour le VB6, Il faut adapter en .NET

tinux · Answer

Bon, il y avait beaucoup plus simple, ASC et CHR...
Il faut juste faire une commande pour lire caract&#232;re par caract&#232;re et c'est bon !

PCPT · Answer

Asc(Mid$(sChaine, i, 1))

Chr
$(Val(aBuffer(i)))







voir mon premier post!!!

(il y a 5 jours d&#233;j&#224;....)

tinux · Answer

merci pcpt, de ton aide, je t'invite &#224; voir la source 

http://www.vbfrance.com/code.aspx?ID=35906

PCPT · Answer

si tu avais suivi les conseils que tu demandais, tu n'aurais sans doute
pas de commentaires aussi n&#233;gatifs et une note aussi... proportionnelle



pour que je regarde ton code, je t'invite &#224; venir installer .NET sur mon PC, ou &#224; installer VB6 sur le tien 



[AFCK]

tinux · Answer

Je sais, c'est ces commentaires qui m'ont fait r&#233;agir lol
Je vais placer le code, comme sa tu pourra les lire, ou alors tu t&#233;l&#233;charges #Develop. (SharpDevelop) dans google une recherche et le tour est jou&#233; !

Je suis assez fier de mon nouveau code, il permet de coder un texte en 3*30*30*30 combinaisons. je vais mettre le code

Convertir des caractères en chiffres/lettres

19 réponses

Discussions similaires