數字字符串的匹配問題[注：只對有效的方法給分]

[bozy]

有個數字字符串，以 ，分割。
比方：
str="9,12,13,168,234"

如何判斷 數字 char 是否存在于str 中。

要求：
比方，char=1 時，返回false;
char=12 時，返回true


我知道可以將str轉化為數組再進行匹配，
有沒有其他更好的辦法呢？
請帖出代碼。

[lienzhu]

function result(str,snum)
str=str & ","
snum=snum &","
if instr(str,snum)>0 then
result=true
else
result=false
end if
end function
str="9,12,13,168,234"
response.write result(str,1)
response.write result(str,12)

[ygjwjj]

response.write result(str,34)

true?????

[bozy]

to: lienzhu(李强) ,你的這個思路很有創意。
這個方法還有一個小的問題，
如果是 snum=234 ，那就會顯示錯誤的結果了。

str只能是如上的形式 "9,12,13,168,234"

[ygjwjj]

function result(str,snum)
str=","&str & ","
snum=","&snum &","
if instr(str,snum)>0 then
result=true
else
result=false
end if
end function
str="9,12,13,168,234"
response.write result(str,9)
response.write result(str,234)

[777dragon]

~
function ChkNum(arrTest,key)
arrSplit = Split(arrTest, ",")
for i=0 to ubound(arrSplit)
if arrSplit(i)=key then
ChkNum=true
exit function
end if
next
ChkNum=false
end function

arrtest="9,12,13,168,234"
response.write ChkNum(arrTest,"1")
response.write ChkNum(arrTest,"12")
response.write ChkNum(arrTest,"234")

[777dragon]

呵呵～还是觉得数组好用　^_^`

[davs]

用Split可以解决问题，楼上正解啦

[尚和空四]

支持 777dragon(风林火山)

[bozy]

很谢谢大家的意见，
如果能用字符串的方式解决，那就更perfect了。

[bozy]

頂一下，看看有沒有更好的辦法。

[comszsoft]

777dragon(风林火山) ( )
同意

[yayaleon801030]

function existNum(strAll, strNum)
temp1 = ","& replace(strAll, " ", "") &","
temp2 = ","& replace(strNum, " ", "") &","
if ( instr(temp1, temp2)>0 ) then
existNum = true
else
existNum = false
end if
end function

[bozy]

to: yayaleon801030(yayaleon)
------------------
temp1 = ","& replace(strAll, " ", "") &","
temp2 = ","& replace(strNum, " ", "") &","
-----------------
不太明白replace 空格的意思

@_@

[meizz]

这种问题有正则当然是最好的解决之道:
<SCRIPT LANGUAGE="VBScript">
Dim re, str, str2
str="9,12,13,168,234"
str2 = "1"

set re=new RegExp
re.global=true
re.pattern="(^|,)"& str2 &"(,|$)"
msgbox re.Test(str)
</SCRIPT>

[bozy]

to: meizz(梅花雪)
久仰大名，果真達人.代碼的實現正如我意!
用數組的方式實現，我早想過，但縂感覺有方法執行效率會更好。
看來我對正則確實太過欠缺，今後得好好補一補.
我自己再把它改爲函數就可以解決我的實際問題了.

另：請各位原諒，大家給我出謀劃策，很感謝大家。
把全分給能完整解決問題的人，我覺得是對勞動的最好尊重。
再次感謝大家！！