字符串分割

Question

比如时间：2007-5-24 11-50-39 5
上面是2007年5月24日 11点50分39秒 星期四
我要如何将它分别显示在8个Label中为：
20
07
5
24
11
50
39
5

Answer 1

dim s as string 
dim a() as string
dim b() as string
dim i as long s=format("2007-5-24 11-50-39 5","yyyy-MM-dd hh:mm:ss w")
a=split(s," ")b=split(a(0),"-")
label1.caption=b(0)'year
label2.caption=b(1)'month
....b=split(a(1),":"))
labelx.caption=b(0)'hour
labely.caption=b(1)'minute
.....labelz.caption=a(2)'week

Answer 2

添加一个label数组：dim s as string
dim a() as string
dim i as integers="2007-5-24 11-50-39 5"
s=replace(s,left(s,4),format(left(s,4),"## ##")
s=replace(s,"-"," ")
a=split(s," ")
for i=0 to ubound(a)
    label1(i)=a(i)
next i

Answer 3

dim s as string
dim a() as string
dim i as integers="2007-5-24 11-50-39 5"
s=replace(s,left(s,4),format(left(s,4),"## ##")
s=replace(s,"-"," ")
a=split(s," ")
for i=0 to ubound(a)
    label1(i).caption=a(i)
next i

Answer 4

楼上的兄弟，为什么运行之后出现Run-time error '13'?

Answer 5

少了一个括号 -.-测试后的代码：
    Dim s As String
    Dim a() As String
    Dim i As Integer
    
    s = "2007-5-24 11-50-39 5"
    s = Replace(s, Left(s, 4), Format(Left(s, 4), "## ##"))
    s = Replace(s, "-", " ")
    
    a = Split(s, " ")
    For i = 0 To UBound(a)
        Label1(i).Caption = a(i)
    Next

Answer 6

如果s = Date & Time & Weekday(Date)怎么分割？

Answer 7

如果s = Date & Time & Weekday(Date)怎么分割？
------------------------------------------
数据之间要有分割符吧？或者遵循一定的格式？不然有的数据不好判断
比如2007-5-111:2:45，这样无法区分date和time吧？
如果遵循一定的格式，问题就会简单的多
比如，以上用一下format，就可以区分了：
s = format(Date,"yyyy-mm-dd") & format(Time,"hh:mm:ss") & Weekday(Date)

Answer 8

s=Date & Time & Weekday(Date)
直接这样就好了
s=Format(Now, "YYYY-MM-DD hh:mm:ss w")
不知道你的数据来源，只是一个建议