VB如何更高效率的来处理获取这段字符串？（字符串见内容）

[zanze]

是一段搜索引擎的URL地址,
可能是这样：
http://www.soso.com/search?new=2&q=字符串在此&viewIndex=7&source=searchnew (q=字符串在此 可能夹在几个参数中间)
也可能是这样：
http://www.soso.com/search?new=2&q=字符串在此 （q=字符串在此 后面可能是空的，没有参数)

需要获取 "字符串在此"

URL地址里的一些参数可能会变，但是有1个不变，就是肯定有: q= 而且仅有1个q=，不会有2个

例如：q=xxx ,就是提交搜索的字符串xxx

一句话，就是需要截取 q= 后面字符

如何处理，程序才高效？

[zanze]

有办法测试 计算时间么？

[guoshaoning]

执行前后加上时间，Debug.Print Time

[vbman2003]

instr是VB中最快的函数之一,而split正相反,相当慢....

[chenhui530]

使用一个for循环纪录下"q="然后纪录"q="后的"&"的位置，或者后面没有了到字符串尾然后再mid一下我觉得这样可以节省遍历字符串的次数应该效率高些，有点象c中的指针移动

Option Explicit

Private Function GetString(ByVal strURL As String) As String
Dim Length As Integer
Dim i As Integer
Dim Start As Integer
Dim offset As Integer
Dim offset1 As Integer

Length = Len(strURL)

If LCase(Mid(strURL, 1, 11)) = "http://www." Then
Start = 12
ElseIf LCase(Mid(strURL, 1, 6)) = "http://" Then
Start = 7
ElseIf LCase(Mid(strURL, 1, 4)) = "www." Then
Start = 5
Else
Start = 1
End If
For i = Start To Length
If Mid(strURL, i, 2) = "q=" Then
offset = i + 2
End If
If offset Then
If Mid(strURL, i, 1) = "&" Then
offset1 = i
Exit For
End If
End If
Next

If offset1 = 0 Then
GetString = Mid(strURL, offset, Length - offset + 1)
Else
GetString = Mid(strURL, offset, offset1 - offset)
End If
End Function

Private Sub Command1_Click()
Dim strURL As String
Dim strURL1 As String
strURL = "http://www.soso.com/search?new=2&q=字符串在此&viewIndex=7&source=searchnew"
strURL = GetString(strURL)
strURL1 = "http://www.soso.com/search?new=2&q=字符串在此"
strURL1 = GetString(strURL1)
End Sub

[赵4老师]

[Quote=引用 12 楼 tiger_zhao 的回复:]
讲效率就应该用搜索
dim i1 as long
dim i2 as long
i1=instr(1, url,"q=")
if i1=0 then msgbox "Can not find 'q=' in url='" & url & "'"
i2=instr(i1+2, url,"&")
if i2=0 then
s=mid$(url, i1+2)
else
s=mid$(url, i1+2, i2-i1-2)
endif
[/Quote]
正解

[chenhui530]

vb效率真低，我上面的代码模仿c指针的效果和真正c写出的代码相差不知道多少倍去了

VOID GetString(LPSTR lpURL,LPSTR lpOutString)
{
LPSTR Start,End;
Start = lpURL;
while (*Start){
if (*Start=='q'){
if (*(Start+1)=='='){
Start+=2;
break;
}
else{
Start+=2;
}
}
else{
Start++;
}
}
End = Start;
while (*End){
if (*End=='&'){
break;
}
End++;
}
memcpy(lpOutString,Start,End-Start);
}

CHAR strURL[256]="http://www.soso.com/search?new=2&q=字符串在此&viewIndex=7&source=searchnew";
CHAR strOutString[256]={0};
DWORD dwTime=GetTickCount();
for (int i=0;i<100000;i++){
GetString(strURL,strOutString);
}
printf("花费时间：%d\n",GetTickCount()-dwTime);

这段c代码需要时间仅仅是14-18之间,1000为一秒

但是上面我写的vb代码时间，却要花费一秒多大概是1.2秒左右

[chenhui530]

#include "stdafx.h"
#include "windows.h"
#include <stdio.h>

VOID GetString(LPSTR lpURL,LPSTR lpOutString)
{
	LPSTR Start,End;
	Start = lpURL;
	while (*Start){
		if (*Start=='q'){
			if (*(Start+1)=='='){
				Start+=2;
				break;
			}
			else{
				Start+=2;
			}
		}
		else{
			Start++;
		}
	}
	End = Start;
	while (*End){
		if (*End=='&'){
			break;
		}
		End++;
	}
	memcpy(lpOutString,Start,End-Start);
}

VOID main()
{
	CHAR strURL[256]="http://www.soso.com/search?new=2&q=字符串在此&viewIndex=7&source=searchnew";
	CHAR strOutString[256]={0};
	DWORD dwTime=GetTickCount();
	for (int i=0;i<100000;i++){
		GetString(strURL,strOutString);
	}
}

[zanze]

辉哥的代码真长

[chenhui530]

c的代码效率非常之高

[帝企鹅已被占用]

mid(str,instr(str,"q="))

[帝企鹅已被占用]

mid(str,instr(str,"q=") + 2)

[zanze]

仅仅截取 "字符串在此"

[zanze]

URL地址中，各个参数的连接 是用 &

&q=字符串在此&

字符串在此 后面如果是 & 就不截取了

或者是空的，也不截取了

[guoshaoning]

split(split(str,"q=")(1),"&")(0)

[帝企鹅已被占用]

楼上的方法比我的简单。

[zanze]

5楼不错

有更好的吗？

[fs822]

    Stri = "http://www.soso.com/search?new=2&q=字符串在此&viewIndex=7&source=searchnew"
    MsgBox Mid(Stri, InStr(Stri, "q=") + 2, InStr(InStr(Stri, "q="), Stri, "&") - InStr(Stri, "q=") - 2)

- -||我写的什么东西。效率肯定很低

[fs822]

五楼的代码真不错
学习了

[guoshaoning]

a = Split(Filter(Split(str, "&"), "q=")(0), "q=")(1)
不知道这连个那个效率高

[Tiger_Zhao]

16楼就是典型的故意绕弯路降低效率的代码！