Discussion :

[zidenne]

Bonjour
je veux avec VB une Fichíer XML modifier:
le fichier existe deja et je veux ajouter un Element au milieux:
j´ai fais une image de mon Xml fichier et l´endroit de l´ajout.
je veux ajouter un nouveau Port:

<P-PORT-PROTOTYPE>
<SHORT-NAME>PpDaCoNr</SHORT-NAME>
<PROVIDED-COM-SPECS></PROVIDED-COM-SPECS>
<PROVIDED-INTERFACE-TREF DEST="CALPRM-INTERFACE">/PortInterface/PiDaCoNr</PROVIDED-INTERFACE-TREF>
</P-PORT-PROTOTYPE>

es ce que c´est possible?
merci

[ProgElecT]

Salut

Une possibilité:

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
32
33
34
35
36
37
Dim StrOldFichier As String
Dim StrDebutFichier As String
Dim StrSuiteFichier As String
Dim StrRechercher As String
Dim StrAajouter As String
Dim StrNewFichier As String
Dim DebInsert As Long
'pour simuler le contenu du fichier XML
StrOldFichier = "<P-PORT-PROTOTYPE>" & vbNewLine _
                & "<SHORT-NAME>PpEcuHwVerNr</SHORT-NAME>" & vbNewLine _
                & "<PROVIDED-COM-SPECS></PROVIDED-COM-SPECS>" & vbNewLine _
                & "<PROVIDED-INTERFACE-TREF DEST=""CALPRM-INTERFACE"">/PortInterface/PIEcuwVerNr</PROVIDED-INTERFACE-TREF>" & vbNewLine _
                & "</P-PORT-PROTOTYPE>" & vbNewLine _
                & "<P-PORT-PROTOTYPE>" & vbNewLine _
                & "<SHORT-NAME>PpEcuPartNumber</SHORT-NAME>" & vbNewLine _
                & "<PROVIDED-COM-SPECS></PROVIDED-COM-SPECS>" & vbNewLine _
                & "<PROVIDED-INTERFACE-TREF DEST=""CALPRM-INTERFACE"">/PortInterface/PiEPartNumber</PROVIDED-INTERFACE-TREF>" & vbNewLine _
                & "</P-PORT-PROTOTYPE>"
 
'La partie a insérer
StrAajouter = vbNewLine & "<P-PORT-PROTOTYPE>" & vbNewLine _
                & "<SHORT-NAME>PpDaCoNr</SHORT-NAME>" & vbNewLine _
                & "<PROVIDED-COM-SPECS></PROVIDED-COM-SPECS>" & vbNewLine _
                & "<PROVIDED-INTERFACE-TREF DEST=""CALPRM-INTERFACE"">/PortInterface/PiDaCoNr</PROVIDED-INTERFACE-TREF>" & vbNewLine _
                & "</P-PORT-PROTOTYPE>" & vbNewLine _
 
 
StrRechercher = "<SHORT-NAME>PpEcuHwVerNr</SHORT-NAME>"
DebInsert = InStr(1, StrOldFichier, StrRechercher, vbTextCompare)
 
StrRechercher = vbNewLine & "<P-PORT-PROTOTYPE>"
DebInsert = InStr(DebInsert, StrOldFichier, StrRechercher, vbTextCompare)
StrDebutFichier = Left$(StrOldFichier, DebInsert)
StrSuiteFichier = Right$(StrOldFichier, Len(StrOldFichier) - DebInsert)
 
'le contenu du nouveau fichier avec la partie insérée
StrNewFichier = StrDebutFichier & StrAajouter & StrSuiteFichier

[zidenne]

Bonjour
merci beaucoup pour ton aide.
si le fichier etais une fichier text, ca sera super.
mais j´ais une fichier XML

[ProgElecT]

Salut

.......
mais j´ais une fichier XML

Pas de probléme, tu l'ouvres comme un fichier TXT, exemple de

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
32
33
34
35
Option Explicit
Dim Msg$
Dim NumFich As Integer
Dim CheminNomFichier As String
 
 
Private Sub Form_Load()
NumFich = FreeFile
CheminNomFichier = "C:\Users\francis\AppData\Roaming\Notepad++\contextMenuBis.xml"
Open CheminNomFichier For Input As #NumFich
Msg$ = Input(FileLen(CheminNomFichier), NumFich)
Close #NumFich
If Msg$ = "" Then
    MsgBox "le fichier est vide", vbCritical
    Else
    Text1.Text = Msg$
    NumFich = FreeFile
    Open CheminNomFichier For Output As #NumFich
    Print #NumFich, Msg$ & vbNewLine & "<!-- mon ajout, ici pour l'exemple, en fin de fichier --> "
Close #NumFich
End If
 
'ré-ouvre le fichier pour vérification
Msg$ = "": Text1.Text = Msg$
NumFich = FreeFile
CheminNomFichier = "C:\Users\francis\AppData\Roaming\Notepad++\contextMenuBis.xml"
Open CheminNomFichier For Input As #NumFich
Msg$ = Input(FileLen(CheminNomFichier), NumFich)
Close #NumFich
If Msg$ = "" Then
    MsgBox "le fichier est vide", vbCritical
    Else
    Text1.Text = Msg$
End If
End Sub

puis tu enregistres la modification sous le même nom et sous la même extension (.XML)

[zidenne]

merci bien pour ton reponce, j´essaierai ca

[ProgElecT]

Salut
Une autre approche plus Pro ICI , du VBScript, mais il ne suffit que de déclarer et typer les variables pour VB6.