VB中对字符串的处理及其扩展




 

 

　　众所周知，VB提供了许多对字符串进行常用操作的函数，像Left、Right、Trim、Mid、Len和InStr等等，能够满足大部分的应用；但对于一些特殊的用法,比如C＋＋中的strrev函数，即将字符串顺序倒置，就没有一个直接对应的函数进行处理。 

 

　　其实，通过简单的编程，即利用VB现有的字符串处理函数，完全可以解决这一问题： 

 

　　Function StrRev(str As String) As String 

 

　　 Dim rts As String 

 

　　 Dim i As Integer 

 

　　 For i = Len(str) To 1 Step －1 

 

　　　　rts = rts ＋ Mid(str, i, 1) 

 

　　 Next i 

 

　　 StrRev = rts 

 

　　End Function 

 

　　瞧，就是这么简单！ 

 

　　同样，另一个C＋＋的函数strrchr，即找出字串最后一次出现某字符的位置，也可以利用上面的函数，将字符串倒置，再查找其第一次出现的位置。 

 

　　由于VB允许用户采用最简单的＋号和＆符号串接字符串，那么下面这个功能就更容易实现了：strncat将字符串易做图定个数字符连结到另一个字符串中，即：dest=dest ＆ mid(src,m,n)，根本不用另外编函数。 

 

　　C＋＋中对字符串进行比较的函数有四五种，VB只提供最基本的一种，而其它均可通过编程来解决。朋友们有兴趣的话，可以自己做一下。 

 

　　C＋＋中处理字符串的函数还很多，在此就不一一罗列了，朋友们可以利用VB将常用的几种做成一个模块，在自己的程序中随意调用。