ajouter nouveau Node a XML fichier

Version imprimable

12/09/2012, 14h34
zidenne

1 pièce(s) jointe(s)

ajouter nouveau Node a XML fichier

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:

Citation:

<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

Salut

Une possibilité:

Code:

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

14/09/2012, 15h18
zidenne

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

Salut

Citation:

Envoyé par zidenne

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

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

Code:

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)

18/09/2012, 11h35
zidenne

merci bien pour ton reponce, j´essaierai ca
18/09/2012, 12h35
ProgElecT

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