| 查看: 772 | 回复: 5 | ||
[求助]
求教，csv文件读取时，intel visual fortan把换行符line feed识别成空格？
|
|
我需要读取一个软件生成的csv文件，csv文件通过逗号分隔列，通过换行符line feed分隔行，我读取该文件，一次读一个字符串并且记录，读取到换行符时却显示读取的是空格。搞不明白了，求大神指点…… 发自小木虫Android客户端 |
回复此楼» 猜你喜欢
水蒸气蒸馏法乳化现象
已经有3人回复
-
时间戳他又来了
已经有8人回复
-
小木虫看见有人已经知道结果了
已经有8人回复
-
J-J-W不为人知的一面
已经有11人回复
-
自然基金已经彻底沦为学术资源的交换工具
已经有36人回复
-
全人类对于AI的整体认知，尚且停留在幼儿园启蒙阶段
已经有14人回复
-
没消息就是被刷了呗
已经有10人回复
-
周末思考-婚姻长久底色
已经有12人回复
-
27考博求助
已经有4人回复
-
深圳大学材料学院“智能分子材料团队”招聘博士后
已经有4人回复
|
以下是问题说明的代码; program csvread implicit none integer :: i,j,k,error,n character*1, parameter :: line_feed=achar(10) character*1 :: s open(unit=10,file='d:\1.csv') do i=1,5 do j=1,5 n=5*(i-1)+j write(unit=10,fmt='(i2)',advance='no') n if(j/=5) then write(unit=10,fmt='(a1)',advance='no') ',' end if end do write(unit=10,fmt='(a1)',advance='no') line_feed end do close(10) open(unit=10,file='d:\1.csv',status='old') k=0 do while(.true.) read(unit=10,fmt='(a1)',advance='no',iostat=error) s write(*,*) iachar(s),s if(s==line_feed) then k=k+1 end if ! if(error/=0) then ! exit ! end if end do write(*,*) k close(10) stop end |
2楼2016-01-10 12:04:05
![\"求教，csv文件读取时，intel](\"https://muchongimg.xmcimg.com/data/bcs/2016/0110/bw158h2926333_1452399407_541.jpg#opennewwindow\")
3楼2016-01-10 12:18:48
![\"求教，csv文件读取时，intel](\"https://muchongimg.xmcimg.com/data/bcs/2016/0110/bw158h2926333_1452399800_828.jpg#opennewwindow\")
4楼2016-01-10 12:23:33
![\"求教，csv文件读取时，intel](\"https://muchongimg.xmcimg.com/data/bcs/2016/0110/bw158h2926333_1452399915_974.jpg#opennewwindow\")
5楼2016-01-10 12:25:38
6楼2016-01-10 19:33:22