문자열에 긴 (+10 자리) 숫자가 포함되어 있으면 true를 반환합니다.

Question

제공된 문자열에 10 자리가 넘는 숫자가 포함되어 있는지 확인하고 싶습니다.

exampleString = aaa123aaa12345aaaa <--- not true 
exampleString = 12345678 <--- not true 
exampleString = 1234567,12345,123345 <--- not true 
exampleString = aaaa123456789aaaa124aaa <-- true 

개별 문자열에 숫자를 추출한 다음 길이가 10보다 큰지 확인하는 등의 작업을 시도했지만 실패했습니다.

도움이나 제안이 있으십니까?

Answer 1

간단한 Like은 어떻습니까?

if str like "*###########*" then ... 

Answer 2

RegEx 객체를 사용 :

Option Explicit 

Sub TestReg() 

' sub to test RegEx10Digits function 

Dim exampleString As String 

exampleString = "aaaa123456789aaaa124aaa" 
MsgBox RegEx10Digits(exampleString) 

End Sub 

---

Function RegEx10Digits(RegString As String) As Boolean 

' RegEx variables 
Dim Reg As Object 
Dim RegMatches As Variant 

RegEx10Digits = False 

Set Reg = CreateObject("VBScript.RegExp") 
With Reg 
    .Global = True 
    .IgnoreCase = True 
    .Pattern = "\d{11,}" ' Match any set of 10+ digits 
End With 

Set RegMatches = Reg.Execute(RegString) 
If RegMatches.Count >= 1 Then ' make sure there is at least 1 match 
    RegEx10Digits = True 
End If 

End Function 

Answer 3

Function IsMore10Digits(strVal) 
    With CreateObject("VBScript.RegExp") 
     .Pattern = "\d{11,}": IsMore10Digits = .Test(strVal) 
    End With 
End Function