求助，一个搜索字符结果串排序的问题！
我做了个关键词库，定义为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 jj = 0For ……    i = InStr("喝什么水怎样喝水安全健康：白开水是最佳饮品",b(i))    If i>0 Then        j = j + 1        ReDim Preserve arrIndex(j)        arrIndex(j) = i    End IfNext对arrIndex进行升序排序For each idx in arrIndex   输出 b(idx)Next