主题:关于数的排列问题,请高人指教!谢谢!
举个列子,如我要排个时间数字:
在A.txt文件里的格式是这样的:
02-13-06 22:29
---------------------------------
我要把这个时间排列为:
2006年02月13日 22:29分
可惜效果不好有太多空格,我排出来的是这样的:
20 06 年 02 月 13 日 22:29 分
以下是我的程序,请问有更好的排列方法或帮我改一下以下程序吗?谢谢!
OPEN "b.txt" FOR INPUT AS #1
OPEN "b.txt" FOR INPUT AS #2
OPEN "b.txt" FOR INPUT AS #3
OPEN "b.txt" FOR INPUT AS #4
FOR i = 1 TO 1
LINE INPUT #1, a$
LINE INPUT #2, b$
LINE INPUT #3, c$
LINE INPUT #4, d$
NEXT
CLOSE #1, #2, #3, #4
a$ = MID$(a$, 7, 2)
b$ = MID$(b$, 1, 2)
c$ = MID$(c$, 4, 2)
d$ = MID$(d$, 11, 5)
OPEN "c.txt" FOR OUTPUT AS #1
PRINT #1, "20", a$, "年", b$, "月", c$,"日",d$,"分"
CLOSE #1
CLOSE
在A.txt文件里的格式是这样的:
02-13-06 22:29
---------------------------------
我要把这个时间排列为:
2006年02月13日 22:29分
可惜效果不好有太多空格,我排出来的是这样的:
20 06 年 02 月 13 日 22:29 分
以下是我的程序,请问有更好的排列方法或帮我改一下以下程序吗?谢谢!
OPEN "b.txt" FOR INPUT AS #1
OPEN "b.txt" FOR INPUT AS #2
OPEN "b.txt" FOR INPUT AS #3
OPEN "b.txt" FOR INPUT AS #4
FOR i = 1 TO 1
LINE INPUT #1, a$
LINE INPUT #2, b$
LINE INPUT #3, c$
LINE INPUT #4, d$
NEXT
CLOSE #1, #2, #3, #4
a$ = MID$(a$, 7, 2)
b$ = MID$(b$, 1, 2)
c$ = MID$(c$, 4, 2)
d$ = MID$(d$, 11, 5)
OPEN "c.txt" FOR OUTPUT AS #1
PRINT #1, "20", a$, "年", b$, "月", c$,"日",d$,"分"
CLOSE #1
CLOSE