'Str&WStr.bas 'Unicode対応 文字コード表 'http://ash.jp/code/unitbl21.htm Print "漢", Asc("漢") & Asc("漢",2), Hex(Asc("漢")) & Hex(Asc("漢",2)) Print "Str(""漢""): " & Str("漢"), Asc(Str("漢")) & Asc("漢",2), Hex(Asc(Str("漢"))) & Hex(Asc(Str("漢"),2)) Print "WStr(""漢""): " & WStr("漢"), "u" & Asc(WStr("漢")), "u" & Hex(Asc(WStr("漢"))) Print "WStr(""字""): " & WStr("字"), "u" & Asc(WStr("字")), "u" & Hex(Asc(WStr("字"))) Dim ff As UByte ff = FreeFile Open "testASCII.txt" For Output As #ff Print #ff, "漢" Print #ff, "Str(""漢""): " & Str("漢") Print #ff, "WStr(""漢""): " & WStr("漢") Close #ff ff = FreeFile Open "testUTF16.txt" For Output Encoding "utf-16" As #ff Print #ff, "漢" Print #ff, "Str(""漢""): " & Str("漢") Print #ff, "WStr(""漢""): " & WStr("漢") Close #ff Sleep