温馨提示×

温馨提示×

您好,登录后才能下订单哦!

密码登录×
登录注册×
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》

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

发布时间:2021-09-13 09:36:36 来源:亿速云 阅读:175 作者:chen 栏目:编程语言

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

向AI问一下细节

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

AI