|
▼Blue さん:
早々のご返信ありがとうございます。
ご掲示頂いた、コードを実行してみました。一文字ずつ漢字の
抜き取り(読み取り?)が出来ています。
ここから先を検討する前に、私まだまだ弱輩者ですので、
コードの解析からがんばります。
説明が下手ですみません。
これからはこの一文字ずつを連結させて文字列にして、条件判断の
元データとします。
今更ですが、
ex:ブック名
(1G)鈴木ファイル.xls → 鈴木 のみ抽出
(2G)佐々木ファイル1.xls → 佐々木 のみ抽出
(3G)岡ファイル.xls → 岡 のみ抽出
>なんだかよくワカリマセンが、RegExpオブジェクト(正規表現)を使う方法です。
>
>Sub sample()
> Dim objMatchs As Object
> Dim objMatch As Object
> Dim strTarget As String
>
> strTarget = "A.漢字が在ります(終)"
> With CreateObject("VBScript.RegExp")
> .Pattern = "([一-龠])" ' これで漢字1文字に該当
> .Global = True
> Set objMatchs = .Execute(strTarget)
> For Each objMatch In objMatchs
> Debug.Print objMatch.FirstIndex & "文字目:"; objMatch.Value
> Next
> End With
>End Sub
|
|