回 帖 发 新 帖 刷新版面

主题:关于数的排列问题,请高人指教!谢谢!

举个列子,如我要排个时间数字:
在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

回复列表 (共3个回复)

沙发

把逗号换成分号.

板凳


原来那简单
我又学了一招
谢谢!

3 楼

open "A.TXT"for input as #1
open "C.TXT"for output as #2
line input #1,a$
PRINT #2, "20";mid$(a$,7,2);"年";mid$(a$,1,2);"月";mid$(a$,4,2);"日";mid$(a$,11,5);"分"
CLOSE

我来回复

您尚未登录,请登录后再回复。点此登录或注册