本人的畢業設計。
我有數字水準儀的測量資料檔案，為Text格式的檔案。資料量比較大。現要逐行讀取資料，并提取相應資訊，輸出到新的TEXT檔案中。檔案資料如圖所示（三張圖片的資料）
上圖所示，只需提取其中第2,3,4,7,9列的資料，其余的均不要
上圖所示，只需要提取其中第一行，最后三行，及其他所有行中的例如KZD2，KYD3,2，3，4等的點號，所有的Rb和Rf，所有的單位為米（m）的資料
第三張圖，為第二張圖的補充
補充個說明一下，所需要的資料怎么提取到新的Text檔案中，并輸出。
請好心人幫忙，求大神求解答，萬分感謝！！！
uj5u.com熱心網友回復：
不就是一個簡單的Split函式就可以搞定的事嗎？ 你會想不到？ 人不要太懶了，真的。uj5u.com熱心網友回復：
應該是用TAB分隔的。讀出一行后，用Split按TAB拆分成陣列，
直接取陣列中對應的值就行了。
加上必要的判斷，就OK了。
uj5u.com熱心網友回復：
人民幣500幫樓主用VB6搞定.支付寶：[email protected]uj5u.com熱心網友回復：
給你一個通用的做法：一 打開檔案
Dim strLine As String, strItem() As String
Open "yourdata.txt" For Input As #1
Open "newfile.txt" For Output As #2
Do Until EOF(1)
‘這里處理資料
Loop
Close #2
Close #1
二 處理方法，以你第一圖的情況為例
Line Input #1, strLine
strLine = Replace(strLine, vbTab, Space(1)) ’將所有制表符替換為空格
strLine = Replace(strLine, “|", Space(1)) ’將所有豎線替換為空格
Do While InStr(strLine, Space(2)) '去掉多余的空格
strLine = Replace(strLine, Space(2), Space(1))
Loop
strItem = Split(strLine, Space(1))
If Ubound(strItem) > 7 Then
strLine = strItem(1) & vbTab & strItem(2) & strItem(3) & vbTab & strItem(6) & vbTab & strItem(8)
Print #2, strLine
End If
uj5u.com熱心網友回復：
這也行啊？學了一招。
你換來換去不麻煩啊？直接以vbTab分隔成陣列就好了。
uj5u.com熱心網友回復：
問題是，你怎知他只有 vbTab 分隔？要是還有多個空格呢？還有豎線呢？你如何保證分出的元素都是欄位？
uj5u.com熱心網友回復：
of123考慮倒是比較周全，但實際上樓主的檔案格式根本不明朗。從它的第2、3張圖來看，感覺就不是用vbTab分隔的，并且空格還不能作為分隔符。
我感覺那兩張圖中的內容，是豎線分隔、補空格對齊的。
所以不能把“拆分列”的事情想得太簡單。
uj5u.com熱心網友回復：
所以還是￥500接單更靠譜。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/93873.html
標籤：VB基礎類