'''
'''  FF_UNWRAP
'''  删除配对到开头和结尾的字符串的字符。
'''
'''  It is particularly useful for removing text with parenthesess, 
'''  quotes, brackets, etc.
'''  For example:  FF_UnWrap("<Paul>", "<", ">") results in Paul
'''
'''  If only one unwrap character/string is specified then that character
'''  or string is used for both sides.
'''  For example:  FF_UnWrap("'Paul'", "'") results in Paul
'''
'''  If no wrap character/string is specified then double quotes are used.
'''  For example:  FF_UnWrap(""Paul"") results in Paul
'''
'  Function FF_UnWrap Overload ( ByRef sMainString as String, _
'                                ByRef sLeftChar   as String, _
'                                ByRef sRightChar  as String _
'                                ) as String
'  Function FF_UnWrap Overload ( ByRef sMainString as String, _
'                                ByRef sLeftChar   as String = Chr(34) _
'                                ) as String


''
''  FF_UNWRAP
''  Remove paired characters to the beginning and end of a string.
''
''  It is particularly useful for removing text with parenthesess, 
''  quotes, brackets, etc.
''  For example:  FF_UnWrap("<Paul>", "<", ">") results in Paul
''
''  If only one unwrap character/string is specified then that character
''  or string is used for both sides.
''  For example:  FF_UnWrap("'Paul'", "'") results in Paul
''
''  If no wrap character/string is specified then double quotes are used.
''  For example:  FF_UnWrap(""Paul"") results in Paul
''
Function FF_UnWrap Overload ( ByRef sMainString As String, _
                              ByRef sLeftChar   As String, _
                              ByRef sRightChar  As String _
                              ) As String
   sMainString = LTrim(sMainString, sLeftChar) 
   Function = Rtrim(sMainString, sRightChar) 
End Function

Function FF_UnWrap Overload ( ByRef sMainString As String, _
                              ByRef sLeftChar   As String = Chr(34) _
                              ) As String
   sMainString = LTrim(sMainString, sLeftChar) 
   Function = Rtrim(sMainString, sLeftChar) 
End Function

