vb 字符串截取 资料 搜集

1. ASC(X)，Chr(X)：转换字符字符码
[格式]： 
P=Asc(X) 返回字符串X的第一个字符的字符码 
P=Chr(X) 返回字符码等于X的字符
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个字符。
4. Replace: 将字符串中的某些特定字符串替换为其他字符串 
[格式]： 
P=Replace(X,S,R) 
[说明]：将字符串X中的字符串S替换为字符串R，然后返回。
5. StrReverse：反转字符串 
[格式]： 
P=StrReverse(X) 
[说明]： 
返回X参数反转后的字符串 
6. Ucase(X)，Lcase(X)：转换英文字母的大小写 
[格式]： 
P=Lcase(X) 
‘ 将X字符串中的大写字母转换成小写 
P=Ucase(X) 
‘ 将X字符串中的小写字母转换成大写 
[说明]：除了英文字母外，其他字符或中文字都不会受到影响。
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。

**********************************************************************************************************************************************

Split函数是一个用于分割字符串的函数，它能以一个字符串内容中的一个(或几个连续的)特定的字符为切割位点的标志，将这个字符串分割成若干个小字符串。它的用法是
变量 = Split(原字符串变量, 切割标志)
下面用例子具体说明：
这里有一个字符串变量a，它的值是"你、我、他"，则
b = Split(a, "、")
此后b就变成了一个变量组，b(0)的值是"你"，b(1)的值是"我"，b(2)的值是"他"。
下面举一个应用的例子：Text1中是用文字表示的数据，格式为"数据1;数据2;数据3;……，要求点击Command1后将这些数据列在List1中。
Private Sub Command1_Click()
a = Split(Text1.Text, ";")
For i = 0 To UBound(a)
List1.AddItem a(i)
Next
End Sub

**********************************************************************************************************************************************

instr(2,"abcdef","def")
a - 1
b - 2
c - 3

返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。

语法

InStr([start, ]string1, string2[, compare])

　　InStr([start，]string1, string2[, compare])

　　InStr([起始，] 要查找的字符串，从第几个字符开始[，匹配模式])

Label1.Caption = InStr(1, "abcdefghijklmnopdqrst", "d")  返回 4  

Label1.Caption = InStr(6, "abcdefghijklmnopdqrst", "d") 返回17