,一个搜索字符结果串排序的有关问题
求助,一个搜索字符结果串排序的问题!
我做了个关键词库,定义为a
通过搜索标题获得了关键词,但是我想按照标题的顺序排序,请问这样的情况如何排序?
a="水温,白开水,重要,健康,饮料,安全,喝什么水,身体,抽烟"'-----------关键词库
b=split(a,",")'
for i=0 to Ubound(b)
if InStr("喝什么水怎样喝水安全健康:白开水是最佳饮品",b(i))>0 then
response.write b(i)&","
end if
next
运行结果是“白开水,健康,安全,喝什么水”
按照标题顺序,希望结果为:“喝什么水,安全,健康,白开水”
------解决方案--------------------
我做了个关键词库,定义为a
通过搜索标题获得了关键词,但是我想按照标题的顺序排序,请问这样的情况如何排序?
a="水温,白开水,重要,健康,饮料,安全,喝什么水,身体,抽烟"'-----------关键词库
b=split(a,",")'
for i=0 to Ubound(b)
if InStr("喝什么水怎样喝水安全健康:白开水是最佳饮品",b(i))>0 then
response.write b(i)&","
end if
next
运行结果是“白开水,健康,安全,喝什么水”
按照标题顺序,希望结果为:“喝什么水,安全,健康,白开水”
------解决方案--------------------
- VBScript code
Dim arrIndex() Dim j j = 0 For …… i = InStr("喝什么水怎样喝水安全健康:白开水是最佳饮品",b(i)) If i>0 Then j = j + 1 ReDim Preserve arrIndex(j) arrIndex(j) = i End If Next 对arrIndex进行升序排序 For each idx in arrIndex 输出 b(idx) Next