modification fichier txt

modification fichier txt - XML/XSL - Programmation

Marsh Posté le 10-02-2006 à 12:42:46    

bonjour
j ai besoin d'aide!!!!!!!!!!!!
je desire remplacer dans un fichier part (piece catia) le nom de ma part (les proprietes)
pour cela j ai trouver le moyen d ouvrir ma part,et d enregistre manuellement mes modifs grace a notepad2
ce pendant je desire automotise cela grace a vba (excel)
en creant un programme qui remplace un mots 'ex:test' par 'totox' passant par notepad2
 
please help me  
 
j ai essaye avec ca  
mais mon fichier corronpue
 
Const forreading = 1
Const forwriting = 2
Set objfso = CreateObject("scripting.filesystemobject" )
Set objfile = objfso.opentextfile("C:\Documents and Settings\GUS007\Bureau\test.catpart", forreading)
 
strtext = objfile.readall
objfile.Close
strnewtext = Replace(strtext, "tests", "totox" )
 
Set objfile = objfso.opentextfile("C:\Documents and Settings\GUS007\Bureau\test.catpart", forwriting)
objfile.writeline strnewtext
objfile.Close
End Sub

Reply

Marsh Posté le 10-02-2006 à 12:42:46   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed