請問如何獲取字串在陣列中的位置

weixin_34377065發表於2009-08-06
字串陣列

<%
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) 


            




相關文章