Bonjour,

Je suis en train de développer un programme qui me permet de copier le contenu d'un fichier sql en remplacent certaines occurrences.

Exemple,
J'ai exporter ma base de donnée dans un fichier sql, à l'intérieur j'y retrouve le nom de ma Base et je souhaite remplacer ce nom par Base-temp.
J'y arrive mais le souci c'est qu'il me supprimer mes virgules et les remplaces par un retour à la ligne.

Avez vous une idée d'ou peut provenir mon problème svp?

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
 
'Fonction qui permet de remplacer les occurences
'ChRec est le mot à chercher et ChNouv le nouveau mot
 
Private Sub Modif_fichier_sql(ChRec As String, ChNouv As String)
Dim ligne As String
 
    Open Text1 For Input As #2
    Open ficbase For Output As #3
    While Not eof(2)
        Input #2, ligne$
        ligne$ = Replace(ligne$, ChRec, ChNouv, 1)
        Print #3, ligne$
    Wend
    Close #2
    Close #3
End Sub
 
'Appel de la fonction ce fait par
Modif_fichier_sql "Base", "Base-temp"