'  FF_PARSEANY
'  从一个字符串表达式返回分隔的字段。
'  分隔符包含一组字符 （一个或多个），其中任何可以作为分隔符字符。
'  如果状态的计算结果为零，或者是外界实际字段数，则返回一个空字符串。
'  如果是负的状态然后从右到左的 MainString 搜索字段。
'  分隔符是区分大小写
'  Function FF_ParseAny( ByRef sMainString as String, _
'                        ByRef sDelimiter  as String, _
'                        ByVal nPosition   as Integer _
'                        ) as String
''
''  FF_PARSEANY
''  Return a delimited field from a string expression.
''
''  Delimiter contains a set of characters (one or more), any of which may act as a delimiter character.
''  If nPosition evaluates to zero or is outside of the actual field count, an empty string is returned.
''  If nPosition is negative then fields are searched from the right to left of the MainString.
''  Delimiters are case-sensitive,
''
Function FF_ParseAny( ByRef sMainString as String, _
                      ByRef sDelimiter  as String, _
                      ByVal nPosition   as Integer _
                      ) as String
   ' The parse must match one character (len=1) in the delimiter string
   Function = FF_Parse_Internal( sMainString, sDelimiter, nPosition, True, 1 )
End Function


