|
いつもお世話になっております。
文字コードをshiftjisに変換したいのですが、合ってますでしょうか？
よろしくご指導のほどお願いします。
ShiftJISに変換()
PROCEDURE ShiftJISに変換()
元 = fopen(input("ファイル"),F_READ or F_WRITE)
全文 = fget(元,F_ALLTEXT)
ENCODE(ENCODE(全文,CODE_UTF8),CODE_ANSI)
fput(元,全文)
fclose(元)
fend
|
No.1722 2024/04/12(Fri) 12:31:52
|
☆ Re: ShiftJISに変換 / sen |
|
|
|
できました。
ファイルを開かないのは難しそうなので、メモ帳で変換する形で作りました。
文字コード = シフトJISかどうか判断(ファイル)
if 文字コード = "UTF-8" then PシフトJISに変換(ファイル)
FUNCTION シフトJISかどうか判断(ファイル)
元 = fopen(ファイル)
抽出 = fopen("ニトリ抽出.txt",F_WRITE)
全文 = fget(元,F_ALLTEXT)
テキスト = COPY(全文,1,1000)
エンコード_ANSI = ENCODE(テキスト, CODE_ANSI)
if テキスト <> エンコード_ANSI then
Result = "UTF-8"
Fukidasi("UTF-8",500,500)
SLEEP(3)
Fukidasi()
else
Result = "ANSI"
Fukidasi("ANSI",500,500)
SLEEP(3)
Fukidasi()
endif
fclose(元)
fend
procedure PシフトJISに変換(ファイル)
exec("notepad "+ファイル)
id = GETID("メモ帳", "Notepad",-1)
SLEEP(0.3)
CLKITEM(id, "名前を付けて保存", CLK_MENU, True)
id = GETID("名前を付けて保存", "#32770", -1)
SLEEP(0.3)
CLKITEM(id, "ANSI", CLK_LIST, True, 3)
CLKITEM(id, "保存", CLK_ACC)
id = GETID("名前を付けて保存の確認", "#32770", -1)
SLEEP(0.3)
CLKITEM(id, "はい", CLK_ACC)
id = GETID("メモ帳", "Notepad",-1)
SLEEP(1)
CLKITEM(id, "OK", CLK_BTN)
id = GETID("メモ帳", "Notepad",-1)
CTRLWIN(id, CLOSE)
fend
|
No.1723 2024/04/14(Sun) 08:37:28
|
|
