Bonjour,
J'essaye de faire un copier - coller d'un bout d'un fichier XML. Mais à chaque fois mes accents sont remplacés.
Voici comment je fais
Qui a une idée???
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 Open nom_doc_xml_donnees For Input As #4 Input #4, ligne 'Nous sommes sur le schema nous le stockons dans notre tableau ReDim temp_donnees(0) Do While ligne <> "</s:Schema>" If ligne <> "" Then ReDim Preserve temp_donnees(IncrementeTaille(temp_donnees, 1)) temp_donnees(UBound(temp_donnees) - 1) = ligne End If Input #4, ligne Loop ReDim Preserve temp_donnees(IncrementeTaille(temp_donnees, 1)) temp_donnees(UBound(temp_donnees) - 1) = ligne Close #4
Partager