Discussion :

[Ultradoux]

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 !

[SfJ5Rpw8]

b'soir

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
ici : Comment utiliser les arguments en ligne de commande ?