# -*- coding: sjis -*-
import codecs
f = codecs.open('unicode.txt', 'r', 'utf_16')
for line in f.readlines():
print line,
use encoding shiftjis;
open FH, "<:encoding(utf-16)", "unicode.txt" or die;
for (<FH>){
print;
}
ForReading = 1;
ForWriting = 2;
ForAppending = 8;
TristateUseDefault = -2;
TristateTrue = -1;
TristateFalse = 0;
fs = new ActiveXObject("Scripting.FileSystemObject");
f = fs.OpenTextFile("unicode.txt", ForReading, 0, TristateTrue);
while (!f.AtEndOfStream) {
WScript.Echo(f.ReadLine());
}
a.close();
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("unicode.txt", ForReading, False, TristateTrue)
Do While f.AtEndOfStream <> True
msgbox f.ReadLine
Loop
f.Close