| 查看: 818 | 回复: 5 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
求教，csv文件读取时，intel visual fortan把换行符line feed识别成空格？
|
||
|
我需要读取一个软件生成的csv文件，csv文件通过逗号分隔列，通过换行符line feed分隔行，我读取该文件，一次读一个字符串并且记录，读取到换行符时却显示读取的是空格。搞不明白了，求大神指点…… 发自小木虫Android客户端 |
回复此楼» 猜你喜欢
越来越担心硕士毕业后没有竞争力了
已经有14人回复
-
论文的挂名怎么评判贡献？基金申请中，排名第一的挂名文章
已经有3人回复
-
申博自荐 2篇一区TOP+1篇EI+2公开发明专利 2027博士申请
已经有3人回复
-
闲聊
已经有6人回复
-
申博求助
已经有4人回复
![\"求教，csv文件读取时，intel](\"https://muchongimg.xmcimg.com/data/bcs/2016/0110/bw158h2926333_1452399800_828.jpg#opennewwindow\")
4楼2016-01-10 12:23:33
|
以下是问题说明的代码; 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_1452399915_974.jpg#opennewwindow\")
5楼2016-01-10 12:25:38