Strfrom是源代碼。
Strto()'是輸出文本。
Strtocount是輸出字數。
直到instr(1，strfrom，" & ltTD >；)=0
strfrom=mid(strfrom，instr(1，strfrom，" & ltTD >；)+4)
if instr(1，strfrom，" & lt/TD >；)& gt那麽0
strtocount=strtocount+1
redim將strto(1到strtocount)保留為字符串
strto(strtocount)=mid(strfrom，1，instr(1，strfrom，" & lt/TD >；)& gt-1)
strfrom=mid(strfrom，instr(1，strfrom，" & lt/TD >；)+5)
如果…就會結束
環
既然沒有vb系統，就沒有測試，原理是這樣的。