| 查看: 671 | 回复: 5 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
求教，csv文件读取时，intel visual fortan把换行符line feed识别成空格？
|
||
|
我需要读取一个软件生成的csv文件，csv文件通过逗号分隔列，通过换行符line feed分隔行，我读取该文件，一次读一个字符串并且记录，读取到换行符时却显示读取的是空格。搞不明白了，求大神指点…… 发自小木虫Android客户端 |
回复此楼» 猜你喜欢
336求调剂
已经有4人回复
-
求生物学调剂
已经有8人回复
-
08生物与医药专硕初试346找调剂
已经有6人回复
-
生物学327，求调剂
已经有6人回复
-
0710生物学求调剂
已经有7人回复
-
385分 生物学（071000）求调剂
已经有4人回复
-
材料考研调剂
已经有4人回复
-
366求调剂一志愿东北大学
已经有3人回复
-
08工科275分求调剂
已经有13人回复
-
材料工程322分
已经有6人回复
6楼2016-01-10 19:33:22
|
以下是问题说明的代码; 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
120