VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
12
返回列表 发新帖
楼主: 261001126

[经验技巧] VB字符串处理函数一览

[复制链接]
发表于 2008-12-9 19:44:03 | 显示全部楼层
楼上的办法要遍历每个字符,速度比较慢,以下是我以前计算中英文字数用的一个方法

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


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

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

[ 本帖最后由 阳光宝宝 于 2008-12-9 19:47 编辑 ]
回复 支持 反对

使用道具 举报

发表于 2008-12-10 19:38:47 | 显示全部楼层
mark...
慢慢吸收#89
回复 支持 反对

使用道具 举报

发表于 2008-12-10 20:42:46 | 显示全部楼层

回复 #11 阳光宝宝 的帖子

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)
回复 支持 反对

使用道具 举报

发表于 2008-12-10 20:54:33 | 显示全部楼层
原帖由 261001126 于 2008-12-8 09:31 发表
抛块砖终于引出玉了~~~~~

一点不假!
这个帖子放到新手区比较好哦
回复 支持 反对

使用道具 举报

发表于 2008-12-20 17:56:11 | 显示全部楼层
好贴不能沉
回复 支持 反对

使用道具 举报

发表于 2012-5-16 17:29:03 | 显示全部楼层
好东西,留个记号
回复 支持 反对

使用道具 举报

发表于 2012-5-17 22:26:36 | 显示全部楼层
本帖最后由 Igawk 于 2012-5-17 22:28 编辑

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

只能说 VB的设计者 “脑子坏了”
回复 支持 反对

使用道具 举报

发表于 2012-5-23 13:19:58 | 显示全部楼层
收藏并留爪记住!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-6-29 21:32

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表