Bonjour tout le monde , je vien poster ici car , j'ai un petit problème et que je n'ai rien trouvé qui pourrait m'aider dans la FAQ ou autre .
Alors , j'ai un petit logiciel , qui au lancement , utilise la fonctione ChangeWords
Donc cette fonction , sert à remplacer une chaine de caractère "sWordToRemove" pas une chaine de caractère "sWordToChange".
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
22
23
24
25
26
27
28
29
30
31 FONCTION CHANGEWORDS Private Function ChangeWords(sWordsToRemove As String, sWordsToChange As String, sFile As String) As Boolean If Dir(sFile, vbSystem Or vbHidden) = vbNullString Then ChangeWords = False Else ' ouvre le fichier Dim FF As Integer, sBuffer As String FF = FreeFile Open sFile For Input As #FF sBuffer = Input(LOF(FF), 1) Close #FF ' ligne à changer existe? Dim lPos As Long lPos = InStr(1, sBuffer, sWordsToRemove) If lPos = 0 Then ChangeWords = False Else ' on découpe Dim sFirst As String, sLast As String sFirst = Left$(sBuffer, lPos - 1) sLast = Right$(sBuffer, Len(sBuffer) - lPos - Len(sWordsToRemove) + 1) ' on écrit FF = FreeFile Open sFile For Output As #FF Print #FF, sFirst & sWordsToChange & sLast Close #FF ChangeWords = True End If End If End Function
Donc jusque la , tout vas bien.
Ensuite , vien le problème : J'aimerais appliquer ce code , sur plusieurs fichier , je m'explique.
Voila mon code :
J'aimerai , que la valeur "Enabled" se trouvant dans le fichiet texte "test.txt" soit modifié , mais , j'ai plusieurs test.txt , il y en a un se trouvant dans "c:/TEST/TEST/1" un dans "c:/TEST/TEST/2" etc ... et j'ai pensé au joker ... mais malheureusement , cela ne fonctionne pas , il me met une erreur : Incorrect syntax a la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Dim Desac As Long For Desac = 1 To 50 Step 1 ChangeWords "enabled", "disabled", "c:/TEST/TEST/" & * & "test.txt" Next Desac
Donc j'ai essayé de modifier ça en :
Code : Sélectionner tout - Visualiser dans une fenêtre à part ChangeWords "enabled", "disabled", "c:/TEST/TEST/" & * & "test.txt"
Mais biensur , ça ne fonctionne pas : Bad filename , il ne trouve pas le fichier , donc , pourriez vous me proposer un solution adéquate à mon problème , ou me proposer un morceau de code qui fonctionne ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part ChangeWords "enabled", "disabled", "c:/TEST/TEST/" & "*" & "test.txt"
En tout cas , je remerci ceux qui auront lu le poste en entier
Cordialement ,
MegaBigBoss
Partager