作者zchien (小建)
看板Visual_Basic
標題Re: [VBA ]這種字串切割的邏輯要怎麼寫
時間Wed Jul 24 19:31:33 2013
※ 引述《MOONRAKER (㊣康少校是死到哪裡去了)》之銘言：
: ※ 引述《zchien (小建)》之銘言：
: [前略]
: : 我原本想要用Split依照"空白"去切..在讀出我要的時間和相對應的檔案名稱...
: : 但是我發現Result.txt 裡面的空白不太一定
: : 而且有可能檔名不同下載之後...空格也改變了...如下
: : -rw------- 1 Administrator None 185 Jun 23 21:46 .bash_history1
: : -rwxr-xr-x 1 Administrator None 1494 Jun 23 21:28 .bash_profile1
: : -rwxr-xr-x 1 Administrator None 6054 Jun 23 21:28 .bashrc1
: : -rwxr-xr-x 1 Administrator None 1919 Jun 23 21:28 .inputrc1
: : -rwxr-xr-x 1 Administrator None 1236 Jun 23 21:28 .profile1
: 1. split一次，得到陣列 t
: 2. 開一個字串陣列如 c(20)，20是隨便定的，夠用就好
: 3. 把陣列 t 跑一遍
: 如果元素為空 ("") ---- 跳過
: 否則 ---- 存到 c 中
: 如此 c 裡面各個元素就會在固定的位置。
: : 目前想到..是匯入到EXCEL作資料頗析...就可以依照讀儲存格方式讀出
: : 請問 有沒有不需要匯入資料..我卻可以讀出日期和檔名的方式呢??
: 很深奧，聽不懂。
:
感謝你的說明...我照你上面說的..寫好程式了..謝謝
Sub Test3()
Dim myArray() As String
Dim myArray2() As String
Dim i As Integer, j As Integer
[H:I].ClearContents
k = 1
For j = 1 To 10
myArray = Split(Cells(j, 1), " ")
ReDim myArray2(UBound(myArray)) As String
For i = 0 To UBound(myArray)
If myArray(i) <> "" Then
myArray2(k) = myArray(i)
k = k + 1
End If
Cells(j, 8).Value = "'" & myArray2(6) & "-" & myArray2(7)
Cells(j, 9).Value = myArray2(9)
Next i
k = 1
Next j
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 123.205.138.242
1F：→ MOONRAKER:很好… :) 07/24 20:24