Time Parsing Rule

bennovak
New Contributor II

I am trying to write a parser business rule to pull out the middle portion of a date string from a data source.

The file has the date as "1-Jan-23" and I want to pull out the Jan.  On the data source, I have the time dimension assigned to the proper column in the file.  The month is always 3 characters, and the year is always 2 characters. 

I am getting an error that I am unable to execute the BR. Can I not use args.value for the starting point of my parser rule ?

 

Dim filetime As String = args.Value

Dim filetimelen As Integer = filetime.Length
Dim startpos As Integer = filetimelen - 6
Dim month As String = filetime.Substring(startpos, 3)

Return month

1 ACCEPTED SOLUTION

RobbSalzmann
Valued Contributor

Here are a couple ways to do this depending on the requirement:

 

 

'returns period in Mn notation (e.g. M1, M2...)     
Dim month As Integer = DateTime.ParseExact(args.Value, "d-MMM-yy", CultureInfo.InvariantCulture).Month
return $"M{month}"

'returns the Three letter month abbreviation (e.g. Jan, Feb...)     
Dim strMonth As String = DateTime.ParseExact(args.Value, "d-MMM-yy", CultureInfo.InvariantCulture).ToString("MMM")
return strMonth

 

 

View solution in original post

4 REPLIES 4

OS_Pizza
Contributor III

@bennovak  The complex expression looks good to me. It should return Jan as per your example. Can you put a screenshot of the error ? Also, let us know when exactly are you running into the error.

RobbSalzmann
Valued Contributor

Here are a couple ways to do this depending on the requirement:

 

 

'returns period in Mn notation (e.g. M1, M2...)     
Dim month As Integer = DateTime.ParseExact(args.Value, "d-MMM-yy", CultureInfo.InvariantCulture).Month
return $"M{month}"

'returns the Three letter month abbreviation (e.g. Jan, Feb...)     
Dim strMonth As String = DateTime.ParseExact(args.Value, "d-MMM-yy", CultureInfo.InvariantCulture).ToString("MMM")
return strMonth

 

 

Thank you, @RobbSalzmann.  This worked perfectly!

JackLacava
Community Manager
Community Manager

Parsing dates is better done the way @RobbSalzmann showed, but for the generic case when you want to split a delimited string, don't rely on brittle indexes - you can use StringHelper.SplitString instead:

' split a string separated by '-'
Dim fields As List(Of String) = StringHelper.SplitString( _
    "1-Jan-23", "-", _
    StageConstants.ParserDefaults.DefaultQuoteCharacter)

BRApi.ErrorLog.LogMessage(si, fields(0)) ' will output 1
BRApi.ErrorLog.LogMessage(si, fields(1)) ' will output Jan
BRApi.ErrorLog.LogMessage(si, fields(2)) ' will output 23