资源描述:
《浅谈VB在瞬变电磁中的应用》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、PROTEM67D数据文件的合并与分解——浅谈VB在瞬变电磁中的应用张永琦河南省煤田地质局物探测量队,郑州,450009摘要:现代社会已进入数字时代,这就要求和关的地质人员不仅要有地质知识,还应具备相当的编程水平。VB简单易V易川的特点被广泛应川,在瞬变电磁资料处理屮利川VB來解决一些较麻烦的小问题,可以极人提高资料处理的效率。关健词:合并,分解,VB,瞬变电磁,应用IncorporatingorDecompoundingDataFileofPROTEM67DthesimpleapplicationofVBindataprocessingoftransientelectromagn
2、eticZhangYong-qiGephysicalExploration&SurveyingTeamofCoalGeologyBureauofHenanProvince,Zhengzhou450009,ChinaAbstract:It'sdigitalepochinmodernsociety.Sothegeologistnotonlyprovidedwithgeologicallnowledge,butalsoprovidedwithcomparativeknowledgeofprogramme.VBiswidelyusedbecauseofitssimpleness,simpl
3、elearning,simpleusc.VBisusedtoraveloutthetroublesomeproblemindataprocessingoftransientelectromagnetic,thusefficiencyofdataprocessingcanbeimprovedgreatly.Keywords:incorporate,decompound,VB,transientelectromagneticmethod,application1.引言VB是种可视化的编程语言,具有集成的可视化数据库工具,VisualBasic6.0是一种功能强大、简单实用、效率高的编程
4、工具,VB以简单易学易用的特点被广泛应用。近年來,瞬变电磁勘探发展迅速,快速高效的处理瞬变电磁资料成为地质工作的重点。在瞬变电磁勘探的资料处理中常遇到一些小问题,比如常遇到数据文件的合并与分解的问题,在常规的软件中并没冇这一功能,利用手工既费精力又费时间。下面以PROTEM67D数据文件的合并•分解为例来说明VB在瞬变电磁资料处理屮的应用。2.数据格式与实现方法PROTEM67D的数据格式:实现方法:〈开始〉/读取数据/写入合并文件分解文件合并1.数据文件合并为分解的部分代码文件分解部分代码Dimfile,stl,st2,sPathAsStringDimlinenamel,line
5、name?WithcmnDialog.CancelError=True.Filter=M*.datl*.datl所有文件(*.*)l*.*n.DialogTitle二“打开文件“・ShowOpenfile=.FilcNamcEndWithOpenfileForInputAs#1sPath=CurDir(file)&”Input#1,linename1LineInput#1,stlfile=sPath&linename1&".dat"OpenfileForOutputAs#2Print#2,lincnamcl,stlshowDataTxt.Text=file&vbCrLfshowDa
6、taTxt.Text=showDataTxt.Text&linename1&stl&vbCrLfshowDataTxt.RefreshDoWhileNotEOF(l)Input#1,linename2LineInput#1,st2Iflinename1=linename2ThenPrint#2,lincnamc2,st2'显示文件内容showDataTxt.Text=showDataTxt.Text&linename2&st2&vbCrLfshowDataTxt.RefreshElseClose#2linename1=linename2stl=st2file=sPath&linen
7、ame1&".dat”OpenfileForOutputAs#2Print#2,lincnamcl,stlshowDataTxt.Text=showDataTxt.Text&file&vbCrLf'显示文件名字showDataTxt.Text=showDataTxt.Text&linenamel&stl&vbCrLfshowDataTxt.RefreshEndIfLoop文件合并部分代码WithcmnDialog・CancelError=True.Filter=M*.