半角文字列から全角文字列への変換方法 †
ページ | OpenOffice.org FAQの登録ページ |
---|---|
投稿者 | もり |
分類 | |
優先順位 | |
状態 | |
カテゴリー | |
投稿日 | 2010-03-22 15:25:03 (月) |
OS | WindowsXP |
依存するページ | |
バージョン |
メッセージ †
回答ページでは行末に「~」を付加する必要はありません |
いつもお世話になります。
OpenOffice.orgBASICで、下記の処理を作成中です。
CSVデータAを読み込み、CSVデータBに出力する。
1レコードごとに配列DataArrayに読み込む
読み込んだDataArray(38)という項目が
全角と半角が混在する場合があるので
文字列を全角に変換して出力したい。
全角への変換処理がうまくいっていません。
プログラムは下記のように記述しています。
Dim sZenkakumojiretu as string sZenkakumojiretu = JIS(Cstr(DataArray(38)))
DataArray(38)には「234」という値が入っています。
Cstr関数なしでJIS(DataArray(38))と記述しても
同じようにエラーになりました。
お忙しいところ恐れ入ります。
ご教示よろしくお願い致します。
無題 †
K.Tsunoda (2010-03-22 17:04:58 (月))
こんにちは。
Calc 関数の呼出しは、FunctionAccess サービス経由になります。
Dim oFuncService As Object oFuncService = CreateUnoService("com.sun.star.sheet.FunctionAccess") Result = oFuncService.callFunction("JIS", Array(DataArray(38))) MsgBox Result
下記参照
[ OOoBasic > Generic > function ]
http://hermione.s41.xrea.com/pukiwiki/pukiwiki.php?OOoBasic%2FGeneric%2Ffunction