帖子: 140
主題: 37
精華: 0
積分: 193
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
註冊時間: 2012-3-28
最後登錄: 2015-7-5

2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-6-2 16:44 | 顯示全部帖子

[發問] 如何拆檔和結合新插入的指定文字檔

各位大大

我有1個文字檔由300個檔案左右組合而成,並由括弧區隔如下說明
1.開啟TEST.21csv文字檔,該檔由多個csv文字檔組成,見括弧內[*檔名*],
如A01.csv,CC0001.csv和E00001.csv,檔名下方為檔案內容,
包含不同數量組合的行列數(檔案大小不相等),
直至空白列後會出現[*div*]為該檔結尾
,然後是接續下一個檔名.

問題1:如何將TEST.21csv文字檔內的全部檔案,
         依照檔案名字拆出來,
         依序拆成A01.csv,CC0001.csv和E00001.csv.

問題2:如何把新增的文字檔如BB01.csv和DD1.csv,
         依照英文檔名文字排列順序,
         按先後順序填入檔名和檔尾詞,
         放入至TEST21.csv文字檔
         並轉存成至TEST21OK.csv.
(結果如附件)

煩請先進大大指導

TEST21.rar (23.48 KB)

樓主熱帖

luke

中學生 Rank: 2

帖子: 140
主題: 37
精華: 0
積分: 193
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
註冊時間: 2012-3-28
最後登錄: 2015-7-5

2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章

2^#

發表於 2012-6-4 15:21 | 顯示全部帖子

回復 2# GBKEE

當檔案名字中有連結符號 "-" 如BB-1.csv時
會出現執行階段錯誤 '1004'

煩請先進指導謝謝

TEST21A.rar (36.81 KB)

TOP

luke

中學生 Rank: 2

帖子: 140
主題: 37
精華: 0
積分: 193
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
註冊時間: 2012-3-28
最後登錄: 2015-7-5

2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章

3^#

發表於 2012-6-4 21:16 | 顯示全部帖子

回復 4# GBKEE

因主檔名無法修改
原#2第30列語法
E.CurrentRegion.Name = Replace(Replace(E, "*]", ""), "[*", "")
是否可將"定義名稱 " 所指向的檔名用split分割後
再加上連結符號 "-" 作關鍵字替代
如BB-1先分成 BB和數字"1"
再結合檔名成文字"BB"&"-"&"1"

以上想法
煩請指導
謝謝!

TOP

luke

中學生 Rank: 2

帖子: 140
主題: 37
精華: 0
積分: 193
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
註冊時間: 2012-3-28
最後登錄: 2015-7-5

2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章

4^#

發表於 2012-6-5 21:01 | 顯示全部帖子

回復 6# GBKEE

帶入#6新程式後執行至第12列會出現下列錯誤信息

查下列網址時有提到為圖表變更錯誤, 但實際工作表上並無任何圖表
http://support.microsoft.com/kb/211436/zh-tw

不知此問題是否檔案過多(200~300個檔)造成

煩請指導

TOP

luke

中學生 Rank: 2

帖子: 140
主題: 37
精華: 0
積分: 193
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
註冊時間: 2012-3-28
最後登錄: 2015-7-5

2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章

5^#

發表於 2012-6-6 00:08 | 顯示全部帖子

回復 8# GBKEE

測試#6更新程式後, 目前發現有2個問題
   1.新插入的主檔名若大於原始檔TEST21時,
      如TEST22.csv(22>21)或TF.csv(TF>TE),
      雖無錯誤發生, 實際無檔案產生.

   2.主檔名帶有"Monitor"例如MonitorTempContSet.csv和MonitorTimInv.csv兩個檔案
      執行排序時會與TempContSet.csv和TimInv.csv衝突
      其情形是MonitorTempContSet.csv和MonitorTimInv.csv個共出現兩次
      並直接覆蓋後者即TempContSet.csv和TimInv.csv會從原始檔消失不見
      (但檔名MonitorAbb.csv和MonitorAbc.csv卻不會與Abb.csv和Abc.csv衝突)
      研判是排序[檔名]錯亂造成

　　以上錯誤
　煩請指導
　謝謝!

TOP

luke

中學生 Rank: 2

帖子: 140
主題: 37
精華: 0
積分: 193
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
註冊時間: 2012-3-28
最後登錄: 2015-7-5

2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章

6^#

發表於 2012-6-6 21:13 | 顯示全部帖子

回復 9# Hsieh

謝謝H大

插入BB-1.csv和DD1.csv兩個檔所新建立的TEST21OK.csv,
其檔尾處顯示[**]如附件

TEST21OK.rar (369 Bytes)

TOP

luke

中學生 Rank: 2

帖子: 140
主題: 37
精華: 0
積分: 193
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
註冊時間: 2012-3-28
最後登錄: 2015-7-5

2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章

7^#

發表於 2012-6-6 21:34 | 顯示全部帖子

回復 11# GBKEE

   #11新修改程式測試後,
   排序情形變得很錯亂

   因檔名長和檔案很多
   我的想法是將檔案分別存檔後
   再依照排列順序
   結合一起
   如H超版於#9程式
   (但此程式採Chr(9)方式結合, 無法順利通過編譯)

   以上想法

煩請指導

TOP

luke

中學生 Rank: 2

帖子: 140
主題: 37
精華: 0
積分: 193
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
註冊時間: 2012-3-28
最後登錄: 2015-7-5

2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章

8^#

發表於 2012-6-6 21:40 | 顯示全部帖子

回復 14# luke

H大好

#9 第54列Ar(0) = "[*div*]"不小心打成 Ar(0) = "[**]"

謝謝回覆

TOP

luke

中學生 Rank: 2

帖子: 140
主題: 37
精華: 0
積分: 193
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
註冊時間: 2012-3-28
最後登錄: 2015-7-5

2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章

9^#

發表於 2012-6-6 23:48 | 顯示全部帖子

回復 16# GBKEE

謝謝版大

存檔時如何把ANSI文字檔格式改成Unicode文字檔格式

以下是用巨集錄製語法
ActiveWorkbook.SaveAs Filename:="D:\TEST21OK.txt", _
FileFormat:=xlUnicodeText, CreateBackup:=False

應如何套到#9和#11程式?

煩請指導謝謝

TOP

luke

中學生 Rank: 2

帖子: 140
主題: 37
精華: 0
積分: 193
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
註冊時間: 2012-3-28
最後登錄: 2015-7-5

2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章

10^#

發表於 2012-6-7 19:12 | 顯示全部帖子

本帖最後由 luke 於 2012-6-7 21:20 編輯

回復 18# GBKEE

謝謝版大

文字檔存檔格式已解決.

TEST21OK.csv檔案可否按照順序除去檔案首列名字[*檔名.csv*]和檔案結尾[*div*]和前一個空白列,
僅留中間內容如附件所示的檔案,
(或使用#9程式於拆檔轉存Unicode文字檔格式時, 不要帶入上述檔名和結尾)

煩請指導謝謝!

TEST21C.rar (12.56 KB)

TOP