從下面字串中提取電話
123王總15021920000上海嘉定區徐行鎮婁朱公路婁南
說明
電話號碼不固定，我個人的想法找出一組11位數的數字 就可以得出電話
uj5u.com熱心網友回復：
一般建議是正則運算式，但我個人不喜歡。
Option Explicit
Private Sub Command1_Click()
MsgBox getPhoneNum("123王總15021920000上海嘉定區徐行鎮婁朱公路婁南")
End Sub
Private Function getPhoneNum(ByVal strin As String) As String
Dim i As Integer
Dim strtmp As String
For i = 1 To Len(strin) - 11
strtmp = Mid(strin, i, 11)
If IsNumeric(strtmp) And Left(strtmp, 1) = "1" Then
getPhoneNum = strtmp
Exit Function
End If
Next
End Function
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/236226.html
標籤：VB基礎類
下一篇：VTK問題