Convertir ANSI vers UCS-2 Little Endian

Bonjour !

J'ai tout un tas de fichier texte à convertir du ANSI vers US-2 Little Endian. J'ai essayé de faire une macro avec Notepad++ mais ça ne marche pas du tout.

Est-il possible de faire cela en VBS ?

Merci !

En fait j'ai déjà ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

' Convert Unicode to Ascii Const ForReading = 1, ForWriting = 2, ForAppending = 8 Const ModeAscii = 0, ModeUnicode = -1 Dim fso, f_in, f_out Set fso = CreateObject("Scripting.FileSystemObject" )   Set f_in = fso.OpenTextFile("test.m3u", ForReading,, ModeAscii) Set f_out = fso.OpenTextFile("test.spl", ForWriting, true, ModeUnicode)   Do Until f_in.AtEndOfStream f_out.Write f_in.Read(1) Loop   f_in.Close f_out.Close

---

Mais il faudrait remplacer les noms des fichiers par des variables, pour que le script puisse traiter tous les fichiers du dossier, et ça je ne sais pas faire !

b'soir

si c'est juste un problème de variables :

Code:

---

1 2 3 4 5 6 7 8

dim stFLu 'Fichier lu dim stFec 'Fichier ecerit stFLu ="test.m3u" stFec = "test.spl" ... Set f_in = fso.OpenTextFile(stFLu , ForReading,, ModeAscii) Set f_out = fso.OpenTextFile(stFec , ForWriting, true, ModeUnicode)

---

et s'il s'agit d'un problème d'arguments à ton script
voir :faq:
ici : Comment utiliser les arguments en ligne de commande ?

;)