请问如何获取字符串在数组中的位置

<%
a="abc|ab|efg|hi"
b="ab"
response.write "b在a中的位置是"&getN(a,b)
%>
<%
function getN(x,y)
getN=0
arr=split(x,"|")
for i=0 to ubound(arr)
if arr(i)=y then
getN=i+1
exit function
end if
next
end function
%>

 

 

再给你一个:

VBScript code
'查询是否存在该值 Function seekArrayVal(strArr,strVal) Dim strBool:strBool=false If Not IsArray(strArr) Or strVal="" then seekArrayVal=strBool For Each tmp in strArr If strVal=tmp then strBool=true Exit For End If Next seekArrayVal=strBool End Function
功能函数 
-------------------------------------------------------
function getposition(xstr,keyword)
dim sw, k, ar
dim i
i=0
sw=xstr
k=keyword
ar=split(sw,"|")
do while i <ar.ubound(ar)-1
  if ar[i]=k then
      getposition=i
      exit function
  end if
  i=i+1
loop
end function
-------------------------------------------------------
a="abc|ab|efg|hi"
有个字符串b ,b="ab"
数组操作 a=split(a,"|")
获取字符串b在数组a中的位置

应用:
dim posi
posi=getposition(a,b)

posted @ 2009-08-06 17:37  y0umer  阅读(967)  评论(0编辑  收藏  举报