[發問] VBA TXT 依照段落開啟需求

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-27

2^#

發表於 2015-10-28 11:03 | 只看該作者

Sub TEST()
Dim xPath$, xF$, xS As Worksheet, xEnd As Range, xR As Range, TT, T, N$, C%
xPath = ThisWorkbook.Path & "\"
Set xS = ThisWorkbook.Sheets("工作表1")
Do
　If xF = "" Then xF = Dir(xPath & "*.txt") Else xF = Dir
　If xF = "" Then Exit Do
　If Not xS.[A:A].Find(xF, LookAT:=xlWhole) Is Nothing Then GoTo 101
　Set xEnd = xS.Cells(Rows.Count, 1).End(xlUp)(2)
　If xEnd.Row < 3 Then Set xEnd = xS.[A3]
　xEnd = xF
　
　Open xPath & xF For Input Access Read As #1
　Do Until EOF(1)
　　Line Input #1, T
　　N = Switch(T = "&", "B", T = "%", "M", T = "$", "AC", T = T, "")
　　'＿T="&"，取Ｂ欄，類推～～；找不到"&%$"，N為空值　
　　If N <> "" Then Set xR = xEnd(1, N): 　C = 0
　　'＿找到"&%$"後，以xR定位為各分類的首格
　　For Each TT In Split(T, " ")
　　　　C = C + 1: 　xR(1, C) = TT
　　Next
　Loop
　Close #1
101: Loop
End Sub
　
　
大致如上，其他細節請自行更改或調整～～

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-27

3^#

發表於 2015-10-28 11:21 | 只看該作者

本帖最後由准提部林於 2015-10-28 11:25 編輯

N = Switch(T = "&", "B", T = "%", "M", T = "$", "AC", T = T, "")
也可用：
N = Array("", "", "B", "M", "AC")(InStr("_&%$", T))
＿InStr 值只有0,1,2,3,4 五種結果　

"_&%$"　前面加"_"，是為防止T是空格時的誤判（與FIND函數一樣，結果為１）
可測試　MsgBox InStr("&%$", "")

Array 前面兩個空字符，即是在T為空值（InStr值為１）或找不到文字時（InStr值為０），以空字符顯示

帖子: 35
主題: 8
精華: 0
積分: 45
點名: 0
作業系統: Win7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2015-9-22
最後登錄: 2016-4-14

4^#

發表於 2015-10-29 17:14 | 只看該作者

回復 3# 准提部林

感謝准大果然厲害
但請問
If Not xS.[A:A].Find(xF, LookAT:=xlWhole) Is Nothing Then GoTo 101
　Set xEnd = xS.Cells(Rows.Count, 1).End(xlUp)(2)
　If xEnd.Row < 3 Then Set xEnd = xS.[A3]
　xEnd = xF
- - - - - -
For Each TT In Split(T, " ")
　　　　C = C + 1: 　xR(1, C) = TT
　　Next
個別是什麼意思？使用說明看不太懂
能請准大為小弟稍微解釋一下嗎謝謝

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-27

5^#

發表於 2015-10-29 18:02 | 只看該作者

回復 4# Jason80Lo

If Not xS.[A:A].Find(xF, LookAT:=xlWhole) Is Nothing Then GoTo 101
＿如果文字檔名稱已存在，略過　

Set xEnd = xS.Cells(Rows.Count, 1).End(xlUp)(2)
＿取得準備填入資料的位置（最後一筆資料的下一格空白格）　

If xEnd.Row < 3 Then Set xEnd = xS.[A3]
＿如果這空白格列號小于３，則取Ａ３（防止標題無文字的錯誤）　

xEnd = xF
＿第一格填文字檔名　

For Each TT In Split(T, " ")
　　C = C + 1: 　xR(1, C) = TT
Next
＿以空白格剖析文字，再向右逐一填入　

帖子: 35
主題: 8
精華: 0
積分: 45
點名: 0
作業系統: Win7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2015-9-22
最後登錄: 2016-4-14

6^#

發表於 2015-10-29 19:13 | 只看該作者

回復 5# 准提部林

謝准大簡單又明瞭感恩
小弟研究一下

帖子: 35
主題: 8
精華: 0
積分: 45
點名: 0
作業系統: Win7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2015-9-22
最後登錄: 2016-4-14

7^#

發表於 2015-10-29 20:49 | 只看該作者

請問如果 txt檔中 &, #, %, @ 皆為資料的一個開頭
其中#, % 開頭裡的資料為無限個(而且有時候有有時候沒有),
這樣的話要如何去區分段落呢？
如附件檔案 2, 3列為原本顯示結果
6, 7列為希望的結果
請大大協助幫忙

VBA TXT 依照段落開啟需求.rar (24.3 KB)

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-27

8^#

發表於 2015-10-29 21:53 | 只看該作者

回復 7# Jason80Lo

Do Until EOF(1)
　　Line Input #1, T
　　If T = "&" Then Set xR = xEnd(1, "B"): C = 0
　　If (T = "#" Or T = "$") And N = "" Then Set xR = xEnd(1, "M"): C = 0: N = "Y"
　　If T = "@" Then Set xR = xEnd(1, "AO"): C = 0
　　For Each TT In Split(T, " ")
　　　　C = C + 1: xR(1, C) = TT
　　Next
Loop

帖子: 35
主題: 8
精華: 0
積分: 45
點名: 0
作業系統: Win7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2015-9-22
最後登錄: 2016-4-14

9^#

發表於 2015-11-3 23:03 | 只看該作者

回復 8# 准提部林

謝謝准大小弟研究研究

帖子: 35
主題: 8
精華: 0
積分: 45
點名: 0
作業系統: Win7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2015-9-22
最後登錄: 2016-4-14

10^#

發表於 2015-11-8 18:29 | 只看該作者

本帖最後由 Jason80Lo 於 2015-11-8 18:30 編輯

回復 8# 准提部林

　　If (T = "#" Or T = "$") And N = "" Then Set xR = xEnd(1, "M"): C = 0: N = "Y"
准大請問這行的意思，xEnd(1, "M")裡面的1什麼意思？
小弟試另三個TXT檔，同時開啟後只有第一個能夠順利依照儲存格編排(如下圖)
If (T = "#" Or T = "%") And N = "" Then Set xR = xEnd(1, "FZ"): C = 0: N = "Y"