извлечение из строки цифры

[Yusch]

Спасибо огромное за помощь, после цифры стоит пробел, буду пробывать с 'instr

[Yusch]

А можно код , как это будет выглядеть с instr , что бы пробегал по столбцу В

[kolosunin]

Добрый день! Подскажите пожалуйста есть файл со списком клиентов с адресом и номером телефона как извлечь от туда номер из 10 цифр начинающейся с цифры 9 ? буду очень признателен за помощь...

[IgorGO]

а номера там и на 8 начинаются и по несколько номеров есть.
первый можно так получить:

Function Digit10(s As String) As String
  With CreateObject("VBScript.RegExp")
    .MultiLine = True:  .Global = True:  .Pattern = "\d{10}":  If .test(s) Then Digit10 = .Execute(s)(0)
  End With
End Function

[kolosunin]

Сообщение от IgorGO

а номера там и на 8 начинаются и по несколько номеров есть.
первый можно так получить:

Function Digit10(s As String) As String
  With CreateObject("VBScript.RegExp")
    .MultiLine = True:  .Global = True:  .Pattern = "\d{10}":  If .test(s) Then Digit10 = .Execute(s)(0)
  End With
End Function

да некоторые и с 8 начинаются, но все равно потом идет девятка.
89xxxxxxxxx
9xxxxxxxxx

Вот если таким образом?

[doober]

Пока Игорь думает....

[kolosunin]

Сообщение от doober

Пока Игорь думает....

Отлично!!! все работает СПАСИБО!!!!

[Virtuallab]

Данный пост - не ответ на заданные вопросы. Просто, делюсь вариантом способа извлечения числа из строки.

? val(mid("sdfdfsd12fdd76 111.222 333444fghf9999gh",instr(1,"sdfdfsd12fdd76 111 222.333444fghf9999gh","76")))
 76111.222333444

[IgorGO]

Virtuallab, для информации:

? val(mid("Лашкина, 11 мкр, д. 49, кв. 69, 9524492018",instr("Лашкина, 11 мкр, д. 49, кв. 69, 9524492018","9")))

возвращает 9, а не 9524492018
данные взял с строки 11 исходного файла.

[maksim_serg]

вот так кстати лучше работает