回复 29楼 sdta
版主该发表一下建议了

个性太多,无法显示
程序代码:T1=SECONDS()
CLEAR
cstr=" how often[]多久一次 exercise['eks2saiz]v.&n.锻炼;运动 skateboard[]v.踩滑板;参加滑板运动 hardly['ha:dli]adv. 几乎不;几乎没有 ever['ev2]adv. 曾;曾经 shop[60p]v.购物 once[w3ns]adv. 一次"
CREATE CURSOR taba (单词 C(20),音标 C(20),汉意 C(30))
NSTR=LENC(CSTR)
LOCAL AA(3),A1
STORE [] TO AA,A1
FOR I=1 TO NSTR
A1=A1+SUBSTRC(CSTR,I,1)
IF (LEN(LEFTC(RIGHTC(A1,2),1))=2 AND EMPTY(RIGHTC(RIGHTC(A1,2),1))) OR I=NSTR
A1=ALLTRIM(A1)
AA(1)=SUBSTR(A1,1,AT("[",A1)-1)
AA(3)=RIGHTC(A1,LEN(A1)-LENC(A1))
AA(2)=SUBSTR(A1,AT("[",A1),LEN(A1)-LEN(AA(1))-LEN(AA(3)))
INSERT INTO TABA FROM ARRAY AA
A1=[]
ENDIF
ENDFOR
MESSAGEBOX([查询时间:]+TRANSFORM((SECONDS()-T1)*1000)+[毫秒])
BROWSE

