VB.NET文件处理数据的方法

本篇内容介绍了“VB.NET文件处理数据的方法”的有关知识，在实际案例的操作过程中，不少人都会遇到这样的困境，接下来就让小编带领大家学习一下如何处理这些情况吧！希望大家仔细阅读，能够学有所成！

10年积累的成都网站设计、网站建设、外贸网站建设经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先网站设计后付款的网站建设流程，更有信州免费网站建设让你可以放心的选择与我们合作。

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文件处理数据的方法”的内容就介绍到这里了，感谢大家的阅读。如果想了解更多行业相关的知识可以关注创新互联网站，小编将为大家输出更多高质量的实用文章！