Question

fortran读入txt文件之后想把前两列重新写入一个txt中

fortran读入txt文件之后想把前两列重新写入一个txt中，第一列是用户的id，第二列是书名

Answer 1

字符串处理本就不是fortran的强项。此问题用pascal很容易，程序如下：
var
f1,f2:text;
s,s1,s2:string;
p1,p2:integer;
begin
assign(f1,'test.txt'); reset(f1);
assign(f2,'test.out'); rewrite(f2);
while not eof(f1) do begin
readln(f1,s);
p1:=pos('|',s); s[p1]:='#';
p2:=pos('|',s);
s1:=copy(s,1,p1-1);
s2:=copy(s,p1+1,p2-p1-1);
writeln(f2,s1,' ',s2);
end;
close(f1); close(f2);
end.

追问

没学过Pascal...