vb中，如何讀取不規則的文本檔案，到xls電子表格中.如txt檔案如下：-有解無憂

vb中，如何讀取不規則的文本檔案，到xls電子表格中.如txt檔案如下：
50122219800198     貴州                 交易型別：2      價格               黃三     男     139081352555          地址：市中區北京路3號
50122219800185    河南                交易型別：2      價格             李武           女   139081352555          地址：市中區上海路紫云街13號
50122219800152   北京                 交易型別：2      價格               鹿紅         男   139081352555          地址：市中區南京路厚街26號
5012221980016522    四川                 交易型別：1     價格         李四娃         男       139081352555          地址：市中區四川路梅花鹿街19號
這個文本檔案中間空白處可能是空格鍵、tab鍵或者其他鍵。這個TXT檔案很大，有20M左右，盡量詳細些，謝謝！

uj5u.com熱心網友回復：

不要怕檔案大，20M算小檔案。
對于你覺得亂的檔案，先做檔案整理
考慮你處理這種檔案的頻率，如果就是一次性處理，那么用現成工具進行格式整理就行了。如果是需要頻繁處理此類檔案再考慮使用程式腳本處理。
不論用程式還是用工具，第一步，先搞清楚檔案的規則，比如資料行的分隔符是啥，欄位使用分隔符分隔還是用定長處理。總是有規則的，按照規則來。對于一些不定長的無用資料比如空格，如果你能區分到某個欄位里面去那就分到欄位里再去trim。
如果是真心不知道規則，但是就想遇到連續的空格就當分隔符，那么我喜歡用UE之類的文本編輯工具，搜索兩個空格，替換成一個空格。重復執行幾次，當他說再也找不到連續的兩個空格時，那么檔案里面所有的連續空格就都被替換成1個空格了。

如此之類的處理完再進行資料行和欄位的分隔就簡單了。

uj5u.com熱心網友回復：

正則運算式可以了解一下.

uj5u.com熱心網友回復：

一行一行的讀取，每行進行“預處理”（替換操作），然后進行“欄位分隔”。
　把分隔結果寫入 Excel的每一行…………

So easy . . . . . . . .

uj5u.com熱心網友回復：

參考 3 樓舉杯邀明月的回復:

一行一行的讀取，每行進行“預處理”（替換操作），然后進行“欄位分隔”。
　把分隔結果寫入 Excel的每一行…………

So easy . . . . . . . .

好像很多人對回圈有一種恐懼，說到逐一咋的就蒙圈。

uj5u.com熱心網友回復：

Quote: 參考 1 樓脆皮大雪糕的回復:

不要怕檔案大，20M算小檔案。
對于你覺得亂的檔案，先做檔案整理
考慮你處理這種檔案的頻率，如果就是一次性處理，那么用現成工具進行格式整理就行了。如果是需要頻繁處理此類檔案再考慮使用程式腳本處理。
不論用程式還是用工具，第一步，先搞清楚檔案的規則，比如資料行的分隔符是啥，欄位使用分隔符分隔還是用定長處理。總是有規則的，按照規則來。對于一些不定長的無用資料比如空格，如果你能區分到某個欄位里面去那就分到欄位里再去trim。
如果是真心不知道規則，但是就想遇到連續的空格就當分隔符，那么我喜歡用UE之類的文本編輯工具，搜索兩個空格，替換成一個空格。重復執行幾次，當他說再也找不到連續的兩個空格時，那么檔案里面所有的連續空格就都被替換成1個空格了。

如此之類的處理完再進行資料行和欄位的分隔就簡單了。：這位仁兄，感謝你的回答，20M,文本檔案，一百多萬條記錄了，處理起來還是要麻煩些，光是打開檔案，電腦就卡頓了幾秒鐘，大概思路知道了，也不是經常處理，但是，一年要遇到到兩三次，如果用工具，是啥工具可以格式整理，具體代碼是啥？用程式咋個格式整理，如何判斷資料行的分隔符，感覺這個文本檔案是用tab鍵分隔的，不過我看見有的空格短，有的空格長，用input#1讀取報超出檔案尾錯誤。還望仁兄再指導一下，謝謝！
uj5u.com熱心網友回復：

參考 3 樓舉杯邀明月的回復:
一行一行的讀取，每行進行“預處理”（替換操作），然后進行“欄位分隔”。
　把分隔結果寫入 Excel的每一行…………

So easy . . . . . . . .

感謝這位仁兄的回答，一行一行的讀取，每行進行“預處理”（替換操作），然后進行“欄位分隔”。
　把分隔結果寫入 Excel的每一行…………，關鍵是咋個一行一行的處理，能否有詳細代碼？
uj5u.com熱心網友回復：
你用“文本編輯器”（特別是“瘟到死”系統的“記事本”）
　　去打開比較大的檔案，它引起卡頓，很平常。
　雖然　20MB左右的檔案，實質上也并不算太大。

既然一年才遇到兩、三次，那直接用 Excel打開，
　　利用它的“分列”功能處理，不就行了？

uj5u.com熱心網友回復：
這個代碼是VBS的腳本,注意:沒有處理文本中包含逗號的情況:
Set fso = createobject("scripting.filesystemobject")

curdir = fso.getparentfoldername(wscript.scriptfullname)

inputpath = fso.buildpath(curdir,"data.txt")

Set stream = fso.opentextfile(inputpath,1,False)

content = stream.readall()

stream.close

Set reg = createobject("vbscript.regexp")

reg.Global = True

reg.ignorecase = True

reg.multiline = True

reg.pattern = "[ \t]+"

content = reg.Replace(content,",")

outputpath = fso.buildpath(curdir,"data.csv")

Set stream = fso.opentextfile(outputpath,2,True)

stream.write content

stream.close

msgbox "done!"
運行示例(標出的兩列需要調整一下單元格格式):

下載地址:
鏈接：https://pan.baidu.com/s/1NSeqvxgfSt1z4WB6-Wz5ZQ
提取碼：lk9y

uj5u.com熱心網友回復：
開大檔案用UE之類的工具，別說20M，2G開起來都不費力

轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/33353.html
標籤：VB基礎類

上一篇：excel批量匯入excel
下一篇：PPT中VBA編程中方法Navigate作用物件IWebBrowser2時失敗