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 :
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 !
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 ' 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
Partager