本篇内容介绍了“VB.NET文件处理数据的方法”的有关知识,在实际案例的操作过程中,不少人都会遇到这样的困境,接下来就让小编带领大家学习一下如何处理这些情况吧!希望大家仔细阅读,能够学有所成!
VB.NET文件处理代码:
'打开csv文件 PrivateSubbtnFile_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesbtnFile.Click DimOpenFileAsOpenFileDialog=NewOpenFileDialog OpenFile.Filter="csvFiles(*.csv)|*.xls|AllFiles(*.*)|*.*" IfOpenFile.ShowDialog()=DialogResult.OKThen txtFile.Text=OpenFile.FileName Else ExitSub EndIf EndSub '写文件 PrivateSuboutfile() DimSaveFileAsSaveFileDialog=NewSaveFileDialog SaveFile.Filter="文本文件(*.txt)|*.txt|AllFiles(*.*)|*.*" IfSaveFile.ShowDialog()=DialogResult.OKThen 'txtdt.Text=SaveFile.FileName DimobjWriterAsNewIO.StreamWriter(SaveFile.FileName,True,System.Text.Encoding.Default) objWriter.WriteLine("ANSI") objWriter.WriteLine("中文") objWriter.Close() Else ExitSub EndIf EndSub 'ANSI文本处理 PrivateSubsplit1() 'DimobjFileAsSystem.IO.File DimobjReaderAsNewIO.StreamReader("D:\MySystem\Desktop\Book1.csv",System.Text.Encoding.Default) DimsLineAsString="" DimarrTextAsNewArrayList Do sLine=objReader.ReadLine() IfNotsLineIsNothingThen arrText.Add(sLine) EndIf LoopUntilsLineIsNothing objReader.Close() DimDSAsNewDataSet DS.Tables.Add("tab1") DS.Tables("tab1").Columns.Add("ID") DS.Tables("tab1").Columns.Add("par") DS.Tables("tab1").Columns.Add("no") DS.Tables("tab1").Columns.Add("name") DimfenAsString=",;" Dimfen1AsChar()=fen.ToCharArray() DimsplitAsString()=Nothing DimiAsInteger 'ForEachsLineInarrText Fori=0ToarrText.Count-1 sLine=arrText(i)&"," split=sLine.Split(fen1) DimdrAsDataRow=DS.Tables("tab1").NewRow dr("ID")=split(0).ToString dr("par")=split(1).ToString dr("no")=split(2).ToString dr("name")=IIf(split(3)="","0",split(3).ToString) DS.Tables("tab1").Rows.Add(dr) Next DataGrid1.DataSource=DS.Tables("tab1") EndSub '处理数据 PrivateSubbtnDeal_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesbtnDeal.Click IfDS.Tables.Contains("tab2")=FalseThen DS.Tables.Add("tab2") DS.Tables("tab2").Columns.Add("part") DS.Tables("tab2").Columns.Add("pp0") DS.Tables("tab2").Columns.Add("pp1") DS.Tables("tab2").Columns.Add("yanglao") DS.Tables("tab2").Columns.Add("yibao") DS.Tables("tab2").Columns.Add("gongji") DS.Tables("tab2").Columns.Add("shiye") DS.Tables("tab2").Columns.Add("sum0") EndIf DimdvAsDataView=DS.Tables("tab1").DefaultView dv.Sort="part" ProgressBar1.Show() ProgressBar1.Value=0 ProgressBar1.Maximum=dv.Count-1 DimiAsInteger Dimdr,dr0AsDataRow Fori=0Todv.Count-1 ProgressBar1.Value=i Ifi=0Then dr=DS.Tables("tab2").NewRow dr("part")=dv(i).Row("part") dr("pp0")=dv(i).Row("pp1") dr("yanglao")=dv(i).Row("yanglao") dr("yibao")=dv(i).Row("yibao") dr("gongji")=dv(i).Row("gongji") dr("shiye")=dv(i).Row("shiye") dr("sum0")=dv(i).Row("sum0") dr0=DS.Tables("tab2").NewRow dr0("part")="合计" dr0("pp0")=0 dr0("yanglao")=0 dr0("yibao")=0 dr0("gongji")=0 dr0("shiye")=0 dr0("sum0")=0 Else Ifdr("part")<>dv(i).Row("part")Then dr0("pp0")+=dr("pp0") dr0("yanglao")+=dr("yanglao") dr0("yibao")+=dr("yibao") dr0("gongji")+=dr("gongji") dr0("shiye")+=dr("shiye") dr0("sum0")+=dr("sum0") DS.Tables("tab2").Rows.Add(dr) dr=DS.Tables("tab2").NewRow dr("part")=dv(i).Row("part") dr("pp0")=dv(i).Row("pp1") dr("yanglao")=dv(i).Row("yanglao") dr("yibao")=dv(i).Row("yibao") dr("gongji")=dv(i).Row("gongji") dr("shiye")=dv(i).Row("shiye") dr("sum0")=dv(i).Row("sum0") Else dr("pp0")+=dv(i).Row("pp1") dr("yanglao")+=dv(i).Row("yanglao") dr("yibao")+=dv(i).Row("yibao") dr("gongji")+=dv(i).Row("gongji") dr("shiye")+=dv(i).Row("shiye") dr("sum0")+=dv(i).Row("sum0") EndIf EndIf Application.DoEvents() Next dr0("pp0")+=dr("pp0") dr0("yanglao")+=dr("yanglao") dr0("yibao")+=dr("yibao") dr0("gongji")+=dr("gongji") dr0("shiye")+=dr("shiye") dr0("sum0")+=dr("sum0") DS.Tables("tab2").Rows.Add(dr) DS.Tables("tab2").Rows.Add(dr0) ProgressBar1.Hide() grdMain.CaptionText="结果数据" grdMain.DataSource=DS.Tables("tab2") grdStyles("tab2") MsgBox("数据已处理") EndSub
“VB.NET文件处理数据的方法”的内容就介绍到这里了,感谢大家的阅读。如果想了解更多行业相关的知识可以关注亿速云网站,小编将为大家输出更多高质量的实用文章!
免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。