* 半角文字列から全角文字列への変換方法 [#db42e876]
 |RIGHT:|LEFT:|c
 |~ページ|[[OpenOffice.org FAQの登録ページ]]|
 |~投稿者|もり|
 |~分類|#listbox3(Q&A,faq03,class)|
 |~優先順位|#listbox3(緊急,faq03,priority)|
 |~状態|#listbox3(回答中,faq03,state)|
 |~状態|#listbox3(完了回答待ち,faq03,state)|
 |~カテゴリー|#listbox3(Calc 表計算,faq03,category)|
 |~投稿日|2010-03-22 15:25:03 (月)|
 |~OS|WindowsXP|
 |~依存するページ||
 |~バージョン|#listbox3(3.1.1,faq03,version)|
 
 ** メッセージ [#ge82a3a7]
 |LEFT:|c
 |回答ページでは行末に「~」を付加する必要はありません|
 いつもお世話になります。
 
 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))と記述しても~
 同じようにエラーになりました。~
 
 お忙しいところ恐れ入ります。~
 ご教示よろしくお願い致します。~
 
 
 
 
 ----
 ***無題 [#rf0688e8]
 >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~
 
 //
 #article