VB截取中英文混合字符串中若干半角单位长字串的函数

最新推荐文章于 2023-08-22 17:28:54 发布

转载最新推荐文章于 2023-08-22 17:28:54 发布 · 1.6k 阅读

标签

#vb #string

收录于

本文介绍了一个VBScript函数leftMix，该函数能够从左开始以半角字符的长度为单位截取字符串，适用于中英文混合文本。通过避免部分字符在写入SQL表中的定长文本字段时可能产生的错误，提高了数据处理的准确性。

转自：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