Code Ascii comment faire????

apprentieVB -  
 victor -
Bonjour.

J'aurais besoin d'un coup de main.
Je voudrais savoir comment est-ce que je peux changer un text en code ascii
et classer les codes ascii par ordre croissant de frequence d'apparition? ( En visual basic)

Merci.

2 réponses

  1. Claude Victor
     
    Pour convertir un texte en code ascii, on peut analyser chaque ligne avec mid(ligne,position,1) et convertir en ascii.
    exemple:
    dim ligne as string,ligneascii as string
    dim i as integer
    for i=1 to len(ligne)
    ligneasci=ligneascii & format(chr(mid(ligne,i,1),"00")
    next
    msgbox ligneascii
    0
  2. Claude Victor
     
    excusez-moi j'ai écrit trop vite la constitution de la ligne ascii

    For i = 1 To Len(ligne)
    ligneascii = ligneascii & Format(Asc(Mid(ligne, i, 1)), "000")
    Next
    MsgBox ligneascii

    on retrouve le code ascii de chaque caractere toutes les 3 positions
    0
    1. victor
       
      bonjour
      petit blème
      peux tu m'indiquer un site de code ascii
      0