关键词法模糊查找

Author: 云南吕永贵 Date: 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