| VB 源码 | VC 源码 | ASP源码 | JSP源码 | PHP源码 | CGI源码 | FLASH源码 | 素材模板 | C 源程序 | 站长工具 | 站长教程 |

VB技术

ASP技术
PHP技术
JSP技术
VB技术
.NET技术

本类阅读TOP10

·利用shell编程实现DOS风格的Linux命令行
·新手必学:windows网络编程经典入门
·通过连接实例解读TCP/IP协议
·JAVA生成JPG缩略图
·一组VB实用小程序
·VB解决Unicode文本转换的问题
·用VB制作屏幕保护程序
·Visual Basic开发应用程序答疑
·用VB6实现中英文文本的私钥加密
·用VB学做“黑客”程序

站内搜索

VB中字符串中文的问题

  字串中文的问题,起於vb的字串是使用UniCode,而我们一般是使用Ascii Code。

  这差别在何处呢?UniCode的每个字元长度是2个byte,而Ascii是一个byte,如果说,我将们将VB的字串写入档案,有时会有意想不到的结果。例如:Text1.Text = "这是一个abc" len5 = Len(str5)

  如果我们的Access资料库有一栏位的长度是10个Byte,所以我们在TextBox中设定MaxLength = 10,但是上面的例子得到的len5是7,而不是我们认为的11,因为不管是中文或英文,vb一律以UniCode来存,所以str5的长度是7个"字元",而text1最大的长度限制是10,7没有超过10,故使用者仍可输入,但存档时,11个byte超过10个byte,所以会有错。

  可是或许有人发现,使用RS232来传资料时,另一端主机是Ascii编码的机器,在vb中我们若使用String来传,一样可以通啊,其实那是vb在传送与接收data时,会做转换,使我们的程式设计较方便,但如果传的资料是Binary时,就头大啦。例如说,以字串的方式来传送资料,当想传Ascii 大於128时,常有些问题,因为ASC(Chr(129))=0,使我们不能用Chr()的指令来放资料。(事实上,您可以使用ChrW(129)来存资料,和使用AscW()来取得值,加个W代表是Word的运算),这时候,就只有使用Byte Array来做了。1.UniCode转成ByteAryDim byteAry() As Byte Dim str5 As String Dim i As Long str5 = "这abc"

  byteAry = str5 For i = LBound(byteAry) To UBound(byteAry)

  Debug.Print byteAry(i) '得 25 144 97 0 98 0 99 0 Next i

  Debug.Print Len(str5), LenB(str5) '得4 8

  所以了,可看出UniCode 的特性,程式应改一下,使用Strconv()来转换 Dim byteAry() As Byte

  Dim str5 As String Dim i As Long str5 = "这abc"

  byteAry = StrConv(str5, vbFromUnicode)

  For i = LBound(byteAry) To UBound(byteAry)

  Debug.Print byteAry(i) '得 25 144 97 98 99 Next i

  Debug.Print LenB(StrConv(str5, vbFromUnicode)) '得5

  2.ByteAry转回UniCode 使用Strconv()转换 Dim byteAry(10) as Byte Dim Str5 as String

  byteAry(0) = 25 byteAry(1) = 144 byteAry(2) = 97 byteAry(3) = 98

  byteAry(4) = 99 Str5 = StrConv(byteAry, vbUniCode)3.一些有用的函式SubStr() 中文化取子字串,相对Mid()

  Strlen() 中文化字串长度,相对Len()

  StrLeft() 中文化取左字串,相对Left()

  StrRight() 中文化取右字串,相对Right()

  isChinese() Check某个字是否中文字

  Public Function SubStr(ByVal tstr As String, start As Integer, Optional leng As Variant) As String

  Dim tmpstr As String

  If IsMissing(leng) Then

  tmpstr = StrConv(MidB(StrConv(tstr, vbFromUnicode), start), vbUnicode)

  Else

  tmpstr = StrConv(MidB(StrConv(tstr, vbFromUnicode), start, leng), vbUnicode)

  End If

  SubStr = tmpstr

  End Function

  Public Function Strlen(ByVal tstr As String) As Integer

  Strlen = LenB(StrConv(tstr, vbFromUnicode))

  End Function

  Public Function StrLeft(ByVal str5 As String, ByVal len5 As Long) As String

  Dim tmpstr As String

  tmpstr = StrConv(str5, vbFromUnicode)

  tmpstr = LeftB(tmpstr, len5)

  StrLeft = StrConv(tmpstr, vbUnicode)

  End Function

  Public Function StrRight(ByVal str5 As String, ByVal len5 As Long) As String

  Dim tmpstr As String

  tmpstr = StrConv(str5, vbFromUnicode)

  tmpstr = RightB(tmpstr, len5)

  StrLeft = StrConv(tmpstr, vbUnicode)

  End Function

  Public Function isChinese(ByVal asciiv As Integer) As Boolean

  If Len(Hex$(asciiv)) > 2 Then

  isChinese = True

  Else

  isChinese = False

  End If

  End Function




相关文章
  • 精通PHP的十大要点
  • VB解决Unicode文本转换的问题
  • 一个基于WEB的QQ程序
  • 使用xmlhttp查询域名是否被注的小程序
  • 用VB6实现中英文文本的私钥加密
  • 一组VB实用小程序
  • 用VB编写异步多线程下载程序
  • 屏保程序模板化完整源代码
  • VB中实现窗体自动隐藏
  • 用VB编写网络监控软件
  • VB到底为我们做了什么?
  • 键盘幽灵VB版
  • 用VB编写定时关闭计算机的程序
  • 用MCI命令做一个播放器
  • 使用VB在WIN2000下截获IP数据包
  • 用VB制作屏幕保护程序
  • VB枚举主机IP
  • 用VB编写一个弹出菜单类
  • 自己的IE——用VB制作浏览器
  • 使用插件功能扩展VB
  • 相关软件

  • VBScript编辑器源码  
  • 字体观察器FontViewer源码  
  • 自动壁纸更换器源码[第二部分]  
  • 自动壁纸更换器源码[第一部分]  
  • WINDOWS 3.0终端程序的C源码  
  • 一个取得 CPU 信息的程序源码  
  • 广告窗口终结者源码  
  • 下载整个网站程序ssnag与源码  
  • CGI邮件程序源码  
  • ISAPI留言簿源码  



  • 月光软件源码下载编程文档电脑教程网站优化网址导航网络文学游戏天地生活休闲写作范文安妮宝贝站内搜索
    电脑技术编程开发网络专区谈天说地情感世界游戏元素分类游戏热门游戏体育运动手机专区业余爱好影视沙龙
    音乐天地数码广场教育园地科学大观古今纵横谈股论金人文艺术医学保健动漫图酷二手专区地方风情各行各业

    月光软件站·版权所有