文字檔讀取問題

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2011-9-23 08:41 | 顯示全部帖子

回復 1# herhsiu
已有許多發文 ,你可爬文暸解一下,如真不解,也需將題目說清楚. 包含特定字串內容的某一列資料讀取匯入excel 如此太含糊,要舉例才明白

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 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-23 16:36 | 顯示全部帖子

回復 3# herhsiu

Sub 匯入文字檔()
Dim i As Integer, ii As Integer, Mystr As String
With Application.FileDialog(msoFileDialogFilePicker) '[檔案選擇器]
.AllowMultiSelect = True '可多重選擇檔案
.Title = "文字檔匯入excel" '[檔案選擇器] 的標題
.Filters.Clear '清除 [檔案選擇器] 對話方塊的檔案篩選
.Filters.Add "文字檔", "*.txt", 1 '新增 [檔案選擇器] 對話方塊的檔案篩選
'篩選清單中新控制項所在位置的數值 1
.Filters.Add "*.*", "*.*", 2 '新增 [檔案選擇器] 對話方塊的檔案篩選
'篩選清單中新控制項所在位置的數值 2
.FilterIndex = 1 '當檔案對話方塊首次開啟時，預設篩選判定所顯示的檔案類型。
If .Show = 0 Then Exit Sub '沒選擇檔案時離開檔案
For i = 1 To .SelectedItems.Count '依序在選擇檔案數目的迴圈
Open .SelectedItems(i) For Input As #1 '開啟文字檔
Do While Not EOF(1) '不是檔案底部時執行迴圈
Input #1, Mystr '從已開啟的循序讀取資料，並將資料指定給變數。->mystr
If Mystr Like "*test*" Then '請修改"test" 為->要你搜尋某一字串
Cells(ii + 1, "a") = Mystr '整列匯入工作表
ii = ii + 1 '下一列
End If
Loop
Close #1 '關閉文字檔
Next
End With
End Sub

複製代碼

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2011-9-26 20:50 | 顯示全部帖子

回復 6# herhsiu

Sub 匯入文字檔A()
Dim i As Integer, ii As Integer, Str As Variant, F As Object
With Application.FileDialog(msoFileDialogFilePicker) '[檔案選擇器]
.AllowMultiSelect = True '可多重選擇檔案
.Title = "文字檔匯入excel" '[檔案選擇器] 的標題
.Filters.Clear '清除 [檔案選擇器] 對話方塊的檔案篩選
.Filters.Add "文字檔", "*.txt", 1 '新增 [檔案選擇器] 對話方塊的檔案篩選
'篩選清單中新控制項所在位置的數值 1
.Filters.Add "*.*", "*.*", 2 '新增 [檔案選擇器] 對話方塊的檔案篩選
'篩選清單中新控制項所在位置的數值 2
.FilterIndex = 1 '當檔案對話方塊首次開啟時，預設篩選判定所顯示的檔案類型。
If .Show = 0 Then Exit Sub '沒選擇檔案時離開檔案
For i = 1 To .SelectedItems.Count '依序在選擇檔案數目的迴圈
Set F = CreateObject("Scripting.FileSystemObject").OpenTextFile(.SelectedItems(i), 1, -1)
'F.READALL 讀取檔案的文字, Split(字串, 分隔字串)->傳回一維陣列
For Each Str In Split(F.READALL, Chr(10)) '傳回一維陣列的迴圈
If Str Like "*TEST*" Then
Cells(ii + 1, "a") = Str '整列匯入工作表
ii = ii + 1 '下一列
End If
Next
F.Close '關閉文字檔
Next
End With
End Sub

複製代碼

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2011-9-27 09:46 | 顯示全部帖子

回復 8# herhsiu
你的附檔中沒有程式碼如何幫你修正.
文字檔也要附上看看程序是要依需求來寫的.

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 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-27 11:57 | 顯示全部帖子

