Conversion ebcdic / ascii (et inversement)

Soyez le premier à donner votre avis sur cette source.

Vue 24 138 fois - Téléchargée 719 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
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
22 mars 2007 à 10:05
Je viens d'ajouter un module de classe.
la conversion est BEAUCOUP plus rapide désormais.
cs_revo
Messages postés
70
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
7 juin 2006

2 déc. 2004 à 10:47
super, elle est fonctionnelle ainsi.
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
1 déc. 2004 à 22:01
Corrigé... (utilisation de Asc au lieu de AscW)
cs_revo
Messages postés
70
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
7 juin 2006

1 déc. 2004 à 18:18
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
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
29 nov. 2004 à 22:32
WideCharsToByte doit aussi faire l'affaire (CP_OEMCP)

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.