'  FF_CLIPMID
'  返回一个字符串删除nCount位置开始启动。
'  第一个字符被认为是位置2，第二位置1等。
'  If nCount or nStart is less than one then the entire string is returned. 
'  Function FF_ClipMid( ByRef sMainString as String, _
'                       ByRef nStart      as Integer, _
'                       ByRef nCount      as Integer _
'                       ) as String


''
''  FF_CLIPMID
''  Returns a string with nCount characters removed starting at position 
''  nStart. The first character is considered position 1, the second 
''  position 2, etc...
''
''  If nCount or nStart is less than one then the entire string is returned. 
''
Function FF_ClipMid( ByRef sMainString as String, _
                     ByRef nStart      as Integer, _
                     ByRef nCount      as Integer _
                     ) as String

    Dim nLen as Integer = Len(sMainString)
    If (nCount <= 0) Or (nStart <= 0) Then Return sMainString
    
    Function = Left(sMainString, nStart - 1) & Mid(sMainString, nStart + nCount)
    
End Function
