SAS888
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Sub Мой_код() Dim i As Long, s As String, a(1 To 8), b(), x Set x = CreateObject("VBScript.RegExp"): x.Global = True a(1) = "Им'я: Вячеслав Телефон: 0979122381 " a(2) = "раб. 587-72-43 ; (063)-266-68-00 " a(3) = "Роман т.3837006 м.0935688864м.0964165605м.0994356448 " a(4) = "Иван 0672992940 " a(5) = "0677088425 Олег; 093-404-55-50 Оксана " a(6) = "Вера Николаевна т.221-14-39, 0958723695, 0673079412. " a(7) = "067 605 56 27 221 63 17 " a(8) = "221 63 17 067 605 56 27 " '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim j As Integer iTimer! = Timer For j = 1 To 1000 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ReDim b(1 To UBound(a)): On Error Resume Next For i = 1 To UBound(a, 1) If a(i) <> "" Then s = Trim(Replace(a(i), Chr(160), " ")): x.Pattern = "[^()0-9]" b(i) = Replace(Split(Trim(x.Replace(s, " ")), " ")(0), " ", "") End If Next ''''''''''''''''''''''''''''''''''''''''''''''''''' Next MsgBox "Время выполнения макроса составило " & _ Timer - iTimer! & " сек.", vbExclamation, "" End Sub | Всего записей: 398 | Зарегистр. 31-10-2007 | Отправлено: 14:25 17-03-2011 | Исправлено: SAS888, 14:28 17-03-2011 |
|