VB常用字符串函数

ever__f

ASC(X)，Chr(X)：转换字符字符码  

[格式]：  
P=Asc(X) 返回字符串X的第一个字符的字符码  
P=Chr(X) 返回字符码等于X的字符  

[范例]：  
(1)P=Chr(65)  
‘ 输出字符A,因为A的ASCII码等于65  
(2)P=Asc(“A”)  
‘ 输出65  


2. Len(X)： 计算字符串X的长度  
[格式]：  
P=Len(X)  
[说明]：  
空字符串长度为0，空格符也算一个字符，一个中文字虽然占用2 Bytes，但也算一个字符。  

[范例]：  
(1) 令X=”” (空字符串)  
Len(X) 输出结果为0  
(2) 令X=”abcd”  
Len(X) 输出结果为4  
(3) 令X=”VB教程”  
Len(X) 输出结果为4  


3. Mid(X)函数：读取字符串X中间的字符  
[格式]：  
P=Mid(X,n)  
由X的第n个字符读起，读取后面的所有字符。  
P=Mid(X,n,m)  
由X的第n个字符读起，读取后面的m个字符。  

[范例]：  
(1) X=”abcdefg”  
P=Mid(X,5)  
结果为：P=”efg”  
(2) X=”abcdefg”  
P=Mid(X,2,4)  
结果为P=”bcde”  


4. Replace: 将字符串中的某些特定字符串替换为其他字符串  
[格式]：  
P=Replace(X,S,R)  
[说明]：将字符串X中的字符串S替换为字符串R，然后返回。  

[范例]：  
X=”VB is very good”  
P=Replace(X,good,nice)  
输出结果为：P=”VB is very nice”  


5. StrReverse：反转字符串  
[格式]：  
P=StrReverse(X)  
[说明]：  
返回X参数反转后的字符串  
[范例]：  
（1）X=”abc”  
P=StrReverse(X)  
输出结果：P=”cba”  


6. Ucase(X)，Lcase(X)：转换英文字母的大小写  
[格式]：  
P=Lcase(X)  
‘ 将X字符串中的大写字母转换成小写  
P=Ucase(X)  
‘ 将X字符串中的小写字母转换成大写  
[说明]：除了英文字母外，其他字符或中文字都不会受到影响。  

[范例]：  
（1） 令 X=”VB and VC”  
则Lcase(X)的结果为”vb and vc”，Ucase(X)的结果为”VB AND VC”  


7. InStr函数：寻找字符串  
[格式]：  
P=InStr(X,Y)  
从X第一个字符起找出Y出现的位置  
P=InStr(n,X,Y)  
从X第n个字符起找出Y出现的位置  
[说明]：  
（1） 若在X中找到Y，则返回值是Y第一个字符出现在X中的位置。  
（2） InStr(X,Y)相当于InStr(1,X,Y)。  
（3） 若字符串长度，或X为空字符串，或在X中找不到Y，则都返回0。  
（4） 若Y为空字符串，则返回0。

----------------------------------------------------------------------------------------------

