「nkfで漢字コードを変換する」の編集履歴（バックアップ）一覧に戻る

nkfで漢字コードを変換する - (2010/12/05 (日) 00:58:37) のソース

nkf32.dllをダウンロード
http://www.vector.co.jp/soft/win95/util/se020949.htmlとか
http://homepage3.nifty.com/tkaneto/dll/nkf32dll.htmlにある。

#asciiart(blockquote){
#console

Declare Sub GetNkfVersion cdecl Lib "nkf32" (vstr As BytePtr)
Declare Sub NkfConvert cdecl Lib "nkf32" (out As BytePtr,in As BytePtr)
Declare Function SetNkfOption cdecl Lib "nkf32" (opt As BytePtr) As Integer

Dim vstr(31) As Byte

GetNkfVersion(vstr)		'バージョンをゲット
print MakeStr(vstr)


Dim istr(31) As Byte
Dim ostr(31) As Byte

NkfConvert(ostr,"こんにちば")	'へんかんせずそのままひょうじ
print MakeStr(ostr)


SetNkfOption("e")		'EUCに変換

lstrcpy(istr,"abc 漢字 ABC")
NkfConvert(ostr,istr)
print MakeStr(ostr)
}