麻辣家族討論版版 » Excel程式區 » 請教 Combobox 字串判斷

返回列表下一主題上一主題發帖

[發問] 請教 Combobox 字串判斷

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-11-2 09:41 | 顯示全部帖子

[發問] 請教 Combobox 字串判斷

本帖最後由 mark15jill 於 2012-11-2 09:50 編輯

如題。
Q1若 Combobox1  讀取資料夾內半不規則的檔案名稱，請問要怎在 Combobox1 判斷不重複，並且在Combobox2篩選
例如
C:\imagelist_test\       內有以下檔案
099年度-01-001.jpg  ~  099年度-01-n.jpg  (n 為不定值整數，如 001 002 003 等等之類 )
099年度-02-001.jpg  ~  099年度-02-n.jpg  (n 為不定值整數，如 001 002 003 等等之類 )
099年度-03-001.jpg  ~  099年度-03-n.jpg  (n 為不定值整數，如 001 002 003 等等之類 )
099年度-04-001.jpg  ~  099年度-04-n.jpg  (n 為不定值整數，如 001 002 003 等等之類 )

在Combobox1 內已讀取以上檔案：
099年度-01-001.jpg
099年度-01-002.jpg
099年度-01-003.jpg
099年度-01-004.jpg
099年度-02-001.jpg
099年度-02-002.jpg
099年度-02-003.jpg
099年度-02-004.jpg
099年度-03-001.jpg
099年度-03-002.jpg
099年度-03-003.jpg
099年度-03-004.jpg
099年度-04-001.jpg
099年度-04-002.jpg
099年度-04-003.jpg
099年度-04-004.jpg

要怎變成
Combobox1讀取                      Combobox2(若選擇 099年度-01時候)
099年度-01                      099年度-01-001.jpg
099年度-02                      099年度-01-002.jpg
099年度-03                      099年度-01-003.jpg
099年度-04                      099年度-01-004.jpg

'相關程式碼
Private Sub cmdReadFileName_Click()
Dim strNowPath As String '儲存目前檔案目錄
Dim strFileName As String '讀取到的檔案名稱
Dim strFileExt As String '檔案副檔名
strNowPath = Range("B1") '如果有設定以設定為主
strFileExt = Range("b2") '查詢檔案類型
If Trim(strNowPath) = "" Then
strNowPath = Excel.ActiveWorkbook.Path
End If
n = 0
Sheet3.Cells.Delete '將之前的結果清除
If Right(strNowPath, 1) = "\" Then
strFileName = Dir(strNowPath & strFileExt, vbDirectory)
strFileNameTime = strNowPath
Else
strFileName = Dir(strNowPath & "\" & strFileExt, vbDirectory)
strFileNameTime = strNowPath & "\"
End If
While strFileName <> ""
If strFileName <> ActiveWorkbook.Name Then '這個檔案不要顯示
If strFileName <> "." And strFileName <> ".." Then
n = n + 1
Sheet3.Cells(n, 1).Value = n
Sheet3.Cells(n, 2).Value = strFileName
End If
End If
strFileName = Dir() '讀取下一個檔案
'strFileNameTime = FileDateTime()
Wend
Exit Sub
End Sub

複製代碼

Q2-1
若檔案名稱前段後段無規則，那要怎區分？
099年度-01月-x2x4sa1.jpg
099年度-10-x2x4se4.jpg
Q2-2
若檔案名稱前段後段無規則，那要怎區分？(若以-為分界點)
099年度-01月-x2x4sa1.jpg
099年度-10-x2x4se4.jpg

樓主熱帖

收藏

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

2^#

發表於 2012-11-5 09:20 | 顯示全部帖子

回復 2# GBKEE

感謝大大的教導。
抱歉這幾天在忙沒上線今天才看到，等等來去試驗謝謝

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

靜思自在 : 天上最美是星星，人生最美是溫情。

返回列表下一主題上一主題