Remplacer des caractères ascii dans un document word
gibbonfute
Messages postés3Date d'inscriptionsamedi 30 octobre 2010StatutMembreDernière intervention17 octobre 2012
-
12 févr. 2011 à 11:53
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 2015
-
12 févr. 2011 à 15:33
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!
A voir également:
Remplacer des caractères ascii dans un document word
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 12 févr. 2011 à 15:32
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)