MàJ FichierRésolu

Question

Bonjour,
Alors voila mon problème...
Tout d'abord je ne connaîs pas grand chose en prog, je ne fais que du HTML.
Je voulais faire un truc qui me permet de changer une valeur dans un fichier texte.
Voila l'allure de mon fichier

...
Text identifiable = XXX
...

XXX étant la valeur que je veux remplacer et "Text identifiable" est toujours le même. Je prend cette valeur dans mon tableau excel ainsi que le nom du fichier. Mais pour ces deux éléments je vais me débrouiller...
Voilà, merci.

boufcai · Accepted Answer

C'est bon j'ai fais ce que je voulais.


Un grand merci à jrivet et MPi.
Chô chô

cs_MPi · Answer

Salut,

De quel genre de fichier parles-tu ? fichier texte, binaire, Excel ???


Le principe serait de mettre le texte dans une variable String et faire un Replace dans cette variable

strVariable = LeTexteàModifier

strVariable = Replace(strVariable, "XXX", "Text identifiable")

MPi

jrivet · Answer

Salut,
Regarde du cote de l'API 

Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Il faut simplement que ton fichier soit au "format" INI
Mofiie ton fichier comme ceci

[Valeurs]
....
Text identifiable = XXX
...
Dans ton Cas elle s'utilise comme ceci:

Call WritePrivateProfileString("Valeurs", "Text Identifiable", "XXX", CheminFichier)

@+, Julien

boufcai · Answer

Halo halo,


il s'agit d'un fichier texte. 


Je vois deja ce que je faire avec les infos


Merci

boufcai · Answer

Salut,


Je ne peux pas mettre mon fichier en ini, car je veux faire une boucle sur plein de fichiers (environ 500...).
Je regarde les fonctions de l'API.
merci

jrivet · Answer

Fais toi un petit Bout de code qui Ecrit [Valeurs] Dans le debut de chaque fichier.
et ensuite utilise WritePrivateProfileString
@+, Julien

boufcai · Answer

Ok j'essaye...
merci encore

boufcai · Answer

Si vous avez des p'tits exemples...


Chô

jrivet · Answer

Salut, Ce code dvrait foncitonner pour Injecter [Valeurs] a chaque debut de fihcier. Place simplement tout les fichiers a modifier dans le meme repertoire Dim Fso As New FileSystemObject Dim Fi As File Dim Fo As Folder Dim TStream As TextStream Dim Contenu As String Set Fo = Fso.GetFolder(CheminDURep) For Each Fi In Fo.Files 'on verifie l'extension du fichier (tu pêux leurs mettre n'importe quelle extension If Fso.GetExtensionName(Fi.Path) = "txt" Then 'ON ouvre le fichier en lecture Set TStream = Fso.OpenTextFile(Fi.Path, ForReading) 'On place tout le contenu dans une chaine de caractere Contenu = TStream.ReadAll Call TStream.Close 'Place [Valeurs]" au début du fichier Contenu = "[Valeurs]" & vbCrLf & Contenu 'On ouvre le fichier en écriture Set TStream = Fso.OpenTextFile(Fi.Path, ForWriting) 'on ecrit le nouveau contenu Call TStream.Write(Contenu) 'Et onferme Call TStream.Close End If Next Set Fo = Nothing Set Fso = Nothing Set Fi = Nothing Set TStream = Nothing Coloration syntaxique automatique [AFCK] @+, Julien

boufcai · Answer

Ok, merci. Je pense que cela va m'aider

jrivet · Answer

> boufcai: J allais oublie il te faut ajouter la référence Microsoft Scripting Runtime sinon il ne reconnaitra pas les objet FileSytemObject, File, Folder et TextStream

@+, Julien

boufcai · Answer

C'était fait. Merci quand même.

MàJ Fichier

12 réponses

Votre réponse

Discussions similaires