Discussion :

[alainpinpin]

bonjour,

je cherche un moyen de remplacer des caractères d'un fichier xml.

en fait, je crée par macro mon fichier xml. Seulement, dans toutes les lignes je dois avoir les caractères "<" et ">". seulement, lorsque mon fichier est créé, vba les transforme en "&lt;" et "&gt;"

alors je voulais savoir s'il étais possible de réouvrir le fichier xml et de remplacer tous les "&lt;" en "<", et tous les "&gt;" en ">"

merci d'avance

Alain

[alainpinpin]

Voilà, j'ai enfin trouvé la solution :

Code :

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

1
2
3
4
Private Sub Form_Load()
    'C:\test.xml contient le texte ou se trouve les caractères à changer
    Call ChangeWords("&lt;", "<", "C:\test.xml")
End Sub

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
 
Private Function ChangeWords(sWordsToRemove As String, sWordsToChange As String, sFile As String) As Boolean 
    If Dir(sFile, vbSystem Or vbHidden) = vbNullString Then 
'       fichier existe?
        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

voila voila... J'espere que ca aidera quelqu'un pour la suite