DonQuijote, вариант функций(UDF)
[vba]Код
Function vvv$(t$)
With CreateObject("VBScript.RegExp"): .Pattern = "\d+ \d+"
If .test(t) Then vvv = .Execute(t)(0) Else vvv = ""
End With
End Function
[/vba]
[vba]Код
Function uuu$(t$)
With CreateObject("VBScript.RegExp"): .Pattern = "\d+\.\d+\.\d+"
If .test(t) Then uuu = .Execute(t)(0) Else uuu = ""
End With
End Function
[/vba]
[vba]Код
Function yyy$(t$)
With CreateObject("VBScript.RegExp"): .Pattern = "\d+-\d+"
If .test(t) Then yyy = .Execute(t)(0) Else yyy = ""
End With
End Function
[/vba]
[vba]Код
Function zzz$(t$)
With CreateObject("VBScript.RegExp"): .Pattern = "[-\d\.]+": .Global = True
zzz = Trim(Replace(Replace(.Replace(t, ""), "выдан", ""), "кп", ""))
End With
End Function
[/vba]