Question : Comment est-ce que je peux préserver une rangée dans les vbs ?

J'ai créé le manuscrit suivant. Il ouvre LIst.txt et lit le contents
A, B, C, X
H, E, L, G

Code d'it.
List.txt : le
Dim FSO, Folder
Const ForReading = objFSO du
Set de 1
=

Do de
Set objFile=objFSO.OpenTextfile (le « .txt de CreateObject (« Scripting.FileSystemObject ») de C:\List ») jusqu'à ce que le
WholeLine = objFile.ReadLine
d'objFile.AtEndOfStream détaille = WholeLine
RL = s'est dédoublé (des détails, », ")
si le
WScript.Echo RL (0) d'UBOUND (RL) = 'un choix quatre d'elements
WScript.Echo RL (1)
WScript.Echo RL (2)
WScript.Echo RL (extrémité IF
wscript.echo de 3)
 »------------------------« le
'I du
Loop
objFile.Close
du voudrait au conservateur la rangée ci-dessus et lirait le fichier de listage de l'extérieur du loop

For chacun ....... 0)
Wscript.Echo RL (1)
Wscript.Echo RL (2)
Wscript.Echo RL (3)
Next

du
Wscript.Echo RL ( class= de

Réponse : Comment est-ce que je peux préserver une rangée dans les vbs ?

Essayer ceci :

iconv - f ASCII - t UTF-16 - fichier texte outputfile d'o