Вычленить число из строки перед определенным словом

Пользователь

Сообщений: 2 Регистрация: 13.05.2021

14.05.2021 12:28:46

Доброго дня ! подскажите, пожалуйста , есть вот такая задачка Нужно вычленить число выделенное пробелами стоящее перед словом "PART"
Число не всегда двухзначное может быть и единичным 3-4-5 значным
Например:
GLK0012863 69588058 1 60 0 60 PART: F6810CT-ND -> 60
GLK0012863 69588058 2 20 0 20 PART: 1727-6920-1-ND -> 20

vikttur

Пользователь

Сообщений: 47199 Регистрация: 15.09.2012

14.05.2021 12:36:06

Если количество пробелов ПЕРЕД нужным числом одинаково:
=--ПСТР(ЛЕВБ(A2;НАЙТИ("PART:";A2)-2);НАЙТИ("/";ПОДСТАВИТЬ(A2;" ";"/";5));9)
Если цепляться за слово:
=--ПСТР(ПОДСТАВИТЬ(A2;" ";ПОВТОР(" ";99));НАЙТИ("PART:";ПОДСТАВИТЬ(A2;" ";ПОВТОР(" ";99)))-120;99)

Пример с вариантами надо в файле показывать. Для общего развития

МатросНаЗебре

Пользователь

Сообщений: 6463 Регистрация: 05.02.2014

14.05.2021 12:45:23

Код

=ПСТР(A1;НАЙТИ("й";ПОДСТАВИТЬ(A1;" ";"й";ДЛСТР(ЛЕВСИМВ(A1;НАЙТИ(" PART";A1)-1))-ДЛСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ЛЕВСИМВ(A1;НАЙТИ(" PART";A1)-1);" ";"й");"й";""))))+1;НАЙТИ(" PART";A1)-НАЙТИ("й";ПОДСТАВИТЬ(A1;" ";"й";ДЛСТР(ЛЕВСИМВ(A1;НАЙТИ(" PART";A1)-1))-ДЛСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ЛЕВСИМВ(A1;НАЙТИ(" PART";A1)-1);" ";"й");"й";""))))-1)

Kuzmich

Пользователь

Сообщений: 8045 Регистрация: 21.12.2012

14.05.2021 12:46:08

Цитата
вычленить число выделенное пробелами стоящее перед словом "PART"

UDF

Код

Function iChislo(cell$) As Long
 With CreateObject("VBScript.RegExp")
     .Global = True
     .Pattern = "\d+(?= PART:)"
   If .test(cell) Then
     iChislo = .Execute(cell)(0)
   Else
     iChislo = ""
   End If
 End With
End Function

Ник Кул Пользователь Сообщений: 2 Регистрация: 13.05.2021	#5 14.05.2021 12:58:49 То что надо ! спасибо огромное!