没有这么复杂吧? 用一个循环,当文本里面找不到关键字了就结束。 do……loop until n=0 在循环内,先找<object>的位置n,再找</object>的位置m,从n开始找rmUID=“位置k,如果k>m就放弃,否则截取k+8到”的部分记录并输出。 n=instr(m,s,"<object>") m=instr(m,s,"</object>") k=instr(m,s,"rmUID=") if k<>0 and k>m then k1=instr(k,s,""") ? mid(s,k+8,k1-k-8) endif