大主宰天蚕土豆小说,古风小说

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案

VB.NET文件處理解決方案

大家遇到過文本文件處理方面的問題嗎？我平時工作也常常遇見類似VB.NET文件處理的問題，現(xiàn)在就把我的一點經(jīng)驗給大家分享一下吧！

成都創(chuàng)新互聯(lián)公司成立十多年來，這條路我們正越走越好，積累了技術(shù)與客戶資源，形成了良好的口碑。為客戶提供成都做網(wǎng)站、成都網(wǎng)站設計、成都外貿(mào)網(wǎng)站建設、網(wǎng)站策劃、網(wǎng)頁設計、域名申請、網(wǎng)絡營銷、VI設計、網(wǎng)站改版、漏洞修補等服務。網(wǎng)站是否美觀、功能強大、用戶體驗好、性價比高、打開快等等，這些對于網(wǎng)站建設都非常重要，成都創(chuàng)新互聯(lián)公司通過對建站技術(shù)性的掌握、對創(chuàng)意設計的研究為客戶提供一站式互聯(lián)網(wǎng)解決方案，攜手廣大客戶，共同發(fā)展進步。

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文件處理問題的解決方案。

【編輯推薦】

實例講述VB.NET使用Log4Net
三分鐘學會VB.NET轉(zhuǎn)換形態(tài)
VB.NET獲取硬盤信息四大法寶
講述VB.NET調(diào)用Excel的好處
簡單例子概述VB.NET新窗體

本文題目：VB.NET文件處理解決方案
文章網(wǎng)址：http://fisionsoft.com.cn/article/cojhshi.html

新聞中心

其他資訊