Discussion :

[ULRECH]

Bonjour,

je bloque sur un code et je n'arrive pas à m'en sortir si quelqu'un pouvais me donner un coup de main.

Merci d'avance

J'ouvre un fichier .txt qui est un masque d'impression. Dans ce fichier je recherche des champs pour les remplacer par mes variables.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
dim chemin_source
dim var_SN_palette
Set MyObject = CreateObject("Scripting.FileSystemObject")
Set MyFile = MyObject.GetFile(chemin_source)
Set OpenFile = MyFile.OpenAsTextStream(1)
'Recherche de la ligne
Do While OpenFile.AtEndOfStream = False
CurrentLine = OpenFile.ReadLine
If InStr(CurrentLine, "Variable_SN") <> 0 Then OpenFile.WriteLine var_SN_Palette
If InStr(CurrentLine, "Designation") <> 0 Then OpenFile.WriteLine ""
Loop

L'erreur d'exécution s'effectue quand quand la données "trouve la données "variable_SN" sur la commande OpenFile.WriteLine var_SN_Palette avec comme message Mode d'accées au fichier incorrect.

Après se posera le question d'enregistrer le fichier sous un autre non que celui de la source

[ProgElecT]

Salut

OpenAsTextStream([iomode, [format]])

L'argument iomode peut prendre les valeurs suivantes :

Constante Valeur Description
ForReading 1 Ouvre un fichier en lecture seule. Vous ne pouvez écrire dans ce fichier.
ForWriting 2 Ouvre un fichier en mode écriture. Si un fichier portant le même nom existe, son contenu antérieur est écrasé.
ForAppending 8 Ouvre un fichier et écrit à la fin de celui- ci.

Tu ne peux faire la lecture et l'écriture dans le même temps.
Pour avoir Script56.CHM, voir ICI

Ouvres le fichier en lecture avec un objet MyFile en lecture que tu mes dans une variable, ferme MyFile.
Fais ta cuisine , avec la fonction Replace() depuis ta variable,
réouvre sous le même nom en écriture, remplis le avec ta variable.

La bible du programmeur MSDN en français