mid(字符串，从第几个开始，长度)  ByRef  在[字符串]中[从第几个开始]取出[长度个字符串]
例如 mid(\"小欣无敌\",1,3) 则返回 \"小欣无\"

instr(从第几个开始,字符串1,字符串2)  ByVal  从规定的位置开始查找，返回字符串2在字符串1中的位置
例如 instr(1,\"小欣无敌\",\"小\") 则返回 1,instr(2,\"小欣无敌\",\"小\")，则返回 0 。 0 表示未找到

InStrRev(字符串1,字符串2,从第几个开始) ByVal 从规定的位置开始，从后住前查找，返回字符串2在字符串1中的位置，此处注意，虽是从后住前查找，但是返回的值还是从前往后算的。
例如 instrRev(\"小欣无敌\",\"小\",2) 则返回 2 ; instrRev(\"小欣无敌\",\"欣\",1) 则返回 0 ,因为它从\"小欣无敌\"的第1个字开始往前查找，所以找不到 。0 表示未找到

left(字符串,长度) ByVal 从[字符串]的左边开始返回[长度]个字符
例如 Left(\"小欣无敌,3) 则返回 \"小欣无\"

right(字符串,长度) ByVal 从[字符串]的右边开始返回[长度]个字符
例如 Right(\"小欣无敌\",3) 则返回 \"欣无敌\"

ucase(字符串) ByVal 返回[字符串]的大写形式，只对英文字符有效
例如 ucase(\"xiaoXINwuDi\") 则返回 \"XIAOXINWUDI\"

lcase(字符串) ByVal 返回[字符串]的小写形式，只对英文字符有效
例如 lcase(\"xiaoXINwuDi\") 则返回 \"xiaoxinwudi\"

asc(字符) Byval返回[字符]的ascii编码，若有多个字符，则只返回首字符的ascii编码,和Chr()函数是一个可逆的过程
例如 asc(\"小\") 则返回 -12127 ; asc(\"小欣无敌\") 也返回 -12127

chr(ASCii编码) Byval 返回[Ascii]编码所代表的字符，和Chr()函数是一个可逆的过程
例如 chr(-12127) 则返回 \"小\" ；chr(asc(\"小\")) 则返回\"小\"(这里是为了说明asc和chr的可逆性，例用此特性可以加密文本)

trim(字符串) Byval 返回去掉了前、后之后的[字符串]
例如 trim(\"   小 欣  无敌  \") 则返回 \"小 欣  无敌\" ，中间的空格不受任何影响

string(个数,字符) Byval 返回[个数]个[字符]
例如 string(3,\"小\") 则返回 \"小小小\" , 而 string(3,\"小欣无敌\") 也返回 \"小\"，只有首字符才有效

space(个数) Byval 返回[个数]个空格
例如 space(5) 则返回 \"   \"

strconv(字符串,转换的类型) Byval 将字符串转成指定的类型。常用的类型只有两个,vbwide 半角转成全角,vbNarrow 全角转成半角
例如 strconv(\"xiao\",vbwide) 则返回 \"ＸＩＡＯ\",而strconv(\"ＸＩＡＯ\",vbnarrow) 则返回 \"XIAO\"
'备注 vbwide = 4 ,vbnarrow = 8

len(字符串) Byval 返回[字符串]的长度
例如 len(\"小欣无敌\") 则返回 4

------------------------------------------------------------------------------------------

Len Len(string|varname) 返回字符串内字符的数目，或是存储一变量所需的字节数  
Trim Trim(string) 将字符串前后的空格去掉  
Ltrim Ltrim(string) 将字符串前面的空格去掉  
Rtrim Rtrim(string) 将字符串后面的空格去掉  
Mid Mid(string,start,length) 从string字符串的start字符开始取得length长度的字符串，如果省略第三个参数表示从start字符开始到字符串结尾的字符串  
Left Left(string,length) 从string字符串的左边取得length长度的字符串  
Right Right(string,length) 从string字符串的右边取得length长度的字符串  
LCase LCase(string) 将string字符串里的所有大写字母转化为小写字母  
UCase UCase(string) 将string字符串里的所有大写字母转化为大写字母  
StrComp StrComp(string1,string2[，compare]) 返回string1字符串与string2字符串的比较结果，如果两个字符串相同，则返回0，如果小于则返回-1，如果大于则返回1
InStr InStr(string1,string2[, compare]) 返回string1字符串在string2字符串中第一次出现的位置
Split Split(string1,delimiter[, count[, start]]) 将字符串根据delimiter拆分成一维数组，其中delimiter用于标识子字符串界限。如果省略，使用空格(\"\")作为分隔符。
count 返回的子字符串数目，-1 指示返回所有子字符串。
start为 1 执行文本比较；如果为 0 或者省略执行二进制比较。  
Replace Replace(expression, find, replacewith[, compare[, count[, start]]]) 返回字符串，其中指定数目的某子字符串(find)被替换为另一个子字符串(replacewith)


--------------------------------------------------------------------------------


[示例：]

1、Len函数示例：
下面的示例利用 Len 函数返回字符串中的字符数目：
Dim MyString
MyString = Len(\"VBSCRIPT\") 'MyString 包含 8。
2、Trim、Ltrim、Rtrim函数示例：
下面的示例利用 LTrim, RTrim, 和 Trim 函数分别用来除去字符串开始的空格、尾部空格、 开始和尾部空格：
Dim MyVar
MyVar = LTrim(\"  vbscript \")  'MyVar 包含 \"vbscript \"。
MyVar = RTrim(\"  vbscript \")  'MyVar 包含 \"  vbscript\"。
MyVar = Trim(\"  vbscript \")  'MyVar 包含\"vbscript\"。
3、Mid函数示例：
下面的示例利用 Mid 函数返回字符串中从第四个字符开始的六个字符：
Dim MyVar
MyVar = Mid(\"VB脚本is fun!\", 4, 6) 'MyVar 包含 \"Script\"。
4、Left函数示例：
下面的示例利用Left 函数返回MyString 的左边三个字母：
Dim MyString, LeftString
MyString = \"VBSCript\"
LeftString = Left(MyString, 3) 'LeftString 包含 \"VBS
5、Right函数示例：
下面的示例利用 Right 函数从字符串右边返回指定数目的字符：
Dim AnyString, MyStr
AnyString = \"Hello World\"    '定义字符串。
MyStr = Right(AnyString, 1)   '返回 \"d\"。
MyStr = Right(AnyString, 6)   ' 返回 \" World\"。
MyStr = Right(AnyString, 20)  ' 返回 \"Hello World\"。
6、LCase函数示例：
下面的示例利用 LCase 函数把大写字母转换为小写字母：
Dim MyString
Dim LCaseString
MyString = \"VBSCript\"
LCaseString = LCase(MyString) ' LCaseString 包含 \"vbscript\"。
7、 UCase函数示例：
下面的示例利用 UCase 函数返回字符串的大写形式：
Dim MyWord
MyWord = UCase(\"Hello World\")   ' 返回\"HELLO WORLD\"。
8、StrComp函数示例：
下面的示例利用 StrComp 函数返回字符串比较的结果。如果第三个参数为 1 执行文本比较；如果第三个参数为 0 或者省略执行二进制比较。
Dim MyStr1, MyStr2, MyComp
MyStr1 = \"ABCD\": MyStr2 = \"abcd\"    '定义变量。
MyComp = StrComp(MyStr1, MyStr2, 1)   ' 返回 0。
MyComp = StrComp(MyStr1, MyStr2, 0)   ' 返回 -1。
MyComp = StrComp(MyStr2, MyStr1)    ' 返回 1。
9、InStr示例：
下面的示例利用 InStr 搜索字符串：
Dim SearchString, SearchChar, MyPos
SearchString =\"XXpXXpXXPXXP\"???
SearchChar = \"\"??
MyPos = Instr(SearchString, SearchChar)???'返回 9.
注意：返回的不是一个字符串在另一个字符串中第一次出现的字符位置，而是字节位置。
10、Split函数示例：
Dim MyString, MyArray, Msg
MyString = \"VBScriptXisXfun!\"
MyArray = Split(MyString, \"x\",-1,1)
' MyArray(0) contains \"VBScript\".
' MyArray(1) contains \"is\".
' MyArray(2) contains \"fun!\".
Response.Write(MyArray(0))
11、Replace函数示例：
Replace(\"ABCD\", \"BC\", \"12\")  '得到A12D

------------------------------------------------------------------------------------------------

　1．Chr[$]（数值）函数
　　返回标准扩展码的对应字符。
　　说明：
　　（1）数值范围在0到255之间。
　　（2）Chr（）返回的是数值类型，而Chr$（）则返回字符类型。
　　（3）ANSI是ASCII码的扩充，其前128个字符都与ASCII码相同。
　　例如，我们常用以下的语句加入回车换行符。Chr（13）+Chr（10）
　　2．Asc（\"字符\"）函数
　　此函数用来返回字符的ANSI码值。
　　说明： 若输入为一字符串，则只返回第一个字符的ASCII码值。
　　例如，
　　　　x=Asc（\"a\"），则， x=97
　　　　x=Asc（\"ab\"），则，x=97
　　3．String[$]（个数，字符）
　　用于重复某一个字符。
　　说明：
　　（1）“个数”用来指定重复的次数。
　　（2）若“字符”为一字符串，则只重复复制第一个字符。
　　4．Len（字符串） 函数
　　用于返回字符串的长度。
　　5．Left[$]（字符串，字符个数）
　　用于返回“字符串”最左边的长度为“字符个数”的字符串。
　　例如，
　　　　Dim substr As String
　　　　substr=Left（\"Visual Basic\",3）
　　　　则
　　　　substr=\"Vis\"
　　6．Right[$]（字符串，字符个数）
　　用于返回“字符串”最右边的长度为“字符个数”的字符串。
　　例如，
　　　　Dim substr As String
　　　　substr=Right（\"Visual Basic\",3）
　　　　则
　　　　substr=\"sic\"
　　7．Mid[$]（字符串，起始位置，[字符个数]）
　　用于返回一个子字符串。
　　说明：
　　（1）子字符串从“起始位置”开始，以“字符个数”为长度。
　　（2）若省略“字符个数”，则从起始位置到字符串的结尾。
　　8．Lcase（字符串）和Ucase（字符串）函数
　　Lcase：不论字符串中的字符为大写还是小写，一律输出为小写。
　　Ucase：不论字符串中的字符为大写还是小写，一律输出为小写。
　　9．Ltrim（字符串）、Rtrim（字符串）、Trim（字符串）函数
　　Ltrim（字符串）：用于去掉字符串中左边的空格。
　　Rtrim（字符串）：用于去掉字符串中右边的空格。
　　Trim（字符串）：用于去掉字符串中左右两边的空格。
　　10．Str（数值）函数 和 Val（字符串） 函数
　　Str（数值）：用于将数字转化为字符串。
　　Val（字符串）：用于将字符串转化为数值。
　　例如，
　　　　Dim a As String
　　　　Dim b As Long
　　　　a=Str（345.45）
　　　　b=Val（\"234.45\"）
　　　　则
　　　　a=\"345.45\"
　　　　b=234.45

http://hi.baidu.com/2008yuweipin ... e4dd1dd21b70ef.html
实用的东西，这两天做一个VBA正好用到。