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