回復 10# herhsiu
文字檔只有2列嗎?
第一列有規律性嗎? 如最後一定有,'N'嗎?  要寫在哪一個檔?
  00:01:46  資料 = RAW values ( 'Z9.01','FG','90','SZ001.1','GL01',SYSDATE,'N','0.1','0.1' , '-
第二列 : data需依此數目往左shift 你的示意圖不夠清楚請加註文字說明
如 "00:01:47       -0.001       0       -0.038       0.035       0.042       -0.02       -0.13       -0.256       -0.009       0.004       -0.76       -0.134       968    如何放置於示意檔?  一定是3個欄位嗎 ?

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2011-9-27 14:46 | 顯示全部帖子

本帖最後由 GBKEE 於 2011-9-27 14:50 編輯

回復 12# herhsiu

Option Explicit
Sub 第一列()
Dim Str, A
Str = "00:01:46 資料 = RAW values ( 'Z9.01','FG','90','SZ001.1','GL01',SYSDATE,'N','0.1','0.1' , '-0.0129','0.006','-0.0119','0.0305','-0.0047','-0.0066','-0.0158','0.0007', '-0.0233','-0.0057','-0.0124','0.0057','-0.0113','0.0174','0.0005','-0.0122', '-0.0136','-0.0074','-0.016','0.0003','0.0025','-0.0143','0.0031','0.0121', '0.0161','-0.0222','0.0013','-0.0118','0.0004','-0.0116','-0.0055','0.0155', '-0.0076','0.0391','0.0001','0.0117','-0.012','0.0159','-0.0137','0.0085')"
A = InStr(Str, "SYSDATE,'N") ' 傳回數字 -> SYSDATE,'N 在 Str字串的位置
A = Mid(Str, A + 10) '截起Str字串 A+10 起. '(SYSDATE,'N) 字串長度 => 10
Str = Mid(Str, 1, 8) & A '結合兩字串 'Mid(Str, 1, 8)->00:01:46
Str = Replace(Str, "'", "") '消除字元 -> '
Str = Mid(Str, 1, Len(Str) - 1) '刪除最後字元 -> )
MsgBox Str
Str = Split(Str, ",") '-> '將字串轉為陣列
[A1].Resize(, UBound(Str)) = Str '陣列放置於列
[A3].Resize(UBound(Str)) = Application.WorksheetFunction.Transpose(Str) '陣列放置於欄
End Sub
Sub 第二列()
Dim Str As Variant, Ar(), A As Variant, i As Integer, ii As Integer, C As Integer, R As Integer
Str = "00:01:47 EQS send GLData_V5 to DS. [RvMsg]: [primPrcdId]Z9.01 [lotId]SZ001.1 [GLAutoRecipeId]V90_20 [GLEqpId]GL01 [stage]FG [parentNo]0 [intraTranslationX]-0.001 [intraTranslationY]0.000 [intraMagnification]-0.038 [intraRotation]0.035 [interRotation]0.042 [interOrthogonality]-0.020 [interExpansionX]-0.130 [interExpansionY]-0.256 [interTranslationX]-0.009 [interTranslationY]0.004 [asymrotation]-0.760 [asymmagnification]-0.134 [FlagSet]-00068+00036+00000+01000"
ReDim Ar(0) '重新宣告陣列維度
Ar(0) = Mid(Str, 1, 8) '將值指定給陣列
A = InStr(Str, "[parentNo]") '傳回數字 -> [parentNo] 在 Str字串的位置
Str = Mid(Str, A + Len("[parentNo]")) '截起Str字串 A 起.
Do
ReDim Preserve Ar(UBound(Ar) + 1) '重新宣告陣列維數 ( 加1維數 ) 'Preserve->保留原有資料
Ar(UBound(Ar)) = Val(Str) '將值指定給 ->陣列的最大維數
'Val ->(Str) 字串轉換為數字
A = InStr(Str, "]") '傳回數字 -> " ] " 在 Str字串的位置
Str = Mid(Str, A + 1) '
Loop While InStr(Str, "]") '字串裡有"]" 執行回圈
A = 0
For i = 1 To Len(Str) Step 6 'Step 6 ->每隔6字元
A = A + Val(Mid(Str, i, 6))
Next
ReDim Preserve Ar(UBound(Ar) + 1)
Ar(UBound(Ar)) = A '最後的數字指定給 ->陣列的最大維數
With Sheet2
C = .[A1].End(xlToRight).Column - 1 '取得欄數
R = 2 'A2 開始
i = 0 '陣列的第一維
Do While .Cells(R, "A") <> "" And i <= UBound(Ar) ' i <= UBound(Ar) -> 陣列的維數內
ii = 1 '欄數歸回第一欄
Do While ii <= C And i <= UBound(Ar)
.Cells(R, "A").Offset(, .Cells(R, "A") + ii) = Ar(i)
'Offset(, .Cells(R, "A") + ii) '.Cells(R, "A")-> 取得Shift 數字 ,ii(欄數)
i = i + 1
ii = ii + 1 '下一陣列維數
Loop
R = R + 1 '下一列
Loop
End With
End Sub

複製代碼

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2011-9-27 19:51 | 顯示全部帖子

回復 14# herhsiu
我的data並不會每一列都相同
那就不適用程式,巨集.

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 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-29 15:11 | 顯示全部帖子

回復 17# herhsiu
Replace 函數無法用 ? * 搜尋要替換的字串, 可否po 這列字串試試看

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2011-9-29 16:42 | 顯示全部帖子

回復 19# herhsiu

Sub 第一列()
Dim Str, A, i, Ar
Str = "00:10:56 TR4A-9.01 A80168.5 V81_79 OL1 AH_H 1 parentLotId_1A80168.1 0.000 0.000 0.299 -0.058 0.052 -0.035 -0.155 0.004 0.001 0.000 -0.037 0.071 +00035-00006+00000+00700"
ReDim Ar(0) '重新宣告陣列維度
Ar(0) = Mid(Str, 1, 8) '將值指定給陣列
A = InStr(Str, "parentLotId_") + Len("parentLotId_") ' 傳回數字 -> SYSDATE,'N 在 Str字串的位置
For i = A To Len(Str)
If Mid(Str, i, 1) = "." Then Exit For
Next
Str = Split(Mid(Str, i + 3), " ")
For i = 0 To UBound(Str)
ReDim Preserve Ar(UBound(Ar) + 1)
Ar(UBound(Ar)) = Str(i) '最後的數字指定給 ->陣列的最大維數
Next
A = 0
For i = 1 To Len(Ar(UBound(Ar))) Step 6 'Step 6 ->每隔6字元
A = A + Val(Mid(Ar(UBound(Ar)), i, 6))
Next
Ar(UBound(Ar)) = A
[A1].Resize(, UBound(Ar) + 1) = Ar '陣列放置於列
[A3].Resize(UBound(Ar) + 1) = Application.WorksheetFunction.Transpose(Ar) '陣列放置於欄
End Sub

複製代碼

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

10^#

發表於 2011-9-30 10:13 | 顯示全部帖子

回復 22# herhsiu
UBound函數: 表示指定陣列某維最大可使用的陣列索引
Ar(UBound(Ar)) => "+00035-00006+00000+00700"
For i = 1 To Len(Ar(UBound(Ar))) Step 6             'Step 6 ->每隔6字元
      A = A +  Val(Mid(Ar(UBound(Ar)), i, 6))
      '->  i=1-> +00035
      '-> i=1+6 -00006
      '-> i=7+6  +00000
      '-> i=13    +00700
Next

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]