OOobbs2/138

OOobbs2/138

• サマリ: Stringに代入した文字列の半角⇔全角変換
• 環境: Calc
• 状態: 未解決
• 投稿者: 道?
• 投稿日: 2008-09-06 (土) 09:10:15

質問

Dim Moji As String Moji = oSheet.getCellByPosition(0, 0).getString()

なのでString変数に文字列が入った場合に半角⇔全角変換を行いたいのですが方法が見つかりません、、初歩的な質問しつれいします よろしければご教授お願いします。

回答

• Transliteration を使用して相互変換できます。OOoBasic/Generic/Transliteration (全角 - 半角や漢数字 - 数値変換もできます。面倒だったため書いてませんが…。OOobbs2/81 の拡張機能では使用してたりします。)

日本語言語パックが入っていないと動かないのかもしれませんが、よく分かりません。

Sub transliteration_10
 Dim nOffset() As Long
 aLocale = CreateUnoStruct("com.sun.star.lang.Locale")
 aLocale.Language = "ja"
 aLocale.Country = "JP"
 
 ' 全角 -> 半角
 oFull2Half = CreateUnoService("com.sun.star.i18n.Transliteration")
 oFull2Half.loadModuleNew(_
   Array(com.sun.star.i18n.TransliterationModulesNew.FULLWIDTH_HALFWIDTH), aLocale)
 
 sFull = "１２３ａ"
 sHalf = oFull2Half.transliterate(sFull, 0, Len(sFull), nOffset)
 msgbox sHalf
 
 
 ' 半角 -> 全角
 oHalf2Full = CreateUnoService("com.sun.star.i18n.Transliteration")
 oHalf2Full.loadModuleNew(_
   Array(com.sun.star.i18n.TransliterationModulesNew.HALFWIDTH_FULLWIDTH), aLocale)
 sHalf = "123a"
 sFull = oHalf2Full.transliterate(sFull, 0, Len(sHalf), nOffset)
 msgbox sFull
End Sub

• はにゃ? 2008-09-06 (土) 14:36:00

感想，コメント，メモ