Question

急急急，大神速来，fortran编程转换文本格式问题

TXT文件里内容是“1@f@3@a@2”
想通过编程识别“@”符号，将数据分组并按行输出到xls里
“1
f
3
a
2
"
大神来指导一下啊，怎么编程啊！

Answer 1

PROGRAM baibu
integer::I,J,K
character(len=100)::txt,path
path= " tst.txt" !根据自己的文件名和相对路径调整
open(11,file=trim(path),status="old")
open(12,file="output.csv")
do
read(11,*,end=10)txt
I=len(trim(txt))
K=1
do J=1,I
if (txt(J:J)=="@")then
write(12,*)txt(K:J-1)
K=J+1
endif
enddo
write(*,*)k,I
if (k<=I) write(12,*)txt(K:I)
enddo
10 write(*,*)"Normal end"
END

差不多就是这样了