RegEx Pattern

[Juggler_IN]

I want to modify an SI units extraction function that uses RegEx to include other units apart from m (METER).

How can I incorporate a case-sensitive list of units into the Pattern? The list is A, mol, g, cd, K, m, s, rad, sR, Hz, N, Pa, J, W, C, V, F, O, S, Wb, T, H, °C, lm, lx, Bq, Gy, Sv, kat.

I want to add the above list to incorporate the listed codes alongside < ?m > in the pattern with (\d+).?(\d*)\s*(?:da|[yzafpnµmcdhkMGTPEZY]) as common across the units.

The function:

Public Function Find(x As String)

    Dim oRegex As Object

    If oRegex Is Nothing Then
        Set oRegex = CreateObject("VBScript.RegExp")
        oRegex.Global = True
        oRegex.Pattern = "(\d+).?(\d*)\s*(?:da|[yzafpnµmcdhkMGTPEZY])?m"
        ' A, mol, g, cd, K, m, s, rad, sR, Hz, N, Pa, J, W, C, V, F, O, S, Wb, T, H, °C, lm, lx, Bq, Gy, Sv, kat
    End If

    Find = Empty

    If oRegex.Test(x) Then Find = oRegex.Execute(x).Item(0).Value

End Function

 

[Domenic]

Try...

oRegex.Pattern = "(\d+).?(\d*)\s*(?:da|[yzafpnµmcdhkMGTPEZY])?(mol|rad|cd|sR|A|g|m| . . .)"

Note that the list needs to be specified based on the number of characters in each list item, from most to least.

Hope this helps!

 

[Juggler_IN]

@Domenic; Thanks It works ... also how can I incorporate a float-value pattern of [-+]?[0-9]+[.]?[0-9]*([eE][-+]?[0-9]+) instead of current decimal pattern?

 

[Domenic]

Can you please confirm whether you want to search only for the floating value pattern or whether you want to search for both decimal and floating value pattern?

 

[Domenic]

I have edited my answer in Post #2, please see my edited post.