自己写的一个程序,是用VFP写的,内容如下
CLOSE ALL
CLEAR
SET TALK OFF
@ 9,5 say "@-@-@-@-@-@-@-@-@-@-@-@"
@ 10,5 say "@请输入数据库名称:"
@ 11,5 say "@-@-@-@-@-@-@-@-@-@-@-@"
STORE SPACE(20) TO dbname1
@ 10,5 say "请输入数据库名称:" get dbname1
@ 12,5 say "按end键退出结束程序"
flag1= .T.
READ
IF 'end'$dbname1
EXIT
ENDIF
database1 = ALLTRIM(dbname1)
USE &database1
DO WHILE .NOT.EOF()
SKIP
IF LEN(ALLTRIM(XCH))=0
SKIP -1
BLXCH=XCH
SKIP
REPLACE XCH WITH BLXCH
ENDIF
ENDDO