Discussion :

[sulli7086]

Bonjour, je souhaiterais créer un programme qui permettrait de modifier des caractères, mais ceci en conservant les 2 fichiers.

Je souhaiterais par exemple que ceci:

PPRINT / DIAMANTAGE EXTERIEUR.P18


devienne celà:

PPRINT / DIAMANTAGE EXTERIEUR.P7


J'ai juste pris une ligne pour exemple, mais le fichier à translater et relativement long. Le fichier à translater est un .ncl (langage APT), et si vous ne voyez pas ce qu'est c'est, faites comme ci le fichier était un .txt, je me drebrouillerai ensuite.

PS: Où faudra t-il écrire le programme que vous me proposerai afin de générer un .exe ou autre.

Je vous rappel juste qu'il me faut conserver les 2 fichiers!

Merci d'avance à tous.

[Géraldine_Cade_SAS]

Bonjour,

Je ne suis pas certaine d'avoir bien compris la problématique, mais je propose cet exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
/* création du fichier de test */
data _null_ ;
  file "c:\temp\exemple.txt" ;
  put "PPRINT / DIAMANTAGE EXTERIEUR.P18"  ;
  put "test 18"  ;
  put "test P1"  ;
  put "test P18"  ;
  run ;
 
/* lecture du fichier et création du nouveau*/
filename Ancien "c:\temp\exemple.txt" ;
filename Nouveau "c:\temp\exemple2.txt" ;
 
data _null_ ;
  infile Ancien truncover dsd lrecl=32767;; 
  file Nouveau ;
  input text $ 1-40 ;
  text = tranwrd (text, 'P18', 'P17') ;
  put text= ;
run ;

Pour lire le fichier existant, on va utiliser l'instruction INFILE, avec INPUT pour donner la liste des champs à lire.
Pour créer le fichier, on va utiliser FILE, avec un PUT pour écrire le résultat.
Pour transformer une valeur, il faudra utiliser TRANWRD, TRANSLATE ou encore SUBSTR dans certains cas. Tout dépend s'il s'agit de remplacer juste un caractère ou tout un mot.

Géraldine CADE DESCHAMPS
Consultant SAS France