使用程式將記事本內容整理資料

jntseng

請問各位前輩,我要如何寫VBA將記事本內的紅色框線整理成上面格式所示 （詳細說明如圖所示,相關記事本如附件所示)

Hsieh

那個判斷式後面是我們要指定變數的值是甚麼?
而不是取得那時的變數是甚麼值

jntseng

回復 8# Hsieh
謝謝版主的解釋,我是不是可以解釋為#~%之間表示TN=true,tk=flase
%~#之間表示TN=flase,tk=true呢?

Hsieh

就因為tn,tk的組合狀況會有多種組合,所以能用來做為資料擷取的開始與結束判斷依據
遇到#的下一行文字T409P086AA01就是id號碼的前置字串
有了id號碼的前置字串後若遇到該行為%接下來的各行前面是數字時
則該數字與id號碼的前置字串的組合就是整組id碼
直到在次遇到#才再重新取得id號碼的前置字串

jntseng

回復 6# Hsieh
謝謝版主的回覆,對於你的回覆,有些不懂,
當tn=true,tk=false 表示資料抬頭區域,指的是什麼? 是否可以筆記本的內容說明呢
當tn=false,tk=true 表示資料明細的開始,指的是什麼?是否可以筆記本的內容說明呢
會不會有tn=true,tk=true or tn=false,tk=false 呢? 代表的是什麼呢?

Hsieh

tn,tk此2變數是用來做截取資料開始及片段結束依據
可由If mystr = "#" Then tn = True: tk = False: GoTo 10
這行就是#那一行被讀入時，用tn告訴程式下一行開始就是資料抬頭區域
If mystr = "%" Then tn = False: tk = True
就是明細的開始
沒這2個變數當然執行不來囉

jntseng

回復 4# GBKEE
謝謝版主的回覆,對於tn,tk 還是不瞭解,我想以另外一個角度問,若程式碼沒有tn,tk的話,執行會有問題嗎? 若是會有問題的話,問題點在哪呢?

GBKEE

回復 3# jntseng
tn,tk   在記事本內 中並沒有意義 是程式以變數的true 或 false 作為運行的條件判斷

Split 為傳回一個陳列索引從零開始的一維陣列
Split(mystr, " ") =>在mystr字串變數以" "作為分隔符號  的一維陣列
Split(mystr, " ")(0) => 0此一維陣列的第 一個元素 以此類推
Not IsNumeric(Split(mystr, " ")(0)) =>傳回第 一個元素是否為字串

   

jntseng

回復 2# Hsieh
謝謝版主回覆,測試結果可用,但對程式碼有下面幾點想請教:
[1] tn,tk 代表的是什麼呢? 由程式碼推斷為true 與false 兩種,他在記事本內 所代表的意義是什麼呢?
[2] 程式碼內: If tn = True And Not IsNumeric(Split(mystr, " ")(0)) 所要表達的意識是否為 將mystr 有空格的地方做擷取的動作,但 IsNumeric(Split(mystr, " ")(0))中(0) 所代表的意思是什麼呢?

Hsieh

1. Sub Ex()
   
2. Dim ay(9), Ary()
   
3. fs = ThisWorkbook.Path & "\txt.txt"
   
4. Open fs For Input As #1
   
5. Do While Not EOF(1)
   
6.    Line Input #1, mystr
   
7.       If mystr = "#" Then tn = True: tk = False: GoTo 10
   
8.       If tn = True And Not IsNumeric(Split(mystr, " ")(0)) Then ty = Split(mystr, " ")(0): tn = False: GoTo 10
   
9.       If mystr = "%" Then tn = False: tk = True: GoTo 10
   
10.       If tn = False And tk = True And Val(mystr) <> 0 Then
    
11.          ar = Split(mystr, " ")
    
12.          ay(0) = ty & ar(0)
    
13.          For i = 1 To UBound(ar)
    
14.             If ar(i) <> "" Then
    
15.                j = j + 1
    
16.                ay(j) = ar(i)
    
17.             End If
    
18.          Next
    
19.          ReDim Preserve Ary(s)
    
20.          Ary(s) = ay
    
21.          s = s + 1: j = 0
    
22.        End If
    
23. 10
    
24. Loop
    
25. Close #1
    
26. [A2].Resize(s, 9) = Application.Transpose(Application.Transpose(Ary))
    
27. End Sub

複製代碼