主题：如何读取两次输入文件
alongzhen
[专家分：0] 发布于 2011-04-28 12:05:00
输入文件中有数组及字符，读取后程序运行也没问题。现在想将读取的输入文件原封不动的在输出文件中出现（输入文件有字符串‘*******',也有数组：20*23,6,2*8,10*8.....等等）。如何处理？可否将输入文件按全部字符对待，再从头读取一遍，然后再输出？请高手指教，谢谢！
回复列表 （共8个回复）
沙发
yanger210 [专家分：30] 发布于 2011-04-28 13:56:00
读取时，字符串赋值给字符变量，数字赋值给数组变量，最后再写在文件里就行了。
板凳
cgl_lgs [专家分：21040] 发布于 2011-04-28 14:24:00
重打开，
一行一行读
一行一行写。
完~~~
3 楼
alongzhen [专家分：0] 发布于 2011-04-28 14:28:00
我的意思是，数组也原样写到输出文件中，不要变成每个数值都列出。如输入的10*23表示10个实数都是23.而且要输出文件中也是10*23，不要列出23,23,23,23，....写出10个来。
4 楼
cgl_lgs [专家分：21040] 发布于 2011-04-28 14:33:00
[quote]我的意思是，数组也原样写到输出文件中，不要变成每个数值都列出。如输入的10*23表示10个实数都是23.而且要输出文件中也是10*23，不要列出23,23,23,23，....写出10个来。[/quote]
是啊，那我说得更详细些吧：
打开输入文件
打开输出文件
循环
按字符串读入一行
当文件结束时退出循环
按字符串写一行
循环结束
关闭输入文件
继续对输出文件做其他操作
关闭输出文件。
5 楼
alongzhen [专家分：0] 发布于 2011-04-29 16:14:00
感谢cgl_lgs的答复，重复读取可以了，但是，输入文件中的一行数据加入是：23，234,667，0,3,1
按文本读取是只读取了每行第1个数，逗号后的数不读取，接下来就读取下一行的第1个数，一直到最后一行，不知如何能把逗号后的也读取（按字符方式读取）？
6 楼
cgl_lgs [专家分：21040] 发布于 2011-04-30 10:11:00
character*512 Buff
!设文件号为12
Read(12,'(A512)')BUFF
7 楼
yeg001 [专家分：14390] 发布于 2011-04-30 21:27:00
cgl_lgs兄的意思就是你把它们当字符全部读取进来, 然后把这个字符串全部写到新文件.
8 楼
cgl_lgs [专家分：21040] 发布于 2011-05-01 12:00:00
[quote]cgl_lgs兄的意思就是你把它们当字符全部读取进来, 然后把这个字符串全部写到新文件.[/quote]
YEG001兄正解~~~
我来回复
您所在位置：社区首页 — Fortran讨论区 — 如何读取两次输入文件