在以下代码中，表RawFromWord中有一个字段名为english,该字段中存有一些英文单词
代码的作用是从头到尾遍历整个DBF，从dict.cn网站下载所有单词的释义等并存入表wordstore
问：为什么每运行一次程序后，wordstore中只存入一部分单词，如果再运行几次会逐渐把所有单词存入wordstore
求修改！！！
do while .not. EOF("RawFromWord") &&.and. num<=30
SearchedWord=ALLTRIM(RawFromWord.english)
* MESSAGEBOX(SearchedWord)
SELECT wordstore
SEEK SearchedWord
IF FOUND()
SELECT RawFromWord
SKIP
LOOP
ENDIF
* SearchedWord=STRTRAN(SearchedWord,".","_2E")
IF (BETWEEN(ASC(SearchedWord),ASC('A'),ASC('Z')) .OR. BETWEEN(ASC(SearchedWord),ASC('a'),ASC('z'))) .AND. !EMPTY(SearchedWord) &&可以删除
THISFORM.label1.CAPTION=ALLTRIM(STR(RECNO("RawFromWord")))+'/'+ALLTRIM(STR(RECCOUNT("RawFromWord")))
THISFORM.label7.CAPTION=SearchedWord
lcRemoteUrl="http://dict.cn/"+STRTRAN(SearchedWord,".","_2E")
lcLocalhtm="html\"+SearchedWord+".htm"
=DeleteUrlCacheEntry(lcRemoteUrl) &&清理缓存，这对实时刷新的数据时很有用。
DO WHILE URLDownloadToFile(0,lcRemoteUrl,lcLocalhtm,0,0)!=0
DOEVENTS
thisform.edit2.Value=SearchedWord+'/'
ENDDO
全文=STRCONV(FILETOSTR(lcLocalhtm),11)
没找到= STREXTRACT(全文,[您要找的是不是],[</html>],1)
IF !EMPTY(没找到)
SELECT RawFromWord
SKIP
LOOP
ENDIF
APPEND BLANK
音节划分=STRTRAN(STREXTRACT(全文,[tip="音节划分：],[">]),"·",".")
词形变化=STREXTRACT(全文,[词形变化：],[<!-- 基本释义 -->])
比较级=STREXTRACT(全文,[tip="比较级">],[</])
最高级=STREXTRACT(全文,[tip="最高级">],[</])
过去式=STREXTRACT(全文,[tip="过去式">],[</])
过去分词=STREXTRACT(全文,[tip="过去分词">],[</])
现在分词=STREXTRACT(全文,[tip="现在分词">],[</])
第三人称单数=STREXTRACT(全文,[tip="第三人称单数">],[</])
名词复数=STREXTRACT(全文,[tip="名词复数">],[</])
副词=STREXTRACT(全文,[tip="副词">],[</])
名词=STREXTRACT(全文,[tip="名词">],[</])
双解释义=STREXTRACT(全文,[<h3>双解释义</h3>],[<h3>详尽释义</h3>])
详尽释义=STREXTRACT(全文,[<h3>详尽释义</h3>],[<h3>英英释义</h3>])
英英释义=STREXTRACT(全文,[<h3>英英释义</h3>],[</ol>])
常见句型=STREXTRACT(全文,[<h3>常见句型</h3>],[<h3>常用短语</h3>])
常用短语=STREXTRACT(全文,[<h3>常用短语</h3>],[<h3>词汇搭配</h3>])
词汇掿配=STREXTRACT(全文,[<h3>词汇搭配</h3>],[<h3>经典引文</h3>])
经典引文=STREXTRACT(全文,[<h3>经典引文</h3>],[<a name="learn">])
词语用法=STREXTRACT(全文,[<h3>词语用法</h3>],[<h3>词义辨析</h3>])
互动百科=STREXTRACT(全文,[<h3>互动百科</h3>],[<h3>临近单词</h3>])
临近单词=STREXTRACT(全文,[<h3>临近单词</h3>],[<div class="notice">])
缩略词=STREXTRACT(全文,[<h3>缩略词</h3>],[<h3>互动百科</h3>])
词源解说=STREXTRACT(全文,[<h3>词源解说</h3>],[</div>])
m.基本释义= STREXTRACT(全文,[<h3>基本释义</h3>],[您对本词],1)
m.音标= STREXTRACT(全文,[<div class="phonetic">],[</div>],1)
m.例句=STRTRAN(STRTRAN(STREXTRACT(全文,"<h3>例句</h3>","去句海",1),"<em class=hot>","{"),"</em>","}")
词义辨析=STREXTRACT(全文,[<h3>词义辨析</h3>],[<!-- 词源解说 -->],1)
m.同义词=STREXTRACT(全文,[【同义词】],[</ul>],1)
m.反义词=STREXTRACT(全文,[【反义词】],[</ul>],1)
REPLACE 单词 WITH SearchedWord,;
基本释义 WITH m.基本释义,;
音标 WITH m.音标,;
同义词 WITH m.同义词,;
反义词 WITH m.反义词,;
词义辨析 WITH m.词义辨析,;
例句 WITH m.例句
REPLACE 词形变化 with m.词形变化,比较级 with m.比较级,;
最高级 with m.最高级,;
过去式 with m.过去式,;
过去分词 with m.过去分词,;
现在分词 with m.现在分词,;