[發問] 文字檔分割

hsiaohsien

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

GBKEE

回復 1# hsiaohsien
依照space空格為分割點存於As陣列中，這句看的懂
希望與vba程式Keyin的值比對                  這句就看不懂  

hsiaohsien

G大本來想法是excel能否跳出輸入方塊打入我想查詢的字串例如ip，我覺得這做法也太麻煩，所以這部份我可以用編輯->尋找->尋找目標取代，但唯一美中不足的是要尋找只能輸入一筆資訊，因為要比對的名單還不少，逐一比對有點麻煩就是了

hsiaohsien

那As陣列中的值可否與sheets2中的A1、B1、C1、D1.....任一字串比對，如果有符合條件則該MyString變數，就放於sheets1中的A1、A2、A3....中，之前語意不明，實在抱歉，因文字檔檔案非常大，行數也不少，想從中篩選出我要的結果，存放於excel儲存格中，這樣記憶體會很耗資源嗎??聽說Perl才是效能好的語言，但它非常難學~~

GBKEE

回復 4# hsiaohsien
那As陣列中的值可否與sheets2中的A1、B1、C1、D1.....任一字串比對，如果有符合條件則該MyString變數，就放於sheets1中的A1、A2、A3....中
可上傳範例討論

hsiaohsien

請G大看看這範例檔案，內附說明

hsiaohsien

請G大看看這範例檔案，內附說明 compare.rar (6.97 KB)

ok
下載次數: 11

2011-9-6 08:42

GBKEE

回復 7# hsiaohsien
此例我想篩選報表中把符合條件的挑選後列於sheet1中
沒看到:   挑選後列於sheet1的範例資料

Hsieh

回復 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

複製代碼