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

【编辑推荐】

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

文章题目：VB.NET文件处理解决方案
标题路径：http://www.mswzjz.cn/qtweb/news39/277439.html

温江区贝锐智能技术服务部_成都网站建设公司，为您提供关键词优化、python、微信小程序、软件开发、网站制作、品牌网站制作

广告

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