| |
▼NEMOTAKE さん：
こんにちは。
>テキストタイプで英数字カナが混在してる場合、
>数字だけ抜き出す関数はあるのでしょうか？
用意されている関数では存在しない(当方が知っている限りですが…)ので、
関数を自作されるのが良いと思います。
>モジュールでひとつずつ数字と比べて作成しなければなりませんか？
Function Sujinomi1(strMoji As String) As String
Dim i As Long
Dim Kekka As String
For i = 1 To Len(strMoji)
If MID(strMoji, i, 1) >= "0" And MID(strMoji, i, 1) <= "9" Then
Kekka = Kekka & MID(strMoji, i, 1)
End If
Next
Sujinomi1 = Kekka
End Function
Sujinomi1("文字列") で数字のみ抽出されると思います。
もしくはこんなやり方も…。
Function Sujinomi2(strMoji As String) As String
With CreateObject("VBScript.RegExp")
.Pattern = "[^0-9]"
.Global = True
Sujinomi2 = .Replace(strMoji, "")
End With
End Function
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
