instr函数循环输出的问题
|202013000005|20130423194812.0| @a978-7-5135-2677-7@dCNY18.00| @a20130407d2012 cd y0chiy0110 ea|1 @achi@ceng| @aCN@b110000| @aa z 000ay| @ar|1 @a狼犬卡维克@9lang quan ka wei ke@f(美)沃尔特·莫里著@g梁颖译| @a北京@c外语教学与研究出版社@d2012| @a233页@c图@d22cm|2 @a传世今典·动物小说| 0@12001 @a传世今典·动物小说|0 @a长篇小说@y美国@z现代| @aI712.45@v4| 1@c(美)@a莫里@9mo li@b沃尔特@gMorey, W.@4著| 0@a梁颖@9liang ying@4译| 0@aCN@bNLC@c20130423| @aTSG
如何获取字符串中“|”的位置,并依次输出到text1.text文本中
[解决办法]
本帖最后由 bcrun 于 2013-05-05 09:03:17 编辑
p = InStr(1, s, "
[解决办法]
")
While p > 0
Print p
p = InStr(p + 1, s, "
[解决办法]
")
Wend
