Parsing string VBA

Question

please have at look on my issue. I have following string "F) GND G) FL240)" in my Control.

I'm trying to parse the string between "F)" and "G)" and also between "G)" and ")" with following code

If Left(s, 2) = "F)" Then
'Task - Filled ItemF  with value "GND"  or other values between  "F)" and "G)"  
        ItemF = Mid(s, InStr(s, "F)") + 3, Len(s) - InStr(s, "G)"))

'or

        'ItemF = Mid(s, InStr(s, "F)") + 3, Len(s) - Len(Right(s, InStr(s, "G)"))))

'Task - Filled ItemG  with value "FL240"  or other values between  "G)" and ")" 

 
            ItemG = Mid(s, InStr(s, "G)") + 3, Len(s) - InStr(s, "G)")) - how I can exclude last ")" 
        End If

Could you explain please, how to separate and parse values between "F)" and "G)" and also between "G)" and ")"

learn.microsoft.com/en-us/office/vba/language/reference/…

braX
– braX

2021-12-13 12:00:32 +00:00
Commented Dec 13, 2021 at 12:00 — braX
– braX, Commented Dec 13, 2021 at 12:00

Gustav · Accepted Answer · 2021-12-13 12:53:00Z

2

Use Split:

FirstValue = Split(Split(s, "F) ")(1), " G)")(0)
SecondValue = Split(Split(s, "G) ")(1), ")")(0)

answered Dec 13, 2021 at 12:53

Gustav

56.3k7 gold badges33 silver badges65 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

MT1 · Accepted Answer · 2021-12-15 14:07:59Z

0

Use this function -

Public Function fParseXML(sTag01 As String, sTag02 As String, sToParse As String) As String
 Dim pStart As Integer
 Dim pEnd As Integer
 Dim pLen As Integer
 If InStr(1, sToParse, sTag01) Then
  pStart = InStr(1, sToParse, sTag01) + Len(sTag01)
  pEnd = InStr(pStart, sToParse, sTag02)
  pLen = pEnd - pStart
  fParseXML = Mid(sToParse, pStart, pLen)
  Exit Function
 Else
  fParseXML = "Not found" & "**" & sTag01 & "**" & Mid(sToParse, 1, 100)
  Exit Function
 End If

use F) and G) and ) as the tags.

edited Dec 15, 2021 at 14:07

answered Dec 13, 2021 at 12:24

MT1

9492 gold badges14 silver badges24 bronze badges

2 Comments

Vitaly Over a year ago

Thanks, it works, but when I try to change tag to "G)" and ")" i get an error in fParseXML = Mid(sToParse, pStart, pLen)

MT1 Over a year ago

@Vitaly Sorry I should have tested it first. Code changed and it works for me now.

Collectives™ on Stack Overflow

Parsing string VBA

2 Answers 2

Comments

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related