用BROWSE命令设计文本阅读编辑器

Author: 湖南何永胜 Date: 1994-08-19

        程序思想是：建一个只有一个字符(字符型，宽度可自定)的数据库，用APPEND FROM命令把文本文件读入数据库，每行文本就是一条记录，记录的条数即文件的行数。这样对文本阅读编辑就转化为对数据库记录的操作，不仅功能强大，而且简单方便。
        若程序中用BROWSE NOMODIFY命令则对文本文件只能阅读，不能修改。
        使用中应注意两点：一是文本文件名必须是以.TXT为后缀，二是当BROWSE编辑窗口出现后，按CTRL+HOME键才出现某些特殊操作的提示，用户此时可通过光标的移动并按回车完成相应的操作。
        因一个字段代表一文本文件，故可以修改程序及数据库，用多个字段实现多个文本文件的同时编辑。源程序用FOXBASE 2.1编写，在286及386机上通过。
        set talk off
        set scor off
        set echo off
        set stat off
        set menu off
        set mess to 22
        set cons off
        clear
        fname=space(12)
        set color to r
        @10,10 say "请输入文件名(文件必须以.TXT为扩展名):" get fname
        read
        fname=upper(ltrim(rtrim(fname)))
        if .not.file(fname)
        ?? chr(7)
        @ 12,20 say "文件不存在!"
        quit
        endif
        use read
        set color to w+/b
        clear
        append from &fname sdf
        go top
        brow
        quit

        (湖南何永胜)