「Web出版サイト」ベータ公開

Q&A集[?]

当サイトでのご質問の受付は終了しました

すべてのコンテンツを読み込み専用としたため、回答欄からも投稿できません

Apache OpenOffice/LibreOfficeのご質問はそれぞれのフォーラムへご投稿ください

質問コーナー

サイト内検索

分類メニュー

関連サイト


本日:1
昨日:0
総数:1209
現在:6


半角文字列から全角文字列への変換方法

ページOpenOffice.org FAQの登録ページ
投稿者もり
分類
edit/refer
優先順位
edit/refer
状態
edit/refer
カテゴリー
edit/refer
投稿日2010-03-22 15:25:03 (月)
OSWindowsXP
依存するページ
バージョン
edit/refer

メッセージ

回答ページでは行末に「~」を付加する必要はありません

いつもお世話になります。

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

お名前:
題名: