VB截取中英文混合字符串中若干半角单位长字串的函数
2009-01-15 16:27
423 查看
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
'此函数用于从中英文混合字串中从左开始以半角字符的长度为单位截取若干字符,以避免该字符写入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
相关文章推荐
- VB截取中英文混合字符串中若干半角单位长字串的函数
- C#获取中英文混合字符串长度和截取函数
- C#判断中英文混合字符串长度及截取函数
- sql 2005 中英文混合的字符串截取函数
- sql 中英文 混合 字符串截取函数
- 【原创】全角、半角混合字符串截取方法(VB.NET版)
- 用C#截取指定长度的中英文混合字符串 改进版
- 用CSS解决中英文混合字符串的截取省略问题的解决办法
- C# 截取中英文混合字符串分行显示宽度相同
- .NET 截取中英文混合的字符串。
- (JAVA)截取中英文混合字符串
- 中英文混合字符串截取
- 用C#截取指定长度的中英文混合字符串
- PHP获取中英文混合字符串长度及截取
- javascript截取字符串(通过substring实现并支持中英文混合)
- 中英文混合字符串截取
- asp.net指定长度截取字段省略(中英文混合字符串)
- PHP截取中英文混合字符串中的英文
- 截取一个中英文混合的字符串,不能出现截取半个汉字的问题
- PHP获取中英文混合字符串长度及截取