VB截取中英文混合字符串中若干半角單位長字串的函數

轉自：http://blog.csdn.net/jhycjhyc/article/details/3789937

Public Function leftMix(ByVal sourceString As String, ByVal mixlen As Integer) As String

    '此函數用於從中英文混合字串中從左開始以半角字符的長度爲單位截取若干字符,以避免該字符寫入SQL表中定長文本字段時可能出現的錯誤.
    'leftmix("唐紐市布通街132號廣商局宿舍2幢2單元3樓1號",39)="唐紐市布通街132號廣商局宿舍2幢2單元3樓1"
    '一個常見的例子 .fields("地址")=leftmix((xlSheet.Cells(i, 7)), 50)
    '須注意的是 , 須在模塊中有此聲明:Public Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
    Dim i As Integer
    sourceString = Trim(sourceString)
    For i = 1 To lstrlen(sourceString)
     If lstrlen(sourceString) > mixlen Then
        sourceString = Left(sourceString, Len(sourceString) - 1)
      Else
        Exit For
     End If
    Next i
    leftMix = sourceString
End Function