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

Jason80Lo

原TXT開啟後只能依照檔案內TXT檔一次開啟，如第3列所產生的結果
目前需求：&、%、$ 為各一個段落，段落格數為固定的，檔案開啟後依照個段落的特別符號去分類，如第4列所產生的結果

下載 (7.22 KB)

2015-10-27 23:42

請各位高手幫忙，拜託

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

下載次數: 12

2015-10-27 23:40

准提部林

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
　
　
大致如上，其他細節請自行更改或調整～～

准提部林

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值為０），以空字符顯示

Jason80Lo

回復 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
個別是什麼意思？ 使用說明看不太懂
能請准大為小弟稍微解釋一下嗎 謝謝

准提部林

回復 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
＿以空白格剖析文字，再向右逐一填入　

Jason80Lo

回復 5# 准提部林


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

Jason80Lo

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

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

下載次數: 4

2015-10-29 20:48

准提部林

回復 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

Jason80Lo

回復 8# 准提部林


    謝謝 准大 小弟 研究研究

Jason80Lo

回復 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"

下載 (2.86 KB)

2015-11-8 18:29