返回列表 上一主題 發帖

[發問] 如何擷取出不重複名稱的陣列?

ui123

帖子
73 
主題
11 
精華
0 
積分
100 
點名
0  
作業系統
Win 8 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2013-5-11 
最後登錄
2018-7-25 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-4-11 23:56 | 只看該作者

[發問] 如何擷取出不重複名稱的陣列?

今天有一個問題想請教各位大大，是這樣的:
我在D槽有一資料夾複製了名稱類似的excel，想取出不要包含最後 "-數字"的名稱有那些，放置在一個陣列中:
卡住點:
問題1.無法用 arr(i) = sDir 取出各個xlsx
問題2.接下來想用len在find"-",算出位置然後不知道該刪除重複???

javascript:;

不知道有沒有人可以教教我，十分謝謝!

目前:
Sub List()
Dim arr(1000)
sPath = "D:\New folder\"
sDir = Dir(sPath & "*.xlsx", vbNormal)
i = 0
Do Until LenB(sDir) = 0
arr(i) = sDir
i = i + 1
Loop
End Sub

New folder.rar (24.31 KB)

File

收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2014-4-12 06:09 | 只看該作者
回復 1# ui123
  1. Option Explicit
  2. Sub List()
  3.     Dim arr(), sPath As String, sDir As String, i As Integer
  4.     'arr() 動態陣列(不限制陣列的維數)
  5.     sPath = "D:\New folder\"
  6.     sDir = Dir(sPath & "*.xlsx", vbNormal)
  7.     i = 0
  8.     Do While sDir <> ""   '傳回一個 String (字串)
  9.         ReDim Preserve arr(0 To i)  'ReDim  重置陣列維數, Preserve 保有原來陣列的內容
  10.         d(Split(sDir, "#")(0)) = ""
  11.         arr(i) = sDir
  12.         sDir = Dir            '依上一次的Dir條件繼續 的Dir
  13.         i = i + 1
  14.     Loop
  15. End Sub
複製代碼
問題2.接下來想用len在find"-",算出位置然後不知道該刪除重複???
20140401-01#35-1.xlsx
20140401-01#35-223.xlsx  
請說明要刪除哪一個?
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

ui123

帖子
73 
主題
11 
精華
0 
積分
100 
點名
0  
作業系統
Win 8 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2013-5-11 
最後登錄
2018-7-25 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2014-4-12 09:34 | 只看該作者
親愛的版主，我想要顯示 arr(20140401-01#35,20140401-156#35) 就可以了，但是 arr(i) = sDir好像會列出所有的檔案名。

不勝感激.....

TOP

ui123

帖子
73 
主題
11 
精華
0 
積分
100 
點名
0  
作業系統
Win 8 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2013-5-11 
最後登錄
2018-7-25 

論壇榮譽勳章論壇贊助勳章
4#
發表於 2014-4-12 09:37 | 只看該作者
回復 2# GBKEE

抱歉~忘記按到回復 >""""<


親愛的版主，我想要顯示 arr(20140401-01#35,20140401-156#35) 就可以了，但是 arr(i) = sDir好像會列出所有的檔案名。

不勝感激.....

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2014-4-12 11:49 | 只看該作者
回復 4# ui123
  1. Option Explicit
  2. Sub List()
  3.     Dim sPath As String, sDir As String, i As Integer
  4.     Dim D As Object, S As Integer
  5.     Set D = CreateObject("SCRIPTING.DICTIONARY") '字典物件
  6.     sPath = "D:\New folder\"
  7.     sDir = Dir(sPath & "*.xlsx", vbNormal)
  8.     i = 0
  9.     Do While sDir <> ""   '傳回一個 String (字串)
  10.         S = InStrRev(sDir, "-") - 1
  11.         If Not D.EXISTS(Mid(sDir, 1, S)) Then D(Mid(sDir, 1, S)) = ""
  12.         'D.EXISTS(key) 字典物件的key存在傳回 True 反之 傳回 False
  13.         sDir = Dir            '依上一次的Dir條件繼續 的Dir
  14.         i = i + 1
  15.     Loop
  16.     MsgBox Join(D.keys, vbLf)
  17. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 看別人不順眼，是自己修養不夠。
返回列表 上一主題