Question

vb读取TXT中的日期数据 格式是这样的（yyyy--mm--dd)

Answer 1

format("数据","yyyy-mm-dd")

读数据，然后判断s=format(s,"yyyy-mm-dd")
满足则输出

Answer 2

把txt中的内容贴一小段出来

追问

157440113.000 2011-12-28 05:21:52 10 1525.7776 1532.6006 1538.5222 1541.6979 1544.5258 1550.6914 1553.0543 1556.6182 1558.8635 1561.7225 我想提取其中的日期

追答

private sub command1_click()
dim s as string,d() as string,i as integer
open "c:\1.txt" for input as #1
while not eof(1)
line input #1,s
d=split(s,chr(9))
for i=0 to ubound(d)
if IsDate(d(i)) then debug.print d(i)
next
wend
close #1
end sub

追问

谢谢 能帮我编一个小程序吗
我的QQ 是504524738

Answer 3

额.....