VB.NET文件处理解决方案

大家遇到过文本文件处理方面的问题吗？我平时工作也常常遇见类似VB.NET文件处理的问题，现在就把我的一点经验给大家分享一下吧！

成都创新互联公司成立十多年来，这条路我们正越走越好，积累了技术与客户资源，形成了良好的口碑。为客户提供成都做网站、成都网站设计、成都外贸网站建设、网站策划、网页设计、域名申请、网络营销、VI设计、网站改版、漏洞修补等服务。网站是否美观、功能强大、用户体验好、性价比高、打开快等等，这些对于网站建设都非常重要，成都创新互联公司通过对建站技术性的掌握、对创意设计的研究为客户提供一站式互联网解决方案，携手广大客户，共同发展进步。

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文件处理问题的解决方案。

【编辑推荐】

实例讲述VB.NET使用Log4Net
三分钟学会VB.NET转换形态
VB.NET获取硬盘信息四大法宝
讲述VB.NET调用Excel的好处
简单例子概述VB.NET新窗体

网站名称：VB.NET文件处理解决方案
网站地址：http://www.hantingmc.com/qtweb/news39/277439.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容