Leica DNA03水准测量数据处理程序

1、- -double,z1=null;strings=null;publicvoidOpen_LeicaDNA03()打开egm96文件的子函数Rb=newdouble100,2;/后视中丝读数Rf=newdouble100,2;sb=newstring100;sf=newstring100;Rbs=newdouble100,2;Rfs=newdouble100,2;z1=newdouble100,5;strings1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11;doublebm;s=newstring100;openFileDialog1.Title=选择文件;openFi

2、leDialog1.InitialDirectory=;openFileDialog1.Filter=文本文件(*txt)|*txt|数据文件(*dat)|*dat|数据文件(*gsi)|*gsi;if(openFileDialog1.ShowDialog()=DialogResult.OK)System.IO.StreamReadersr=newSystem.IO.StreamReader(openFileDialog1.FileName);stringst=sr.ReadLine();stringst2=sr.ReadLine();bmn1=st2.Substring(12,3);/起始点

3、点号bm=(double.Parse(st2.Substring(25,6)/10000;/起始点高程s1=bm.ToString(F4);s0=起始点点号：+bmn1+起始点高程:+s1+m;inti=0;textBox1.AppendText(s0+n);s1=测站+后视点+前视点+第一次后视+第二次后视+第一次前视+第二次前视+测站两次前后+高差之差+累计+累计+前视点;s2=数+点号+点号+中丝读数/m+中丝读数/m+中丝读数/m+中丝读数/m+高差较差/m+累计值/m+视距差/m+视距/m+高程/m”；textBoxl.AppendText(“测站+后视点+前视点+第一次后视+”+第

4、二次后视+第一次前视+第二次前视+测站两次前后+高差之差+累计+累计+前视点+n);textBox1.AppendText(数+点号+点号+中丝读数/m+”中丝读数/m+中丝读数/m+中丝读数/m+高差较差/m+累计值/m+视距差/m+视距/m+高程/m+n);st2=sr.ReadLine();dofor(intj=0;j5;j+)if(j=0)sbi=st2.Substring(12,3);/后视点号Rbsi,0=(double.Parse(st2.Substring(25,6)/10000.0;/后视视距Rbi,0=(double.Parse(st2.Substring(38,9)/10

5、000.0;/后视中丝读数if(j=1)st2=sr.ReadLine();sfi=st2.Substring(12,3);bmn2=st2.Substring(12,3);Rfsi,0=(double.Parse(st2.Substring(25,6)/10000;Rfi,0=(double.Parse(st2.Substring(38,9)/10000;if(j=2)st2=sr.ReadLine();Rfsi,1=(double.Parse(st2.Substring(25,6)/10000;/前视二次视距Rfi,1=(double.Parse(st2.Substring(38,9)/1

6、0000;/前视二次中丝读数if(j=3)st2=sr.ReadLine();Rbsi,1=(double.Parse(st2.Substring(25,6)/10000;Rbi,1=(double.Parse(st2.Substring(38,9)/10000;if(j=4)/测站总结st2=sr.ReadLine();z1i,0=(double.Parse(st2.Substring(25,6)/10000;/测站两次高差之差z1i,1=(double.Parse(st2.Substring(38,9)/10000;/高差之差累计值z1i,2=(double.Parse(st2.Subst

7、ring(54,9)/10000;/测站累计视距差z1i,3=(double.Parse(st2.Substring(70,9)/10000;/测站累计视距z1i,4=(double.Parse(st2.Substring(86,9)/10000;/前视点高程n=i+1;s2=Rbi,0.ToString(F4);s3=Rbi,1.ToString(F4);s4=Rfi,0.ToString(F4);s5=Rfi,1.ToString(F4);s6=z1i,0.ToString(F4);s7=z1i,1.ToString(F4);/高差之差累计值s8=z1i,2.ToString(F4);s9

8、=z1i,3.ToString(F4);s10=z1i,4.ToString(F4);s11=n.ToString(F0);si+3=s11.PadLeft(3,)+sbi.PadLeft(8,)+sfi.PadLeft(8,)+s2.PadLeft(12,)+s3.PadLeft(12,)+s4.PadLeft(12,)+s5.PadLeft(10,)+s6.PadLeft(16,)+s7.PadLeft(12,)+s8.PadLeft(12,)+s9.PadLeft(14,)+s10.PadLeft(11,);textBox1.AppendText(si+3+n);i+;st2=sr.Re

9、adLine();while(st2!=null);sr.Close();privatevoidbutton1_Click(objectsender,EventArgse)Open_LeicaDNA03();inti=0;System.IO.StreamWritersw=newStreamWriter(从+bmn1+到+bmn2+”水准数据处理.txt);dosw.Write(si);sw.WriteLine();i+;while(si!=null);sw.Close();privatevoidForm1_Load(objectsender,EventArgse)4编程总结本次作业的原始数据中出现的WI如571、572、573、574一开始并不了解其意思，但在查阅Leica公司说明书GSIONLINE