- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
13#
發表於 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
|
|
發表於 2011-9-27 12:27
| 
