| 查看: 718 | 回复: 5 | ||
[求助]
求教，csv文件读取时，intel visual fortan把换行符line feed识别成空格？
|
|
我需要读取一个软件生成的csv文件，csv文件通过逗号分隔列，通过换行符line feed分隔行，我读取该文件，一次读一个字符串并且记录，读取到换行符时却显示读取的是空格。搞不明白了，求大神指点…… 发自小木虫Android客户端 |
回复此楼» 猜你喜欢
国自然上会要求
已经有9人回复
-
博士申请
已经有5人回复
-
面上本子正文33页，违规吗？会被低分嘛？
已经有9人回复
-
评审有感
已经有6人回复
-
今年审到国自然15份，谈谈感受
已经有16人回复
-
上海大学实验技术岗位非升即走
已经有8人回复
-
考博自荐
已经有6人回复
-
青C资助名额大幅增加！
已经有16人回复
-
重磅！青年科学基金项目（C类）资助增幅预计超过50%
已经有10人回复
-
我在等一个没有答案的答案
已经有3人回复
|
以下是问题说明的代码; 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
20