fortran read 长度变化字符串数组

8-gods · 发表于 2015-6-2 22:37:44

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

x

有个文件，每行写着不同长度的字符串，每行字符串都是以后一些文件的一部分
比如有文件写着：
SDER
EDFFGGG
ERTGFGHHH
ED
ERGG
...
然后后面要读进一个数组中a（n）（n为行数）
想a（1）=SEER,a(2)=EDFFGGG,...

bjj948 · 发表于 2015-6-2 22:47:58

用自由格式读入字符串后，用trim吧

bjj948 · 发表于 2015-6-2 22:49:34

trim() 函数移除字符串两侧的空白字符或其他预定义字符。
trim功能：除去字符串开头和末尾的空格或其他字符。函数执行成功时返回删除了string字符串首部和尾部空格的字符串，发生错误时返回空字符串（""）。如果任何参数的值为NULL,Trim() 函数返回NULL。

oishii · 发表于 2015-6-3 09:55:40

直接用‘(A)’格式读入即可读入字符串的实际长度

do while(.true.)
read(unit, '(A)', iostat=stat) a(i)
i=i+1
if(stat/=0) exit
……
end do

oishii · 发表于 2015-6-3 09:57:57

当然，在定义数组时还是要定义足够的长度，写入结果文件时还是像上一位讲的，trim()

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

[求助] fortran read 长度变化字符串数组