DBASE数据与BASIC数据的相互转换

Author: 云南马立红 Date: 1992-12-11

        使用命令 APPEND FROM <文件名>[FOR/WHILE<表达式>][SDF/DELIMITED]可把中BASIC数据转变为DBASE数据,其中BASIC数据文件为标准格式时,附加SDF短语,通用格式附加DELIMITDE短语,例如,我们已建立了一个名为STUDENT.TXT的BASIC数据文件,现要把它转变为DBASE数据,并把它添加到名为STUDENT1.DBF的DBASE数据文件中去,其操作步骤为:
        (1)建立STUDENT.TXT文件
        BASEC程序为:
        10 OPEN”0”,#1,”B:STUDENT.TXT”
        20 FOR I=1 TO 2
        30 READ A＄,A,B,C
        40 T=A+B+C: V=INT (T/3*100+0.5)/100
        50 WRITE #1,A＄,A,B,C,T,V
        60 NEXT I
        70 CLOSE #1
        80 DATA 刘军,90,78,80
        90 DATA 杨明,79,84,92
        110 END
        运行程序后就建立了名为STUDENT.TXT的BASIC数据文件。
        (2) 把STUDENT.TXT中的数据转换为DBASE数据,并添加到DBASE数据文件·USE B: STUDENT1.DBF
        ·APPEND FROM B: STUDENT.TXT DELIMITED
        2、DBASE 数据转换为BASIC数据
        使用命令
        COPY TO (文件名)[<范围>][FIELDS<字短名表>][FOR/WHILE <表达式>][SDF/DELIMITED[WITH<定界符>]]
        可将DBASE数据文件转换为DBASE文本数据文件,然后用BASIC程序再将其转换为BASIC数据文件,例如将上面建立的DBASE数据文件STUDENT1.DBF转变为BASIC数据文件,其操作步骤为:
        (1)将DBASE数据文件STUDENT1.DBF转变为DBASE文作数据文件STUDENT2.TXT。
        ·USE STUDENT1.DBF
        ·COPY TO B:STUDENT2.TXT  DELIMITED
        (2)将DBASE文本数据文件转变为BASIC数据文件
        BASIC程序为:
        10 OPEN“I”,#1,“B: STUDENT2.TXT”
        20 OPEN “O”;#2,“B: STUDENT3.TXT”
        30 IF EOF (1) THEN 70
        40 INPTU#1,A＄,A,B,C,T,V
        50 WRITE#2,A＄,A ,B,C,T,V
        60 GOTO 30
        70 CLOSE #1,#2
        80 END
        STUDENT3.TXT即为BASIC数据文件。