Új hozzászólás Aktív témák

• #42685 sztanozs veterán Gabiwan #42682

  Új Válasz 2020-01-08 14:17:43 #42685

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  sztanozs

  veterán

  válasz Gabiwan #42682 üzenetére

  Makró és Regex kell ehhez.
  Public Function RegExExtract(Text As String, Expression As String) As String
Dim result As String
Dim AllMatches As Object
Dim Match
Dim RE As Object
Set RE = CreateObject("vbscript.regexp")

RE.Pattern = Expression
RE.Global = True
RE.IgnoreCase = True
Set AllMatches = RE.Execute(Text)

If AllMatches.Count <> 0 Then
For Each Match In AllMatches.Item(0).SubMatches
If Match <> "" Then
result = Match
Exit For
End If
Next
'result = allMatches.Item(0).submatches.Item(0)
End If

RegExExtract = result

End Function

  Regex:
  (^\d?x*[ls]\s|^m\s|\s\d?x*[ls]\s|\sm\s|\s\d?x*[ls]$|^m$)

  Munkalap kód:
  =TRIM(RegExExtract(A1;"(^\d*x*[ls]\s|^m\s|\s\d*x*[ls]\s|\sm\s|\s\d*x*[ls]$|^m$)"))

Új hozzászólás Aktív témák