'------------------------------------------------------------------------------------------------------------
'Reference Code: XFR_GetFilenameForSourceID
'
'Description: Gets the file name being processed, strips off the unique indentifier that XF
' adds to the file name and returns the origninal source file name.
'
'Usage: Parser business rule intended to be used on the SourceID field in a data source.
'
'Created By: OneStream Software
'Date Created: 06-01-2016
'------------------------------------------------------------------------------------------------------------
'Get the filename and strip off the Unique ID suffix if it exists
If api.Parser.Transformer.FileInfo.SourceFileName.Contains("_") Then
'Split filename into segments (Parse by "_" character)
Dim segments As List(Of String) = StringHelper.SplitString(api.Parser.Transformer.FileInfo.SourceFileName, "_", StageConstants.ParserDefaults.DefaultQuoteCharacter)
'Create a string builder object and then loop over the segments and put the file name back together
'but skip the last segment which is the Unique ID suffix. We use a string builder rather than concatenating
'with the "&" because string builders are much faster.
Dim segName As New System.Text.StringBuilder
For seg As Integer = 0 To segments.Count - 2
segName.Append(segments(seg))
If seg < (segments.Count-2) Then segName.Append("_")
Next
'Return the contents of the string builder as a string
Return segName.ToString
Else
'File name does not contain "_" just return it
Return api.Parser.Transformer.FileInfo.SourceFileName
End If
