VB测量平差程序设计讲稿.docVIP

. 资料. Case 0 读入观测值文件 Text1.Visible = False CommonDialog1.ShowOpen fname = CommonDialog1.FileName 将用户在打开对话框中选择的文件名对变量fname赋值 If fname Then 若无此判断当对话框中选择取消时、下面赋值语句将出错 Set ts = fso.OpenTextFile(fname) 将fname作为文本文件打开,并设置句柄 j = 0: k = 0: p = 0: h = 0 j是测站数累计变量,k是已知点累计变量,l（j）、ns（j）分别是方向值、边长累积计数 Do While ts.AtEndOfLine True 前测型循环，进入循环的条件是没有读到文件结束尾 B = ts.ReadLine 读一行，置入b B = Trim(B): i = 1: 删除B可能有的前导和尾随空格，i是工作变量， m(i) = InStr(B, ,) 查行中第一个逗号的左数位置,并保存在整形数组变量m(i)