24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

kuangehaha

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 56.7
帖子: 16
在线: 6.9小时
虫号: 2926333
注册: 2014-01-11
专业: 多相流热物理学

[求助] 求教，csv文件读取时，intel visual fortan把换行符line feed识别成空格？

我需要读取一个软件生成的csv文件，csv文件通过逗号分隔列，通过换行符line feed分隔行，我读取该文件，一次读一个字符串并且记录，读取到换行符时却显示读取的是空格。搞不明白了，求大神指点……

发自小木虫Android客户端

回复此楼

» 猜你喜欢

申请26博士已经有5人回复
职称评审没过，求安慰已经有22人回复
垃圾破二本职称评审标准已经有15人回复
投稿Elsevier的Neoplasia杂志，到最后选publishing options时页面空白，不能完成投稿已经有20人回复
EST投稿状态问题已经有7人回复
毕业后当辅导员了，天天各种学生超烦已经有4人回复
聘U V热熔胶研究人员已经有10人回复
求助文献已经有3人回复
投稿返修后收到这样的回复，还有希望吗已经有8人回复
三无产品还有机会吗已经有6人回复

1楼2016-01-10 11:54:41

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

kuangehaha

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 56.7
帖子: 16
在线: 6.9小时
虫号: 2926333
注册: 2014-01-11
专业: 多相流热物理学

引用回帖:

2楼: Originally posted by kuangehaha at 2016-01-10 12:04:05
以下是问题说明的代码;

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
...

$\"求教，csv文件读取时，intel$

赞一下

回复此楼

5楼2016-01-10 12:25:38

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

查看全部 6 个回答

kuangehaha

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 56.7
帖子: 16
在线: 6.9小时
虫号: 2926333
注册: 2014-01-11
专业: 多相流热物理学

以下是问题说明的代码;

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

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