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