返回列表 上一主題 發帖

[發問] 文字檔分割

hsiaohsien

帖子
9 
主題
3 
精華
0 
積分
17 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
10 
註冊時間
2011-8-13 
最後登錄
2017-4-21 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-9-1 15:34 | 只看該作者

[發問] 文字檔分割

請問如何將MyString字串讀取後，依照space空格為分割點存於As陣列中，希望與vba程式Keyin的值比對，如果有符合就將陣列的值存與儲存格中，請高手教導 ~感恩~

compare.rar (5.59 KB)

收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
253  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-22 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
9#
發表於 2011-9-7 12:18 | 只看該作者
回復 7# hsiaohsien
  1. Sub ex()
  2. Dim ar()
  3. fs = ThisWorkbook.Path & "\FWlog.txt"
  4. Open fs For Input As #1
  5. Do While Not EOF(1)
  6.     Line Input #1, TextLine
  7.     For Each a In Sheet2.[A1:A4]
  8.       If InStr(TextLine, a) > 0 Then
  9.       ReDim Preserve ar(s)
  10.       ar(s) = TextLine
  11.       s = s + 1
  12.       End If
  13.     Next
  14. Loop
  15. Close #1
  16. For i = 0 To UBound(ar)
  17. Sheet1.Cells(i + 1, 1) = ar(i)
  18. Next
  19. End Sub
複製代碼
學海無涯_不恥下問

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
8#
發表於 2011-9-7 09:37 | 只看該作者
回復 7# hsiaohsien
此例我想篩選報表中把符合條件的挑選後列於sheet1中
沒看到:   挑選後列於sheet1的範例資料

TOP

hsiaohsien

帖子
9 
主題
3 
精華
0 
積分
17 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
10 
註冊時間
2011-8-13 
最後登錄
2017-4-21 
7#
發表於 2011-9-6 08:43 | 只看該作者
請G大看看這範例檔案，內附說明 compare.rar (6.97 KB)

TOP

hsiaohsien

帖子
9 
主題
3 
精華
0 
積分
17 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
10 
註冊時間
2011-8-13 
最後登錄
2017-4-21 
6#
發表於 2011-9-6 08:41 | 只看該作者
請G大看看這範例檔案，內附說明

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#
發表於 2011-9-3 10:26 | 只看該作者
回復 4# hsiaohsien
那As陣列中的值可否與sheets2中的A1、B1、C1、D1.....任一字串比對，如果有符合條件則該MyString變數，就放於sheets1中的A1、A2、A3....中
可上傳範例討論

TOP

hsiaohsien

帖子
9 
主題
3 
精華
0 
積分
17 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
10 
註冊時間
2011-8-13 
最後登錄
2017-4-21 
4#
發表於 2011-9-2 15:10 | 只看該作者
那As陣列中的值可否與sheets2中的A1、B1、C1、D1.....任一字串比對，如果有符合條件則該MyString變數，就放於sheets1中的A1、A2、A3....中，之前語意不明，實在抱歉，因文字檔檔案非常大，行數也不少，想從中篩選出我要的結果，存放於excel儲存格中，這樣記憶體會很耗資源嗎??聽說Perl才是效能好的語言，但它非常難學~~

TOP

hsiaohsien

帖子
9 
主題
3 
精華
0 
積分
17 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
10 
註冊時間
2011-8-13 
最後登錄
2017-4-21 
3#
發表於 2011-9-2 08:32 | 只看該作者
G大本來想法是excel能否跳出輸入方塊打入我想查詢的字串例如ip，我覺得這做法也太麻煩，所以這部份我可以用編輯->尋找->尋找目標取代，但唯一美中不足的是要尋找只能輸入一筆資訊，因為要比對的名單還不少，逐一比對有點麻煩就是了

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2011-9-1 20:40 | 只看該作者
回復 1# hsiaohsien
依照space空格為分割點存於As陣列中，這句看的懂
希望與vba程式Keyin的值比對                  這句就看不懂  

TOP

        靜思自在 : 欣賞別人就是莊嚴自己。
返回列表 上一主題