经典汇编语言教程:10.4 文件操作程序

10.4 文件操作程序

有关目录和顺序文件的操作在第8.3.6节中已有介绍和举例,本节主要介绍对记录文件的读写方法。记录文件是指文件中的每个分量是一个结构的文件,如:Fox系列数据库管理系统中的DBF文件,该文件除了文件头是由记录文件的整体信息和各字段描述信息之外,文件的主体内容就是由同一个结构组成的。

下面通过二个例子来介绍记录文件的读写方法。

例10.11假设有一个简单的学生结构类型student,其包括:学号、姓名和年龄等信息,要求编写一个程序,该程序接受从键盘输入的学生记录信息,并把它们保存在文件students.dat之中。

解:
.MODEL SMALL, C
.486
studentSTRUCT
idDW ?
snameDB 10 DUP(?)
ageDB ?
studentENDS
.DATA

fname

DB "Students.dat",0

msg1

DB "Id:$"

msg2

DB "Name:$"

msg3

DB "Age:$"

msg4

DB "Continue?$"

msg5

DB "Fail to create file$"

CRLF

DB 0AH, 0DH, "$"

buff

DB ?, ?, 11 DUP(?)

peason

STUDENT <>
.CODE
DispMsgPROC USES AX DX, Msg:PTR BYTE;显示字符串Msg
……;参见例10.7
DispMsgENDP
;程序功能:把字符串Data转化成数值,不考虑负数。当遇到非法字符时,则结束转换操作;
;入口参数:Data为字符串的首地址,Len为该字符串的长度;
;出口参数:数值存放在AX中。
GetDataPROC USES BX CX SI, Len:BYTE, Data:PTR BYPE
XORCX, CX
MOVCL, Len
MOVSI, Data
XORAX, AX
XORBX, BX
.REPEAT

MOV

BL, [SI]

SUB

BL, '0'
.BREAK .IF BL<0 || BL>9;判断当前数值是否在0~9之间

IMUL

AX, 10

ADD

AX, BX

INC

SI
.UNTILCXZ
RET
GetDataENDP
;程序功能:读取指定长度的字符串,在输入前,显示有关输入内容的提示信息;
;入口参数:读入字符串的长度为Len,提示信息的首地址为MSG;
;出口参数:读入信息(字符串)存放缓冲区buff中。
GetInfoPROC  USES AX DX, Len:BYTE,Msg:PTR BYTE
INVOKEDispMsg, Msg;显示提示信息
MOVAL, Len
MOVbuff, AL
MOVAH, 0AH
LEADX, buff
INT21H
INVOKEDispMsg, ADDR CRLF;显示回车、换行
RET
GetInfoENDP
.STARTUP
MOVAX, DS
MOVES, AX
LEADX, fname
MOVCX, 20H
MOVAH, 3CH
INT21H;创建文件
.IF CARRY?;若创建失败,则显示失败信息
INVOKE DispMsg, ADDR msg5
JMP over
.ENDIF
MOVBX, AX;把句柄存入BX,为后面使用作准备
again:
INVOKEDispMsg, ADDR CRLF;显示回车、换行
INVOKEGetInfo, 5, ADDR msg1;读取学号(假定学号为4位整数)
INVOKEGetData, 4, ADDR buff+2;把学号字符串转化成数值
MOVpeason.id, AX;把数值型学号存入学号字段
INVOKEGetInfo, 11, ADDR msg2;读取姓名(假定姓名为10个字符)
MOVCX, 10
MOVAL, ' '  
LEADI, peason.sname
REPSTOSB;先置姓名字段为10个空格
MOVCL, buff+1
MOVSI, OFFSET buff+2
LEADI, peason.sname
REPMOVSB;把输入的姓名存入姓名字段
INVOKEGetInfo, 3, ADDR msg3;读取年龄(假定年龄为2位整数) 
INVOKEGetData, 2, ADDR buff+2;把年龄字符串转化成数值
MOVpeason.age, AL;把数值型年龄存入年龄字段
MOVCX, SIZE peason
LEADX, peason
MOVAH, 40H
INT21H;把学生记录写入文件
INVOKEDispMsg, ADDR msg4;提示是否继续输入
MOVAH, 1
INT21H
ANDAL, 0DFH
CMPAL, 'Y' 
JZagain;若按y或Y,则继续输入
MOVAH, 3EH
INT21H
over:
.EXIT0
END

上页:上一课 下页:下一课

经典汇编语言教程·相关目录

第1章 汇编语言的由来,数据类型第2章 CPU资源和存储器
第3章 操作数的寻址方式第4章 标识符和表达式
第5章 微机CPU的指令系统第6章 程序的基本结构
第7章 子程序和库第8章 输入输出和中断
第9章 宏第10章 应用程序设计
第11章 数值运算协处理器第12章 汇编语言和C语言
汇编语言重要附录Windows API函数大全
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号