VB截取中英文混合字符串中若干半角单位长字串的函数
来源:互联网 发布:linux中vim如何退出 编辑:程序博客网 时间:2024/06/04 23:32
转自: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
0 0
- VB截取中英文混合字符串中若干半角单位长字串的函数
- VB截取中英文混合字符串中若干半角单位长字串的函数
- PHP截取中英文及标点符号混合的字符串函数
- C#中英文混合字符串截取函数
- sql 中英文 混合 字符串截取函数
- PHP中字符串超长的中英文混合截取
- 截取中英文混合字符串
- 截取中英文混合字符串
- 中英文混合字符串截取
- 中英文混合字符串截取
- Oracle截取中英文混合字符串的处理
- 如何正确截取中英文混合的字符串?
- .NET 截取中英文混合的字符串。
- C# 中英文混合字符串截取
- Java截取中英文混合字符串
- Java 截取中英文混合字符串
- js截取中英文混合字符串
- Cocos2dx中英文混合字符串截取
- Oracle数据库的分页使用
- 移除父控件的所有子控件
- Java中的StringUtils类
- Spring AOP + AspectJ annotation example
- json格式化工具
- VB截取中英文混合字符串中若干半角单位长字串的函数
- flask环境
- 电脑开启自动启动程序,单任务启动程序。
- log4j + flume
- QT中监控全局键盘鼠标事件
- TCP三次握手和四次挥手
- 【设计模式】从菜鸟到大鸟之23个模式整体观
- python列表类型内建函数
- cf 579B