秋叶抚风 - 博客园

'*************************************
'切割内容 - 按字符分割
'中文算2个字符
'*************************************
Function CutStr(byVal Str,byVal StrLen)
     Dim l,t,c,i
     If IsNull(Str) Then CutStr="":Exit Function
     l=Len(str)
     StrLen=int(StrLen)
     t=0
     For i=1 To l
         c=Asc(Mid(str,i,1))
         If c >= 0 And c <= 255 Then t=t+1 Else t=t+2
         IF t>StrLen Then
             CutStr=left(Str,i-1)&"..."
             Exit For
         Else
             CutStr=Str
         End If
     Next
End Function

将整站转换成UTF-8编码时，这个函数不能使用了。因为很明显，他的判断方法是 if asc(mid(str,x,1)) < 0 Then ，而非ASCII编码的页面中，ASC函数也就失去了作用。于是查找了相关的资料，终于找到解决方案：

Asc 返回输入字符的代码数据点或字符代码。对于单字节字符集 (SBCS)，返回值范围为 0 到 255；对于双字节字符集 (DBCS)，返回值范围为 -32768 到 32767。返回值取决于当前线程的代码页，该代码页包含在 TextInfo 类的 ANSICodePage 属性中。可以通过指定 System.Globalization.CultureInfo.CurrentCulture.TextInfo.ANSICodePage 来获得 TextInfo.ANSICodePage。

AscW 返回输入字符的 Unicode 代码数据点。返回值范围为 0 到 65535。返回值与当前线程的区域性和代码页设置无关。

注意对于字节，Visual Basic 早期版本的 AscB 函数返回的是代码，而不是字符。它主要用于在双字节字符集 (DBCS) 应用程序中转换字符串。所有 Visual Basic .NET 字符串均采用 Unicode 的形式，并且不再支持 AscB。

也就是说，在utf-8编码格式下，需要用AscW来“辨认”中英文才行！

至此，将上面CutStr函数中

以下是引用片段：
c=Asc(Mid(str,i,1))

修改为

以下是引用片段：
c=AscW(Mid(str,i,1))

结果如预期效果一致！

相关演示如本网站侧边栏文章列表，截取自定义长度，中文为两字符！

附Asc函数的相关知识：

以下是引用片段：
Asc 函数

      返回与字符串的第一个字母对应的 ANSI 字符代码。

Asc(string)
   string 参数是任意有效的字符串表达式。如果 string 参数未包含字符，则将发生运行时错误。

说明
下面例子中, Asc 返回每一个字符串首字母的 ANSI 字符代码:

Dim MyNumber
MyNumber = Asc("A")       ''返回 65。
MyNumber = Asc("a")       ''返回 97。
MyNumber = Asc("Apple")   ''返回 65。

注意    AscB 函数和包含字节数据的字符串一起使用。AscB 不是返回第一个字符的字符代码，而是返回首字节。AscW 是为使用 Unicode 字符的 32 位平台提供的。它返回 Unicode （宽型）字符代码，因此可以避免从 ANSI 到 Unicode 的代码转换。

原创文章如转载，请注明出处：泡泡网络教程 [ http://www.hugo8.com ]
本文链接地址:http://www.hugo8.com/article.asp?id=118

posted @ 2010-09-10 10:37 秋叶抚风阅读(32) 评论(0) 编辑

2010年4月14日

CodeSmith.Professional.5.2.0.10552.破解

CodeSmith.Professional.5.2.0.10552.Setup&Crack.rar
我放到115网盘了，大家来这里下载：
http://u.115.com/file/f8555d7260

posted @ 2010-04-14 10:06 秋叶抚风阅读(1207) 评论(1) 编辑

Microsoft Expression Studio 3 破解

Microsoft Studio 3

1) Download Microsoft Studio 3 http://www.microsoft.com/downloads/details.aspx?familyid=7E2F033B-C6B5-4565-93A5-A6048246CE28&displaylang=en
2) Install Microsoft Studio 3
3) Copy SLDL_DLL.dll to the root directory of each product and replace the existing files.
4) Microsoft Expression Studio 3 破解文件下载地址：http://u.115.com/file/f847d5c674

posted @ 2010-04-14 09:52 秋叶抚风阅读(469) 评论(0) 编辑

2009年9月25日

WebsiteSpark是免费软件吗？

　　微软WebsiteSpark是免费的吗？
　　不是！
　　首先，我们从首页http://www.microsoft.com/web/WebsiteSpark/default.aspx，点击了解更多信息下载WebsiteSpark+Program+Guide_zn-ch.pdf文档。

　　打开文档，看第5页，第6页。
　　 * 在WebsiteSpark 参与期结束时支付100 美元的计划产品费用

　　所以说，WebsiteSpark 不是免费的。
　　有兴趣的朋友，可以看看这个链接，英文的：http://weblogs.asp.net/kencox/archive/2009/09/24/websitespark-free-software-not-exactly.aspx

posted @ 2009-09-25 22:47 秋叶抚风阅读(200) 评论(0) 编辑

2009年4月11日

vs2008中添加“我的模板”，代码自动加版权注释

posted @ 2009-04-11 17:07 秋叶抚风阅读(1617) 评论(3) 编辑

2008年12月31日

麦咖啡(McAfee)落井下石？珊瑚虫CoralQQ.exe有毒？

摘要: 一直都是使用珊瑚虫QQ今天早上，照常打开QQ，发现麦咖啡(McAfee)提示CoralQQ.exe有毒，我气啊，一直都用好好的，怎么今天就有毒了？是不是珊瑚虫出事了，麦咖啡(McAfee)就落井下石了？阅读全文

posted @ 2008-12-31 16:51 秋叶抚风阅读(199) 评论(1) 编辑

2008年12月9日

重写 DropDownList SelectedValue 解决有一个无效 SelectedValue，因为它不在项目列表中

摘要: -　　使用DropDownList绑定数据时，有时候会出现问题：有一个无效 SelectedValue，因为它不在项目列表中　　产生这个问题的原因是，需绑定的SelectedValue值，在DropDownList中不存在。所以系统抛出异常：　　异常详细信息: System.ArgumentOutOfRangeException: “SupplierDrpDwnLst”有一...阅读全文

posted @ 2008-12-09 20:57 秋叶抚风阅读(1940) 评论(1) 编辑

仅列出标题下一页

公告

昵称：秋叶抚风
园龄：3年2个月
粉丝：4
关注：2

2012年2月

日

一

二

三

四

五

六

搜索

常用链接

我的标签

随笔档案

相册

vs2008

友情链接

sodiy博客 (rss)

Microsoft Studio 3

公告

搜索

常用链接

我的标签

随笔档案

相册

友情链接

最新评论

阅读排行榜

评论排行榜

推荐排行榜