VB 汉字字符串的截取LEN、LEFT、RIGHT

大佬教程收集整理的这篇文章主要介绍了VB 汉字字符串的截取LEN、LEFT、RIGHT，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

自从VB4.0后，就把汉字看做是1个字符了。这给我们的字符串的截取带来了严重的麻烦！

如果是汉字+数字或字母的字符串，往往截取到的字符串长度不是理想中的，其中涉及到的函数有LEN、LEFT、RIGHT我自己编写了如下3个函数，用来取代 len()、left()、right()，希望能解决您的问题。'--------------------------------------------------------'Name:lenX'Argument:uStr'Return:'Description:返回字符串的长度，1个中文字符长度为2'--------------------------------------------------------function lenX(byval uStr)dim t@R_801_11423@en,x,testuStrt@R_801_11423@en = 0for x = 1 to len(uStr)testuStr = mid(uStr,1)if asc(testuStr) < 0 thent@R_801_11423@en = t@R_801_11423@en + 2elset@R_801_11423@en = t@R_801_11423@en + 1end ifnextlenX = t@R_801_11423@enend function'--------------------------------------------------------'Name:leftX'Argument:uStr待处理的字符串'uLen要截取的长度'Return:'Description:返回指定长度的字符串，1个中文字符长度为2'--------------------------------------------------------function leftX(byval uStr,byval uLen)dim i,j,uTestStr,theStrleftX = ""j = 0for i = 1 to len(uStr)uTestStr= mid(uStr,i,1)theStr= theStr & uTestStrif asc(uTestStr) < 0 thenj = j + 2elsej = j + 1end ifif j >= uLen then exit fornextleftX = theStrend function'--------------------------------------------------------'Name:rightX'Argument:uStr待处理的字符串'uLen要截取的长度'Return:'Description:返回指定长度的字符串，1个中文字符长度为2'--------------------------------------------------------function rightX(byval uStr,uTestStrrightX = ""j = 0for i = len(uStr) to 1 step -1uTestStr = mid(uStr,1)rightX = rightX & uTestStrif asc(uTestStr) < 0 thenj = j + 2elsej = j + 1end ifif j >= uLen then exit fornextend function

大佬总结

以上是大佬教程为你收集整理的VB 汉字字符串的截取LEN、LEFT、RIGHT全部内容，希望文章能够帮你解决VB 汉字字符串的截取LEN、LEFT、RIGHT所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。