| 查看: 820 | 回复: 5 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
求教，csv文件读取时，intel visual fortan把换行符line feed识别成空格？
|
||
|
我需要读取一个软件生成的csv文件，csv文件通过逗号分隔列，通过换行符line feed分隔行，我读取该文件，一次读一个字符串并且记录，读取到换行符时却显示读取的是空格。搞不明白了，求大神指点…… 发自小木虫Android客户端 |
回复此楼» 猜你喜欢
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有14人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有16人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有15人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有17人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有21人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有21人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有8人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有8人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有8人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有6人回复
![\"求教，csv文件读取时，intel](\"https://muchongimg.xmcimg.com/data/bcs/2016/0110/bw158h2926333_1452399915_974.jpg#opennewwindow\")
5楼2016-01-10 12:25:38
|
以下是问题说明的代码; 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
50