作者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