[AC-2003] Sauvegarder un fichier .txt en fichier .xml [Résolu]

[luchoo]

Bonjour, à tous et je vous remercie d'avance pour les aides

Donc, mon but je vous explique :

j'ai une fonction dans ma BDD : ou je créer un fichier txt ou il s'ouvre et écrit dedans..

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Function creationxml()
 
'créer le fichier txt
 
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile("C:\Mesdocuments\fichiertest.txt")
 
'écrit dans le fichier txt
 
With MonFic
.writeline "Test d'écriture"
End With
 
'msgbox qui confirme l'écriture
 
Msg = "Écriture réussie dans le fichier.txt"
MsgBox (Msg)
 
'Sauvegarder un fichier txt :
xmlDoc.Save "C:\Mesdocuments\fichiertest.txt"
 
End Function

Mon problème viens à ce niveau : 'Sauvegarder un fichier .txt en fichier .xml, en faite je voudrais trouvé une fonction qui me sauvegarde mon "fichiertest.txt ou fichiertest.xml

Pouvez-vous m'aider?
Merci!!

[luchoo]

Bonjour, suite à mon ancien dépôt de question : enregistrement d'un fichier txt en xml, je souhaite depuis un module appeler les données d'une table ou mieu d'une rêquete , que doit-je faire?

mercii de votre aide

[Kloun]

Bonjour,
1/ s'il s'agit juste de renommer le fichier, voir dans la FAQ les opérations sur fichiers.
2/ Voir dans la FAQ les RecordSet.

Edit : Pour le 1/, je dois avoir mal compris, parce que s'il s'agit juste de le sauvegarder en .XML, il suffit de faire :

Code :

Set MonFic = FSys.CreateTextFile("C:\Mesdocuments\fichiertest.xml")

[luchoo]

tout d'abord merci d'avori répondu mais enfaite je veu créer ouvrir et écrire des instructions pour créer mon fichier txt où j'aurais écrit dans l'instruction d'écriture :

Code :

1
2
3
4
with monfich
.writeline "<salut>"
.writeline "<sa va?>"
.writeline "</salut>"

puis après l'écriture qu'il enregistre ce fichier txt en fichier xml

[Kloun]

Je vais peut-être dire des conneries, mais pour moi, un .XML est un .txt avec un formatage de données particulier.
Donc,

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function creationxml()
'créer le fichier XML
 
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile("C:\Mesdocuments\fichiertest.xml")
 
'écrit dans le fichier xml
With MonFic
.writeline "<salut>"
.writeline "<ça va?>"
.writeline "</salut>"
End With
 
'msgbox qui confirme l'écriture 
MsgBox "Écriture réussie dans le fichier.xml"
 
'Sauvegarde du :
MonFic.Save
 
End Function

[luchoo]

Bonjour, je te remercie de me répondre mais c'est pas ce que je recherche mais merci! je te dirais quand j'aurais trouvé la solution.

Suite à mon deuxième dépôt sur comment cherche des valeurs dans un table et les affichés dans une fonction pour écrire dans un fichier txt est la suivante : (j'ai enfin trouvé =D)

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
38
39
40
41
 
Function test()
 
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim nom
 
Set db = CurrentDb
Set rst = db.OpenRecordset("table1", dbOpenSnapshot)
 
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile("C:\toto\fichier.xml")
 
Set name = rst("Nom")
 
With MonFic
 
.writeline "<?xml version='1.0' encoding='UTF-8'?>"
.writeline "<dataroot>"
.writeline "<chanteur>"
.writeline "" 'saut de ligne
.writeline "<artiste>"
.writeline "<Nom>" & name & "</Nom>" 'recherche la valeur à partir de ma variable et du recorset
.writeline "</artiste>"
 
 
rst.MoveNext
 
.writeline "</chanteur>"
.writeline ""
.writeline "</dataroot>"
 
End With
 
rst.Close
db.Close
 
Set rst = Nothing
Set db = Nothing
 
End Function

[luchoo]

Par contre il me faudrait de l'aide d'après le code ci-dessus je voudrais que pour chaque artiste il m'affiche le nom de celui-ci :

exemple du résultat que je voudrais :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
<artiste>
<nom>Madonna</nom>
</artiste>
 
<artiste>
<nom>Kyo</nom>
</artiste>
 
<artiste>
<nom>Akon</nom>
</artiste>
 
etc...

J'ai essayé :

Code :

1
2
3
4
5
6
7
      For each artiste in rst
 
.writeline "<artiste>"
.writeline "<nom>"
.writeline "</artiste>"
 
Next

Pouvez-vous m'aider.?

[Kloun]

Code :

1
2
3
4
while not rst.eof
    ...
    rst.movenext
Wend

[luchoo]

Super merci !

t'a réglé quasiment mon problème...

j'ai une dernière questions si maintenant je veux obtenir ce résultat :

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
 
<!-- Nomcategorie -->  ' rechercher par recordset et valeur : & ...&
 
<Categorie>
<NomCategorie>...</Nomcategorie>     'idem que ci-dessus
 
<Contenucategorie>
<Namefichier>...</Namefichier>
<Titrefichier>...</Titrefichier>
</Contenucategorie>
 
<Contenucategorie>
<Namefichier>...</Namefichier>
<Titrefichier>...</Titrefichier>
</Contenucategorie>
 
</Categorie>
 
<!-- Nomcategorie(autre que celui dessus) -->  ' rechercher par recordset et valeur : & ...&
 
<Categorie>
 
<Contenucategorie>
<Namefichier>...</Namefichier>
<Titrefichier>...</Titrefichier>
</Contenucategorie>
 etc..

Que dois-je utiliser une imbrication if ?

Pouvez-vous m'aider?.