vbs:一段比较精简的代码实现取得字符串的"字节"数

大家都知道汉字占用两个英文字母的长度,所以索取时要将其转换为长度2,这个例子比较简单的实现了这一功能

function find1(findstr)
set rep1=new regexp
rep1.Global=true
rep1.IgnoreCase=true
rep1.Pattern="[\u4E00-\u9FA5]"
set str1=rep1.Execute(findstr)
for each i in str1
lens=lens+1
next
lens=lens + len(findstr)
msgbox "字符长度 : " & lens
end function
find1("1234567")
find1("大家好1234567")

[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]

(0)

相关推荐

  • vbs:一段比较精简的代码实现取得字符串的"字节"数

    大家都知道汉字占用两个英文字母的长度,所以索取时要将其转换为长度2,这个例子比较简单的实现了这一功能 function find1(findstr) set rep1=new regexp rep1.Global=true rep1.IgnoreCase=true rep1.Pattern="[\u4E00-\u9FA5]" set str1=rep1.Execute(findstr) for each i in str1 lens=lens+1 next lens=lens + le

  • [js]用JAVASCRIPT正则表达式限制文本字节数的代码

    做项目时自己写一段js给大家.关于文本限制字数的问题,在实际开发中经常用到;主要问题出现在对中文的限制,下面代码就解决关于限制字节数的校验问题;只要将此下代码保存到一个js文件中并引入到校验的页面中,便可使用!同时希望大家给与大力支持和宝贵意见,本人会在今后闲余之际,发表更多的好文章,谢谢!! 以下是引用片段: /*    value: 值:    byteLength:数据库字节长度    title:字段中文名称    attribute:属性名称    使用方法说明: 添加 (1) onk

  • 限制文本字节数js代码

    做项目时自己写一段js给大家.关于文本限制字数的问题,在实际开发中经常用到:主要问题出现在对中文的限制,下面代码就解决关于限制字节数的校验问题:只要将此下代码保存到一个js文件中并引入到校验的页面中,便可使用!同时希望大家给与大力支持和宝贵意见,本人会在今后闲余之际,发表更多的好文章,谢谢!! /*  value: 值:  byteLength:数据库字节长度  title:字段中文名称  attribute:属性名称  使用方法说明: 添加 (1) onkeyup="limitLength(t

  • java 实现截取字符串并按字节分别输出实例代码

    java 实现截取字符串并按字节分别输出实例代码 前言: 请编写一个截取字符串的函数,输入为一个字符串和字节数,输出为按字节截取的字符串.但是要保证汉字不被截半个,如"我ABC"4,应该截为"我AB",输入"我ABC汉DEF"6,应该输出"我ABC",而不是"我ABC"+"汉"字的半个. 2.解析思想 本题容易产生困惑的是中文字符和英文字符如何处理,在这里需要考虑汉字和英文字符的占用字节

  • vbs后台运行bat删除自身的代码

    知道真实路径的情况下 复制代码 代码如下: set fso=wscript.createobject("scripting.filesystemobject") fso.deletefile "c:\windows\system32\run.cmd" fso.deletefile "c:\windows\system32\run.vbs" 不知道具体的路径情况下,可以用如下代码: 复制代码 代码如下: Set fso =CreateObject(

  • 分享两段简单的JS代码防止SQL注入

    1.URL地址防注入: //过滤URL非法SQL字符 var sUrl=location.search.toLowerCase(); var sQuery=sUrl.substring(sUrl.indexOf("=")+1); re=/select|update|delete|truncate|join|union|exec|insert|drop|count|'|"|;|>|<|%/i; if(re.test(sQuery)) { alert("请勿

  • 9段PHP实用功能的代码推荐

    一.查看邮件是否已被阅读 当你在发送邮件时,你或许很想知道该邮件是否被对方已阅读.这里有段非常有趣的代码片段能够显示对方IP地址记录阅读的实际日期和时间. 复制代码 代码如下: <? error_reporting(0); Header("Content-Type: image/jpeg");   //Get IP if (!empty($_SERVER['HTTP_CLIENT_IP'])) {   $ip=$_SERVER['HTTP_CLIENT_IP']; } elsei

  • 用vbs分割与合并文本文件的代码

    然而想到其他地方再次下载时发现一次性导入几万个地址非常缓慢,所以有必要把它分割了:(在这个txt文件中,一个地址占一行) url_split.vbs文件内容: 复制代码 代码如下: Set fs =CreateObject("scripting.filesystemobject") Set gs =CreateObject("scripting.filesystemobject") Set f=fs.opentextfile("url.txt",

  • php实现的一段简单概率相关代码

    本文实例讲述了php实现的一段简单概率相关代码.分享给大家供大家参考,具体如下: <?php for($i=1;$i<100000;$i++){ $x=mt_rand(0,100); if($x<20){ $a=$a+1; } else{ if($x<50){ $b=$b+1; } else{ $c=$c+1; } } } echo $a . '<br />'; echo $b . '<br />'; echo $c . '<br />'; ?&

  • C++/STL实现判断平面内两条线段的位置关系代码示例

    概念 平面内两条线段位置关系的判定在很多领域都有着广泛的应用,比如游戏.CAD.图形处理等,而两线段交点的求解又是该算法中重要的一环.本文将尽可能用通俗的语言详细的描述一种主流且性能较高的判定算法. 外积,又称叉积,是向量代数(解析几何)中的一个概念.两个二维向量v1(x1,y1)和v2(x2,y2)的外积v1×v2=x1y2-y1x2.如果由v1到v2是顺时针转动,外积为负,反之为正,为0表示二者方向相同(平行).此外,文中涉及行例式和方程组的概念,请参阅线性代数的相关内容. 为方便计算,对坐

随机推荐