作成者カテゴリ返答の対象
公開
Vegeta
12/05/2017 04:55 PM
文書リンクアイコン ロータススクリプトでCSV出力時に文字コードを「UTF-8」にしたい
LotusScriptからADODB.Streamを使う方法

同じようにLotusScriptからNotesStreamでOpenでUTF-8を指定しても、Shift-JISになるため、ADODB.StreamをOLEで呼び出して、UTF-8になりました。

Sub Initialize
Dim objStream As variant
Set objStream = CreateObject("ADODB.Stream")

objStream.Charset = "UTF-8" '文字コードをUTF-8
objStream.Open 'ファイルオープン

objStream.WriteText "テキスト", 1 '文字列+改行を書き込む
objStream.WriteText "テキスト", 0 '文字列のみ書き込む
objStream.SaveToFile "d:\a.txt", 2 'ファイルがある場合に上書き保存する
objStream.SaveToFile "d:\b.txt", 1 'ファイルがない場合にファイル保存する
objStream.Close 'ファイルクローズ

Set objStream = Nothing
End Sub


[Previous Main Document]
ロータススクリプトでCSV出力時に文字コードを「UTF-8」にしたい (LNS)
. . Re: ロータススクリプトでCSV出力時に文字コードを「UTF-8」にしたい (ブレゴ)
. . . . Re: ロータススクリプトでCSV出力時に文字コードを「UTF-8」にしたい (LNS)
. . . . . . Re: ロータススクリプトでCSV出力時に文字コードを「UTF-8」にしたい (LNS)
. . . . . . . . Re: ロータススクリプトでCSV出力時に文字コードを「UTF-8」にしたい (ブレゴ)
. . . . . . . . . . Re: ロータススクリプトでCSV出力時に文字コードを「UTF-8」にしたい (LNS)
. . LotusScriptからADODB.Streamを使う方法 (Vegeta) * 現在地 *
. . Re: ロータススクリプトでCSV出力時に文字コードを「UTF-8」にしたい (Vegeta)
[Next Main Document]