VBA

Question

Karakter biçimini temel alan bir dize içinde bir dize bulun. Çeşitli inStr yöntemlerini denediniz ama şansınız yok.

Sorun aslında dayanan "1234567891" ayıklamak için gerektiğidir

Ben de "Metne email@email.com 2015/12/12 1234567891 PST" gibi bir şey içeren bir dize var öyle sayıları ve 10'u var, metinde kalıcı pozisyon yok, her seferinde her zaman farklı bir yerde olabilir.

Bunu yapmanın bir yolu var mı? Aramalarım, dizeyi "" ile bölmeme neden oldu, ancak sonucu almak için sayıyı "##########" biçimiyle nasıl karşılaştırdığımı anlayamıyorum.

Answer 1

düşünün: benim yorum bir ek sözleşme olarak

Sub whatever() 
    s = "texttext email@email.com 12/12/2015 1234567891 PST" 
    ary = Split(s, " ") 
    For Each a In ary 
     If IsNumeric(a) And Len(a) = 10 Then MsgBox a 
    Next a 
End Sub 

Answer 2

,

Function tenDigits(str As String) 
    Static rgx As Object 

    If rgx Is Nothing Then 
     Set rgx = CreateObject("VBScript.RegExp") 
    End If 

    With rgx 
     .Global = False 
     .Pattern = "[0-9]{10}" 
     If .Test(str) Then tenDigits = .Execute(str)(0) 
    End With 

End Function 

Not uzunluğu parantezler değil parantez Başlangıçta belirtildiği gibi tarafından çevrelenmiş olması.