关键词法模糊查找

关键词法模糊查找 云南 吕永贵 1992-12-04 set excat on clear @5,4 say“关键词的说明:” @row(),col() say“关键词在试题中可由用户任意选取而输入，输第一” @row(),col() say“个、第二个关键词随便，关键词长度不限，一般选取2-4” @row(),col() say“个汉字、字母、或组合。关键词前，汉字间避免空格。” store " " to key1 @3,10 say“输入第一个关键词:”get key1 do 1-2 read key1=trim(key1) Store " " to key2 @4,10 say“输入第二个关键词:”get key2 read key2=trim(key2) do I-3 use <数据库文件名> go top ss="Y" do while .not. eof() f1=at(KEY1，试题内容) f2=at(key2，试题内容) *试题内容为库的字段变量名 if f1=0 .and. f2=0 * AND 与 OR skip else @3,0 CLEAR display off @1,10 say“需要继续查找吗(Y/N)?”get ss do 1-3 read if ss="N" exit else skip endif endif enddo 说明:?定义KEY1、KEY2为八个字符长的空变量; ?AND.OR运算据实际需要而选择，一般“OR”。 附: * 1-2.prg set talk off set esca off poke 1047,0 poke 1050,30 poke 1050,32 poke 1054,0 poke 1055,106 * 1-3.prg set talk off set esca off poke 1047,64 poke 1050,30 poke 1052,32 poke 1054,0 poke 1055,109