Top > OOobbs2 > 138

OOobbs2/138 Edit

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

質問 Edit

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

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

回答 Edit

  • 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 = "123a"
 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

感想,コメント,メモ Edit



Reload   New Lower page making Edit Freeze Diff Upload Copy Rename   Front page List of pages Search Recent changes Backup   Help   RSS of recent changes