instr是在字符串中找第一个字符的位置，有没有什么办法最快的找第n个位置？

Question

只能：
For ……
    ……=InStr(……)

Answer 1

'define the the public-Array to store the position, 
'then u can get the position through "mIntPosition(n)" constant conmax =100
dim mintPosition(conmax) as integer
dim mintCount as integer'store the position 
function storePosition(strA as string , strChar as string b, intN as integer)
dim i as intger micount=0
for i=1 to len(strchar)
     if mid(strA,i,1)= strchar then
mintposition(miCount)=i
micount=icount+1
endif
next
end function

Answer 2

连MSDN上的例子都用的DO WHILE循环,我看是没别的办法了

Answer 3

我同意 powpow 的建议，不过 OoivioO说得也对。
 我也建议用function写，可以用此来返回位置。