VB字符串处理函数一览

阳光宝宝

楼上的办法要遍历每个字符，速度比较慢，以下是我以前计算中英文字数用的一个方法

1. 中文字数 = LenB(StrConv(中英文混合字串, vbFromUnicode)) - Len(中英文混合字串)
   
2. 段落数 = Len(中英文混合字串) - Len(Replace(中英文混合字串, vbCrLf, "", 1, -1, vbTextCompare))
   
3. 英文字数 = LenB(StrConv(中英文混合字串, vbFromUnicode)) - 中文字数 * 2 - 段落数

复制代码

如果这个字符串没有回车换行符的话，就不用计算段落数了

不过，要做到能象我前面说的那样截取的话，就要费些周折了

[ 本帖最后由 阳光宝宝 于 2008-12-9 19:47 编辑 ]

yoyoyon

mark...
慢慢吸收#89

仙剑魔

Dim s As String, c As String
s = StrConv("100个苹果", vbFromUnicode)
'lenCE("100个苹果") = 9
Print LenB(s)
'LeftCE("100个苹果", 5) = "100个"
c = LeftB(s, 5)
Print StrConv(c, vbUnicode)
'RightCE("100个苹果", 4) = "苹果"
c = RightB(s, 4)
Print StrConv(c, vbUnicode)
'MidCE("100个苹果", 4, 2) = "个"
c = MidB(s, 4, 2)
Print StrConv(c, vbUnicode)

tonycasablanca

原帖由 261001126 于 2008-12-8 09:31 发表
抛块砖终于引出玉了～～～～～

一点不假！
这个帖子放到新手区比较好哦

DreamonII

好贴不能沉

feixunwb

好东西，留个记号

Igawk

format 和 formatnumber 都无法实现QB的 Using “####.###"功能

只能说 VB的设计者 “脑子坏了”

danxingpen

收藏并留爪记住!