Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9200 / 76737 ←次へ | 前へ→

【73101】Re:IMEパットでの文字を検索
回答  ウッシ  - 12/11/11(日) 12:37 -

引用なし
パスワード
   こんにちは

>しかし、"(株)"が不定の場合の処理をどうするか、今後の課題です

先に回答しましたけど、ご自分で変換テーブルを作ってコード化するしかないと思います。

おおまかな機種依存文字を変換するものをコード化すると、

Sub test1()
  Debug.Print Replace_Char("(株)東京")
End Sub
Function Replace_Char(ByRef text As String) As String
  Dim i   As Long
  Dim s   As String
  Dim mChr As Variant
  Dim rChr As Variant
  s = text
  
  mChr = Array( _
    "1.", "2.", "3.", "4.", "5.", "6.", "7.", "8.", "9.", "10.", _
    "11.", "12.", "13.", "14.", "15.", "16.", "17.", "18.", "19.", "20.", _
    "I", "II", "III", "IV", "V", "VI", "VII", "VIII", "IX", "X", _
    "ミリ", "キロ", "センチ", "メートル", "グラム", "トン", "アール", "ヘクタール", "リットル", _
    "ワットル", "カロリー", "ドル", "セント", "パーセント", "ミリバール", "ページ", _
    "mm", "cm", "km", "mg", "kg", "cc", "u", "平成", _
    "", "", "No.", "k.k.", "TEL", "上", "中", "下", "左", "右", _
    "(株)", "(有)", "(代)", "明治", "大正", "昭和")
  
  rChr = Array( _
    "(1)", "(2)", "(3)", "(4)", "(5)", "(6)", "(7)", "(8)", "(9)", "(10)", _
    "(11)", "(12)", "(13)", "(14)", "(15)", "(16)", "(17)", "(18)", "(19)", "(20)", _
    "I", "II", "III", "IV", "V", "VI", "VII", "VIII", "IX", "X", _
    "ミリ", "キロ", "センチ", "メートル", "グラム", "トン", "アール", "ヘクタール", "リットル", _
    "ワット", "カロリー", "ドル", "セント", "パーセント", "ミリバール", "ページ", _
    "mm", "cm", "km", "mg", "kg", "cc", "平方メートル", "平成", _
    "「", "」", "No.", "K.K.", "TEL", "(上)", "(中)", "(下)", "(左)", "(右)", _
    "(株)", "(有)", "(代)", "明治", "大正", "昭和")
  
  With CreateObject("VBScript.RegExp")
    For i = 0 To UBound(mChr)
      .Pattern = mChr(i)
      s = .Replace(s, rChr(i))
    Next
  End With
  Replace_Char = s
    
End Function

mChrには機種依存文字、rChrに変換後の文字を登録します。

このサイトでmChrが正しく表示されるかは不明です。

0 hits

【73096】IMEパットでの文字を検索 Aoichi 12/11/9(金) 13:47 質問
【73097】Re:IMEパットでの文字を検索 ウッシ 12/11/9(金) 15:36 回答
【73098】Re:IMEパットでの文字を検索 Aoichi 12/11/10(土) 8:33 質問
【73099】Re:IMEパットでの文字を検索 γ 12/11/10(土) 9:40 発言
【73100】Re:IMEパットでの文字を検索 Aoichi 12/11/11(日) 10:54 お礼
【73101】Re:IMEパットでの文字を検索 ウッシ 12/11/11(日) 12:37 回答
【73102】Re:IMEパットでの文字を検索 ウッシ 12/11/11(日) 12:41 発言
【73103】Re:IMEパットでの文字を検索 Aoichi 12/11/12(月) 8:56 お礼

9200 / 76737 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free