显示左边的n个字符(自动识别汉字)函数

2016-01-29 18:27 0 1 收藏

显示左边的n个字符(自动识别汉字)函数,显示左边的n个字符(自动识别汉字)函数

【 tulaoshi.com - ASP 】

rem 显示左边的n个字符(自动识别汉字)
Function LeftTrue(str,n)

      If len(str)<=n/2 Then
            LeftTrue=str
      Else
            Dim TStr
            Dim l,t,c
            Dim i
            l=len(str)
            t=l
            TStr=""
            t=0
            for i=1 to l
                  c=asc(mid(str,i,1))
                  If c<0 then c=c+65536
                  If c255 then
                        t=t+2
                  Else
                        t=t+1
                  End If
                  If tn Then exit for
                  TStr=TStr&(mid(str,i,1))
            next
            LeftTrue = TStr
      End If

End Function

来源:http://www.tulaoshi.com/n/20160129/1505870.html

上一篇： ASP创建EXCHANGE用户的一段代码
下一篇：图片循环显现

看过《显示左边的n个字符(自动识别汉字)函数》的人还看了以下文章更多>>

在PHP的图形函数中显示汉字

标签： Web开发

如何在PHP图形函数中显示汉字，大家已经问了很久了，但一直没有结果。终于在参考另一篇文章后，我试验出来了！方法：首先，决定要显示哪些汉字，如“计数器”这三个字。到Word2000（97不知可不可以）中去，输入这三个字，另存为，选择编码格式，然后再在右边的编码类型里选择unicode utf-8，记住不要选错了。存成一个编码格式的文本文...

Word2007中首行缩进2个字符设置

标签： word

Word2007中首行缩进2个字符设置 1、框选Word文稿中的内容右键选择段落。 2、设置段落按照下图修改。 3、修改完成后看1、3这两个步骤中的段落是不是明显的有变化。在Word2007中使用Tab键输入多级编号列表第1步，打开Word2007文档窗口，在开始功能区的段落分组中单击编号下拉图老师三角按钮。并在打开的编...

计算一个字符串在另一字符串中出现的次数函数

标签： Web开发

Function strnum(patrn, strng) Dim regEx, Match, Matches,xx xx=0 Set regEx = New RegExp regEx.Pattern = patrn regEx.IgnoreCase = True &nbs...

影响Oracle汉字显示的字符集问题

标签：编程语言网络编程

在国内外大中型数据库管理系统中，把 ORACLE 作为数据库管理平台的用户比较多。 ORACLE 不论是数据库管理能力还是安全性都是无可非议的，但是，它在汉字信息的显示方面着实给中国用户带来不少麻烦，笔者多年从事 ORACLE 数据库管理，经常收到周围用户和外地用户反映有关 ORACLE 数据库汉字显示问题的求援信，主要现象是把汉字显示为...

mysql 截取指定的两个字符串之间的内容

标签：编程语言网络编程

如现有字符串 "[]aseabcd[12345]ddxabcdsx[]"，要截取"abcd[" 和 "abcd["之后的第一个 "]" 之间的内容 "12345"，当然当中的内容长度不是固定的，可以是"123456" 或者其他字符串。他问我的时候，我第一反应就是想的indexOf,后来查了下发现mysql中没有indexOf 而是 locate。经过半个多小时的尝试，最好帮他实现了这个效果。代码如下： ...

查看更多精彩>>