请教一下文本内容改数据表格式的问题？

真主

请问如何才能将页面内容的内容自动写到表1中

todaynew

for循环结构变量了事。

真主

todaynew 发表于 2012-4-23 19:56
for循环结构变量了事。

请版主明示，对于VBA我一知半解，不太会用，谢谢！

todaynew

真主 发表于 2012-4-24 16:59
请版主明示，对于VBA我一知半解，不太会用，谢谢！

用replace函数将不需要的东西全部替换掉，剩下期号、号码、日期，然后用Split函数将字符串分解为数组，遍历数组并追加到数据表中。

真主

todaynew 发表于 2012-4-24 17:34
用replace函数将不需要的东西全部替换掉，剩下期号、号码、日期，然后用Split函数将字符串分解为数组， ...

你先别倒，我扶你，哈哈
12041884,09 02 10 08 05,2012-04-18 23:00,
12041883,07 02 06 10 08,2012-04-18 22:50,
12041882,05 10 01 04 02,2012-04-18 22:40,
12041881,08 10 01 03 04,2012-04-18 22:30,
12041880,09 11 03 08 05,2012-04-18 22:20,
12041879,06 08 10 09 01,2012-04-18 22:10,
12041878,11 10 08 04 09,2012-04-18 22:00,
12041877,08 01 02 05 04,2012-04-18 21:50,
我已通过replace将数据变成这样了，但“用Split函数将字符串分解为数组，遍历数组并追加到数据表中”我还是没用来，不好意思，能否提示

todaynew

真主 发表于 2012-4-24 19:57
你先别倒，我扶你，哈哈
12041884,09 02 10 08 05,2012-04-18 23:00,
12041883,07 02 06 10 08,2012-04 ...

鬼打架的。

sub insertTB(str as string)
   dim A，x
     dim i as integer
     dim num as string,d as date
     dim ssql as string
     A=Split(str,",")

     for i=0 to UBound(A)
        select case (i+1) mod 3
            case 1
                 num=A(i)
            case 2
                 x=Split(A(i)," ")
            case 0
                 d=A(i)
        end select
        if (i+1) mod 3=0 then
               ssql="insert into tbname (期号,时间,x1,x2,x3,x4,x5) Values('" & num & "',#"
               ssql=ssql &  d & "#,'" x(0) & "','" & x(1) & "','"  & x(2) & "','"  & x(3) & "','"  & x(4) & "')"   
                CurrentDb.Execute ssql
        end if
     next
end sub

LeeTien

返回的是JSON格式的数据
VB应该支持吧