fortran read某一行需要跳过的部分字符

longxiaozi1985 · 发表于 2014-1-21 10:28:11

登录后查看更多精彩内容~

您需要登录才可以下载或查看，没有帐号？立即注册

x

如果read是某一行中某个数据是跳跃式的读取，不知道有什么方法能够解决。例如：想read的一行格式为时间：2014-01-21 10：25：30 最后想输出的格式为20140121102530

handsomeoy · 发表于 2014-1-21 10:54:24

先赋值给一个数组，再选取数组的部分输出

longxiaozi1985 · 发表于 2014-1-21 11:05:57

handsomeoy 发表于 2014-1-21 10:54

登录/注册后可看大图

先赋值给一个数组，再选取数组的部分输出

来个范例看看呗

ningking1986 · 发表于 2014-1-21 12:04:23

下面是粗略的代码，没有验证，仅供参考！
CHARACTER (LEN=180):: line
CHARACTER (LEN=14) :: res
INTEGER:: i ,j
READ(FILEUNIT, '(A180)') line
j=1
DO i=1,180
IF (ICHAR(line(i:i)>=48 .AND. ICHAR(line(i:i)<=57) THEN
res(j:j)=line(i:i)
j=j+1
ENDIF
IF (j>14) EXIT
ENDDO

ningking1986 · 发表于 2014-1-21 12:47:01

PROGRAM TEST
CHARACTER (LEN=180):: line
CHARACTER (LEN=14) :: res
INTEGER:: i ,j
READ(FILEUNIT, '(A180)') line
j=1
DO i=1,180
IF (ICHAR(line(i:i))>=48 .AND. ICHAR(line(i:i))<=57) THEN
res(j:j)=line(i:i)
j=j+1
ENDIF
IF (j>14) EXIT
ENDDO
WRITE(*,*) res
END PROGRAM TEST
上面的出了错误，IF ICHAR 中缺少了个括号。
这下应该没问题了。

小傅之追梦 · 发表于 2014-1-21 13:15:00

我写了一段比较简单的，不知道是不是你要的这种~
program ex
character*10 str1
character *8 str2

open(1,file='dat.txt')

read(1,*)str1,str2
print*,str1(1:4),str1(6:7),str1(9:10),str2(1:2),str2(4:5),str2(7:8)

end

longxiaozi1985 · 发表于 2014-1-21 14:29:16

ningking1986 发表于 2014-1-21 12:47

登录/注册后可看大图

PROGRAM TEST
CHARACTER (LEN=180):: line
CHARACTER (LEN=14) :: res

多谢多谢

longxiaozi1985 · 发表于 2014-1-21 14:29:31

小傅之追梦发表于 2014-1-21 13:15

登录/注册后可看大图

我写了一段比较简单的，不知道是不是你要的这种~
program ex
character*10 str1

多谢多谢

		自动登录	找回密码
密码			立即注册

[求助] fortran read某一行需要跳过的部分字符

登录后查看更多精彩内容~

评分

评分