Remplacer des caractères ascii dans un document word

Signaler
Messages postés
3
Date d'inscription
samedi 30 octobre 2010
Statut
Membre
Dernière intervention
17 octobre 2012
-
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
Bonjour à tous!

J'ai une demande très particulière! Quand j'avais 20 ans j'ai codé en Pascal des fichiers textes en ajoutant 194 à chaque caractère ascii. Chaque fichier texte correspondait à une journée de ma vie...oui oui un journal quoi. Je les ai codé pour que personne ne puisse les lire, et j'avais fait un petit prog en pascal également pour les décoder.
Bon...maintenant, quelques 20 ans plus tard je suis retombé sur ces fichiers textes sauf qu'évidement ils sont codés, et le prog de décodage que j'avais écrit sous DOS en pascal ne fonctionne plus sous windows 7.

Donc comment je peux faire pour décoder chaque caractère, en ajoutant donc 194 à la valeur ascii de chaque caractère, sous word? Un "replace" serait hyper long et fastidieux...J'ai très envie de relire toutes les conneries que j'ai pu écrire à l'époque!
Merci!

2 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
74
Salut

Si ce sont des fichiers purement texte, il te suffit de :
- Ouvrir le fichier (n°1) à lire :
Open
- Ouvrir un fichier (n°2) à écrire qui sera la traduction :
Open aussi
- Faire une boucle de lecture classique :
Do-Loop avec Not(EOF(Fichier n°1))
- Lire caractère par caractère du fichier 1 :
Dim sChar As String * 1
et l'instruction Get #N°1, , sChar
- Faire le décalage dont tu parles :
Instructions ASC et CHR
- Ecrire le résultat dans le fichier n°2 :
instruction Put #N°1, , sCharCorrigé
- En fin de boucle, refermer les deux fichiers :
Close

Voilà, tu as tous les mots clé pour faire des recherches dans l'aide et sur le site.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
74
Coquille :
Put #N°2
pas 1