Question

asp 标签数据替换

id=1 sortid=5 len=100
上面是正则替换获取出来的，怎么样让调用的时候可以：
diaoyong("id") 得到 1
diaoyong("sortid") 得到 5
怎么才能呢？？ 不要写类， 我还不习惯。。。 funsub好了... 谢谢了

Answer 1

BasicStr = "id=1 sortid=5 len=100"
Function GetValueByKey(Key)
Dim Reg
Set Reg = New Regexp
Reg.IgnoreCase = True
Reg.Global = True
Reg.Pattern = ".*\s" & Key & "=(.*?)\s.*"
GetValueByKey = Reg.Replace(" " & BasicStr & " ", "$1")
End Function

Response.Write(GetValueByKey("sortid"))

是这个意思了不？

Answer 2

function diaoyong(num)
diaoyong = num
end function

就可以了.如:
response.write(diaoyong(id)) '就会输出1

追问

这我当然知道这样能输出
id=1 sortid=5 len=100
关键是怎么把这个分开 调=左边输出=右边信息 这是关键

追答

你的意思:id=1 sortid=5 len=100 整个是一个字符串,然后分别取值?
如果这样的话,可以这样:

dim str
str = "id=1 sortid=5 len=100"
function diaoyong(str, strName)
pos_start = inStr(str, strName)
pos_end = inStr(pos_start + 1, str, " ")
if pos_end = 0 then
pos_end=len(str)
end if
diaoyong = mid(str, pos_start+1, pos_end)
end function