Conversion ebcdic / ascii (et inversement)

Soyez le premier à donner votre avis sur cette source.

Vue 23 913 fois - Téléchargée 710 fois

Description

Fonctions de conversion entre ASCII et EBCDIC

deux version possibles :
- EbcdicAscii.bas qui contient des fonctions utilisant les instructions VB standard
- CEbcdic.cls qui est bien plus rapide. On 'map' en fait nos chaines de caractères sur des tableaux de bytes, directement, ce qui permet une manipulation bien plus rapide qu'avec des Mid$ (et pas besoin de dupliquer nos données comme le ferait StrConv).

Source / Exemple :


'# MODULE :
sBuffer = Ebcdic2Ascii("ñðó@ðñòòôð÷÷ðóùùõðóóññññ@@@@@ðôðøóòððððöðððñ")

'# CLASSE :
Dim e2a As CEbcdic
    Set e2a = New CEbcdic
    sBuffer = e2a.Ebcdic2Ascii("ñðó@ðñòòôð÷÷ðóùùõðóóññññ@@@@@ðôðøóòððððöðððñ")

Conclusion :


Je vous conseille l'utilisation de la classe...

la technique du hack de tableaux est la même que celle utilisée ici :
http://www.vbfrance.com/codes/RGB-VICE-VERSA-TRES-RAPIDE_40189.aspx

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
Je viens d'ajouter un module de classe.
la conversion est BEAUCOUP plus rapide désormais.
Messages postés
70
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
7 juin 2006

super, elle est fonctionnelle ainsi.
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
Corrigé... (utilisation de Asc au lieu de AscW)
Messages postés
70
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
7 juin 2006

C'est bizarre quand on exécute Ascii2Ebcdic puis Ebcdic2Ascii ca plante... ou pareil quand on appelle 2 fois de suite la même fonction
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
WideCharsToByte doit aussi faire l'affaire (CP_OEMCP)
Afficher les 10 commentaires

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.