测量平差程序设计2版：数据文件的读写

2025-09-30 理论教育版权反馈

【摘要】：复杂数值计算程序数据的录入，由于输入与输出数据量均较大，一般采用读写数据文件的方法。综合运用公共对话框和文件系统对象的方法，可以方便地实现这一功能。

复杂数值计算程序数据的录入，由于输入与输出数据量均较大，一般采用读写数据文件的方法。综合运用公共对话框和文件系统对象的方法，可以方便地实现这一功能。具体方法为：

（1）读入文件。

①通过公共对话框方法打开公共对话框中的“Open”对话框，程序语句为：

CommonDialog1.ShowOpen

②将用户在“Open”对话框中选中的文件名（输入或选取现有文件所得带路径的字符串）赋给变量fname，程序语句为：

fname＝CommonDialog1.FileName

③应用文件系统FileSystemObject对象方法打开文件，并将其内存地址赋值给文本文件对象型变量ts（对象型变量fso、ts需要事先声明），程序语句为：

Set ts＝fso.OpenTextFile(fname)

④逐行读取文件，并赋值为字符串型变量strings，程序语句为：

strings＝ts.ReadLine(https://www.chuimin.cn)

（2）写入文件。

①通过公共对话框方法打开公共对话框中的“Save”对话框，程序语句为：

CommonDialog1.ShowSave

②将用户在“Save”对话框中选中的文件名（输入或选取现有文件所得带路径的字符串）赋值给字符型变量fname，程序语句为：

fname ＝ CommonDialog1.FileName

③创建以fname为名的文本文件，并获取内存地址，赋值给文本型文件对象型变量ts，程序语句为：

Set ts ＝ fso.CreateTextFile(fname, True)

④将输出内容Strings写入文件ts，程序语句为：

ts.Write strings