VB截取中英文混合字符串中若干半角单位长字串的函数
发布时间:2020-12-17 07:43:39 所属栏目:百科 来源:网络整理
导读:转自:http://blog.csdn.net/jhycjhyc/article/details/3789937 Public Function leftMix(ByVal sourceString As String,ByVal mixlen As Integer) As String '此函数用于从中英文混合字串中从左开始以半角字符的长度为单位截取若干字符,以避免该字符写入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 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |
相关内容
- Vue简介以及基本使用
- oracle – 两部分单一索引是什么意思?
- logback logback.xml常用配置详解(三) <filter>
- 将24位,小端,两位补码值转换为C#中的整数的最佳实践?
- c – 如何在同一个可变参数模板的不同实例之间进行转换?
- c# – 为什么Activator.CreateInstance()不允许new()泛型类
- cocos2dx 2.x 粒子渲染时有黑色粒BUG
- JQuery.getJSON()方法调用Servlet的List数据,然后填充到下
- Ajax 跨域访问 tomcat 下的 web service
- c# – 构建一个简单的Web服务器,我可以作为Windows服务运行