編集
ファイル添付
リロード
使い方半角文字列から全角文字列への変換方法 †
| ページ | OpenOffice.org FAQの登録ページ |
|---|---|
| 投稿者 | もり |
| 分類 | |
| 優先順位 | |
| 状態 | |
| カテゴリー | |
| 投稿日 | 2010-03-22 15:25:03 (月) |
| OS | WindowsXP |
| 依存するページ | |
| バージョン |
メッセージ †
| 回答ページでは行末に「~」を付加する必要はありません |
いつもお世話になります。
OpenOffice.orgBASICで、下記の処理を作成中です。
ＣＳＶデータＡを読み込み、ＣＳＶデータＢに出力する。
１レコードごとに配列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
