Question

VB6截取字符串内容

我想从一个网址中截取有效信息，例如：www.example.com/example.aspx?name=123&id=10 ，那么我想得到123和10，这个该如何实现呢？

Answer 1

常用字符串操作函数

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。

Answer 2

，输出结果正确
string str="<a href=\"aaa\">";//把字符串内容赋值，这里需要把字符串里面的双引号使用转义字符\"，否则没法赋值给字符串
string[] strArray=str.Split('"');//使用的是Split函数，两个单引号内的双引号是分隔符，这里把字符串分割成三个字符串，具体用法百度
Response.Write(strArray[1]);//输出结果，strArray[1]里面的1是指的第二个分割后的第二个字符串，第一个字符串是0，第三个是2。或者控制台输出：Console.Write(strArray[1]);

Answer 3

来个简单的
Private Sub Command1_Click()
str1 = InputBox("")
a = InStr(1, str1, "name=")
Print Mid(str1, a + 5, InStr(a, str1, "&") - a - 5)
Print Mid(str1, InStr(1, str1, "id=") + 3)
End Sub

Answer 4

先用？拆分地址
？后边都是get的参数。每个参数以&分隔
所以在用&拆分一次
这次拆分后都是一对一对的参数
参数名字和值用=连接
再用=号拆分一次
就可以得去全部变量和其值的列表

Answer 5

Dim iStr As String
iStr = "www.example.com/example.aspx?name=123&id=10"
MsgBox Val(Split(iStr, "=")(1)) & " " & Val(Split(iStr, "=")(2))

实现的方法有很多种。