本篇內(nèi)容介紹了“VB.NET文件處理數(shù)據(jù)的方法”的有關(guān)知識，在實際案例的操作過程中，不少人都會遇到這樣的困境，接下來就讓小編帶領(lǐng)大家學(xué)習(xí)一下如何處理這些情況吧！希望大家仔細(xì)閱讀，能夠?qū)W有所成！

10年積累的成都網(wǎng)站設(shè)計、網(wǎng)站建設(shè)、外貿(mào)網(wǎng)站建設(shè)經(jīng)驗，可以快速應(yīng)對客戶對網(wǎng)站的新想法和需求。提供各種問題對應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識你，你也不認(rèn)識我。但先網(wǎng)站設(shè)計后付款的網(wǎng)站建設(shè)流程，更有信州免費網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。

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  '處理數(shù)據(jù)  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="結(jié)果數(shù)據(jù)" grdMain.DataSource=DS.Tables("tab2")  grdStyles("tab2")  MsgBox("數(shù)據(jù)已處理")  EndSub

“VB.NET文件處理數(shù)據(jù)的方法”的內(nèi)容就介紹到這里了，感謝大家的閱讀。如果想了解更多行業(yè)相關(guān)的知識可以關(guān)注創(chuàng)新互聯(lián)網(wǎng)站，小編將為大家輸出更多高質(zhì)量的實用文章！