Lecture/ecriture de données dans des fichiers

Sgane, le jeudi 21 février 2008 à 17:49:42

Bonjour,

J'aurais besoin d'une aide en programmation.

Dans le cadre de mon travail, je doit reprendre une grande série de fichier pour en modifié une ligne.

Ce sont des fichiers de commande numérique pour un atelier, et la norme DSTV qui régis ces fichier ne place pas la valeur que je souhaiterais et je doit donc la remplacer à la main, quand il y en à 5 ou 6, ça va, mais mes projets finis donnent en moyenne une 50aine de fichiers...

Un vrai calvaire!!!

Mais je sais demander au logiciel de me faire un tableau de 2 colonnes avec en 1er le nom du fichier (sans extension, mais cela sera toujours un .nc1) et en 2 l'information à recopier. Dans un fichier .xsr ouvrable avec un notepad.

Donc, j'aimerais à partir d'un tableau qui comporte 2 colonnes, du type:

------------------------
CV25 ; ABC
FP19 ; ABC
GS1 ; BCD
AP12 ; BCD
etc
...
...
...
------------------------

ouvrir les fichiers qui se nomme comme le premier champ pour aller y remplacer un terme (qui se trouve à la 3éme ligne exactement) par le deuxième champ du tableau.

Dans mon exemple ci dessous, ouvrir à partir de la liste le fichier CV25.nc1 et aller y remplacer 3496 par la valeur ABC reprise du tableau.

-----------------------
ST
** CV25.nc1
3496
1
A1
A1
E24-2
2
PL220*10
B
-----------------------

ce qui donnerais un fois fait :

-----------------------
ST
** CV25.nc1
ABC
1
A1
A1
E24-2
2
PL220*10
B
-----------------------

Et ainsi de suite jusqu'a la fin de la liste.

Je sais pas si c'est assez clair??

Ensuite, créer des répertoire relatif à ces textes remplacés ( ABC et BCD dans l'exemple) et trier les fichier pour les distribuer dans chaque répertoire.

Si quelqu'un pouvait me venir en aide, il m'ôterait une très grosse (énorme même...) épine du pied!

Merci d'avance.

Raynald.

Configuration: Windows XP
Firefox 2.0.0.12

Répondre à Sgane Signaler ce message aux modérateurs Aller au dernier message

1Ce message vous semble utile, votez !
Ce message ne vous semble pas utile, votez !
Signaler ce message aux modérateurs

carbon3, le jeudi 21 février 2008 à 19:49:15

slt
si tu place le fichier.vbs dans le répertoire qui contient les fichier.nc1
tu obtiendras un répertoire contenant les copies modifiées de tout les fichiers.nc1
Dans un deuxième temps, je peux coder le remplacement des originaux par les copies.
Mais, comme je l'ai dit, pour l'instant c'est fonctionnel si tous les fichiers.nc1 sont dans le même répertoire.
Sinon, je vais avoir besoin de plus d'info sur la hierarchie ;-p

voici le code à insérer dans un fichier modifier_nc1.vbs

dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
Dim modifier: set modifier = FSO.opentextfile("modif.xsr",1)
set tempfold = FSO.CreateFolder("nc1_copy")
do while not modifier.atendofstream
lect = modifier.readline
separateur=InStr(lect, ";")
dafile=Mid(lect,1,separateur-2)
dafile=dafile & ".nc1"
damod=Mid(lect,separateur+2)
set infile = FSO.opentextfile(dafile,1)
	
set dacopy = FSO.opentextfile(tempfold+"\"+dafile,8,true)
nbrline=0
	
do while not infile.atendofstream
readline = infile.readline
nbrline=nbrline+1
if nbrline=3 then
dacopy.writeline(damod)
else
dacopy.writeline(readline)
end if
loop
loop
modifier.close
infile.close
dacopy.close
msgbox "~=. Modifications terminées  .=~",64,"~= NC1 Modif =~"

Ensuite, pour la création des répertoire relatifs aux modifs, sont-ce les copies modifiées des fichiers.nc1 que tu veux envoyer dedans ?
Il reste toujours la question de savoir où créer les répertoires...