Conversion ebcdic / ascii (et inversement)

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

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.