HSIEN6001

Sorry ~~完整的段落是這樣~~
<input type='hidden' name='filename' value='t108sb27_20120712_17145551.csv'>
<table class='noBorder' align='center' width='100%'><tr><td align='left'>

VBA.Split 特別看不懂
http://msdn.microsoft.com/zh-tw/library/system.string.split.aspx

InStr函数可返回一个字符串在另一个字符串中首次出现的位置。
http://www.w3school.com.cn/vbscript/func_instr.asp
InStr([start,]string1,string2[,compare])

請問...
InStr(VBA.Split(.responseText, "<table class='noBorder")(1)
中的(1)是甚麼意思?!

c_c_lai

回復 2# GBKEE
順帶請教： 使用 VBA.Split 與 函數之 Split 實務應用上到底有何差異？

GBKEE

回復 11# HSIEN6001

1. Option Explicit
   
2. Sub Ex() 'Split在字串中以指定的字元作分割傳回一維陣列
   
3.     Dim A As String, W, xi As Integer, i As Integer
   
4.     A = "1ABCD2ABCD3ABCD4ABCD"
   
5.     For xi = 2 To 6
   
6.         W = Split(A, Mid(A, xi, 1))
   
7.         For i = 0 To UBound(W)
   
8.             Debug.Print W(i)     '在即時運算視窗可見
   
9.         Next
   
10.         MsgBox Join(W, ",")
    
11.     Next
    
12. End Sub

複製代碼

回復 12# c_c_lai
使用 VBA.Split 與 函數之 Split 實務應用上到底有何差異  一樣的後者只是省略的寫法

HSIEN6001

回復 13# GBKEE

    不好意思!
因為這問題是 #4 樓的延伸
所以麻煩版大再幫我看看
取得原始碼為X變數


Left(VBA.Split(.responseText, "filename' value='")(1), InStr(VBA.Split(.responseText, "<table class='noBorder")(1), ">"))
請問,該句語法修定

1. Sub EX()
   
2. Dim xml As New XMLHTTP
   
3. Dim stream As New ADODB.stream
   
4. Dim strURL As String
   
5. Dim x As String
   
6.     strURL = "http://mops.twse.com.tw/mops/web/ajax_t108sb27?step=1&firstin=ture&off=1&TYPEK=sii&co_id_1=&co_id_2=&year=" & _
   
7.                 Year(Date) - 1911 & "&month=&b_date=&e_date=&type=1&rulesubmit2=%20%E6%90%9C%E5%B0%8B%20"
   
8.         With xml
   
9.             .Open "GET", strURL, 0
   
10.             .send
    
11.             Do While xml.ReadyState <> 4
    
12.             Loop
    
13.             x = Left(VBA.Split(.responseText, "filename' value='")(1), InStr(VBA.Split(.responseText, "<table class='noBorder")(1), "<"))
    
14.         End With
    
15. End Sub

複製代碼

HSIEN6001

回復 13# GBKEE

這範例,我還需要再Google 及消化吸收
一維陣列 & UBound(W) ?!
屆時若還不懂，再請教版大

xi=2 , Mid(A,2,1)=A , Split(1ABCD2ABCD3ABCD4ABCD,A)=1  , A為分割之界?
xi=3 , Mid(A,3,1)=B , Split(1ABCD2ABCD3ABCD4ABCD,B)=BCD2
xi=4 , Mid(A,4,1)=C , Split(1ABCD2ABCD3ABCD4ABCD,C)=BCD3
xi=5 , Mid(A,5,1)=D , Split(1ABCD2ABCD3ABCD4ABCD,D)=BCD4
xi=6 , Mid(A,3,1)=2 , Split(1ABCD2ABCD3ABCD4ABCD,2)=BCD

c_c_lai

回復 13# GBKEE

1. Option Explicit
   
2. Sub Ex() 'Split在字串中以指定的字元作分割傳回一維陣列
   
3.     Dim A As String, W, xi As Integer, i As Integer
   
4.     A = "1ABCD2ABCD3ABCD4ABCD"
   
5.     For xi = 2 To 6
   
6.         W = Split(A, Mid(A, xi, 1))
   
7.         For i = 0 To UBound(W)
   
8.         Debug.Print W(i)     '在即時運算視窗可見
   
9.         Next
   
10.         ' MsgBox Join(W, ",")
    
11.         MsgBox "(For " & xi & " To 6)" & Chr(10) & Chr(13) & "(For i = 0 To " & UBound(W) & ")" & Chr(10) & Chr(13) & _
    
12.                                          " Split(" & A & ", Mid(A, " & xi & ", 1)) -> " & "'" & Mid(A, xi, 1) & "'" & _
    
13.                                          Chr(10) & Chr(13) & "Join(W, ', ') -> " & Join(W, ",")
    
14.     Next
    
15. End Sub
    
16. 
    
17. ' (For 2 to 6)
    
18. ' (For i = 0 To 4)
    
19. ' Split("1ABCD2ABCD3ABCD4ABCD",Mid(A,2,1)) -> 'A'
    
20. ' Join(W,',') -> 1,BCD2,BCD3,BCD4,BCD
    
21. '
    
22. ' (For 3 to 6)
    
23. ' (For i = 0 To 4)
    
24. ' Split("1ABCD2ABCD3ABCD4ABCD",Mid(A,3,1)) -> 'B'
    
25. ' Join(W,',') -> 1A,CD2A,CD3A,CD4A,CD
    
26. '
    
27. ' (For 4 to 6)
    
28. ' (For i = 0 To 4)
    
29. ' Split("1ABCD2ABCD3ABCD4ABCD",Mid(A,4,1)) -> 'C'
    
30. ' Join(W,',') -> 1AB,D2AB,D3AB,D4AB,D
    
31. '
    
32. ' (For 5 to 6)
    
33. ' (For i = 0 To 4)                   <---   正確應為 For i = 0 To 3
    
34. ' Split("1ABCD2ABCD3ABCD4ABCD",Mid(A,5,1)) -> 'D'
    
35. ' Join(W,',') -> 1ABC,2ABC,3ABC,4ABC
    
36. '
    
37. ' (For 6 to 6)
    
38. ' (For i = 0 To 1)
    
39. ' Split("1ABCD2ABCD3ABCD4ABCD",Mid(A,6,1)) -> '2'
    
40. ' Join(W,',') -> 1ABCD.ABCD3ABCD4ABCD

複製代碼

謝謝您的範例，簡明扼要。
經測試， For 5 to 6 的迴圈時，因該 A 字串尾端字元為 D，
且 Split(A, Mid(A,5,1)) 又為 D 時， UBound(W) 會判定為 4，
因為 W(4) = ""。 如果使用 UBound(W) 來做處理就會有 Bug 了。

HSIEN6001

回復 13# GBKEE

終於意會這範例
xi=2 , Mid(A,2,1)=A , W=Split(1ABCD2ABCD3ABCD4ABCD,A)=4 個 A , UBound(W)=4 , For i = 0 To 4
  則 W(0)=1 , W(1)=BCD2 , W(2)=BCD3 , W(3)=BCD4 , W(4)=BCD

xi=3 , Mid(A,3,1)=B , w=Split(1ABCD2ABCD3ABCD4ABCD,B)=4 個 B , UBound(W)=4 , For i = 0 To 4
  則 W(0)=1A , W(1)=CD2A , W(2)=CD3A , W(3)=CD4A , W(4)=CD

xi=4 , Mid(A,4,1)=C , w=Split(1ABCD2ABCD3ABCD4ABCD,C)=4 個 C , UBound(W)=4 , For i = 0 To 4
  則 W(0)=1AB , W(1)=D2AB , W(2)=D3AB , W(3)=D4AB , W(4)=D

xi=5 , Mid(A,5,1)=D , w=Split(1ABCD2ABCD3ABCD4ABCD,D)=4 個 D , UBound(W)=4 , For i = 0 To 4
  則 W(0)=1ABC , W(1)=2ABC , W(2)=3ABC , W(3)=4ABC , W(4)=空值

xi=6 , Mid(A,3,1)=2 , w=Split(1ABCD2ABCD3ABCD4ABCD,D)=1 個 2 , UBound(W)=1 , For i = 0 To 1
  則 W(0)=1ABCD , W(1)=ABCD3ABCD4ABCD

好難喔!需要消化.....很久!
魚不如漁,謝謝版大的範例說明

===========================
再來自解問題
InStr函數可返回一個字串在另一個字串中首次出現的位置。
Split在字串中以指定的字元作分割傳回一維陣列。
需求是 t108sb27_20120712_17145551.csv

語法修改前:Left(VBA.Split(.responseText, "filename' value='")(1), InStr(VBA.Split(.responseText, "<table class='noBorder")(1), "<"))

VBA.Split(.responseText, "filename' value='")=t108 開始
InStr(VBA.Split(.responseText, "<table class='noBorder")(1),"<")
因為兩段落之間有Alt+Enter

所以給了這個值 -1
(InStr(VBA.Split(.responseText, "<table class='noBorder")(1),"<")-1)
RUN結果不對耶!

若遇上字串間有個Alt+Enter 該如何處理??  這疑問尚未解決
<input type='hidden' name='filename' value='t108sb27_20120712_17145551.csv'>
<table class='noBorder' align='center' width='100%'><tr><td align='left'>

再請教 Split(字串,分割字元)(1)--->這個(1)是?意思

GBKEE

回復 16# c_c_lai
(For i = 0 To 4)                   <---   正確應為 For i = 0 To 3
' Split("1ABCD2ABCD3ABCD4ABCD",Mid(A,5,1)) -> 'D'  這裡並沒有套入 i  這變數
可以傳上你所說的錯誤 程式碼

回復 17# HSIEN6001

1. Sub Ex()
   
2.     Dim strURL As String, x As String
   
3.     strURL = "http://mops.twse.com.tw/mops/web/ajax_t108sb27?step=1&firstin=ture&off=1&TYPEK=sii&co_id_1=&co_id_2=&year=" & _
   
4.                 Year(Date) - 1911 & "&month=&b_date=&e_date=&type=1&rulesubmit2=%20%E6%90%9C%E5%B0%8B%20"
   
5.         With CreateObject("Microsoft.XMLHTTP")
   
6.             .Open "GET", strURL, 1
   
7.            .send
   
8.             Do While .ReadyState <> 4
   
9.             Loop
   
10.              x = Left(VBA.Split(.responseText, "filename' value='")(1), InStr(VBA.Split(.responseText, "<table class='noBorder")(1), "<"))
    
11.            MsgBox x
    
12.         End With
    
13. End Sub
    
14. Sub Ex_Split() 'Split(字串,分割字元)(1)--->這個(1)是?意思
    
15.     Dim A As String, W, xi As Integer, i As Integer
    
16.     A = "1ABCD2ABCD3ABCD4ABCD"
    
17.     W = Split(A, "B")
    
18.     For i = 0 To UBound(W)
    
19.         MsgBox "W(" & i & ")  -> " & W(i)
    
20.     Next
    
21. End Sub

複製代碼

HSIEN6001

回復 18# GBKEE

程式碼在#14樓

若顯示在[A1]

1. Sub EX()
   
2. Dim xml As New XMLHTTP
   
3. Dim stream As New ADODB.stream
   
4. Dim strURL As String
   
5.     strURL = "http://mops.twse.com.tw/mops/web/ajax_t108sb27?step=1&firstin=ture&off=1&TYPEK=otc&co_id_1=&co_id_2=&year=" & _
   
6.                 Year(Date) - 1911 & "&month=&b_date=&e_date=&type=1&rulesubmit2=%20%E6%90%9C%E5%B0%8B%20"
   
7.         With xml
   
8.             .Open "GET", strURL, 0
   
9.             .send
   
10.             Do While xml.ReadyState <> 4
    
11.             Loop
    
12.             [A1] = Left(VBA.Split(.responseText, "filename' value='")(1), InStr(VBA.Split(.responseText, "<table class='noBorder")(1), "<"))
    
13.             
    
14.         End With
    
15. End Sub

複製代碼

不知為何有時OK~有時不行?!


我是參考#2 樓語法
Rng.Offset(0, 1) = Left(VBA.Split(.responseText, "KK</span>")(1), InStr(VBA.Split(.responseText, "KK</span>")(1), "]"))
修改而來的
Left(VBA.Split(.responseText, "filename' value='")(1), InStr(VBA.Split(.responseText, "<table class='noBorder")(1), "<"))

Split(字串,分割字元)(1)--->這個(1)是?意思
看不懂(1)的作用

HSIEN6001

回復 18# GBKEE

Split(字串,分割字元)(1)--->這個(1)是?意思
看不懂(1)的作用  , 我是參考#2 樓語法
Rng.Offset(0, 1) = Left(VBA.Split(.responseText, "KK</span>")(1), InStr(VBA.Split(.responseText, "KK</span>")(1), "]"))
修改應用 Left(VBA.Split(.responseText, "filename' value='")(1), InStr(VBA.Split(.responseText, "<table class='noBorder")(1), "<"))

不好意思!我表達不夠清楚
壓縮檔內有兩個下載,一個是NG,一個OK
不知為何有時會NG
測試-某次NG結果.rar (147.33 KB)

下載次數: 7

2012-7-15 18:26