78 lines
2.0 KiB
Fortran
78 lines
2.0 KiB
Fortran
|
||
!按格式读取文件，将csv文件按字符串形式分列读取，对时间格式进行处理
|
||
!csv文件首列为时间，后续为数值，参考智慧大坝环境文件
|
||
!时间格式支持年月日时分和年月日，年月日以/隔开，时分以:隔开
|
||
!若数值有多列，字符串长度适度增加
|
||
|
||
subroutine FileTrans(M,FileLen,FileName,N,OutLine)
|
||
implicit none
|
||
|
||
common /tips/err
|
||
integer :: err
|
||
|
||
integer :: M !文件列数
|
||
integer :: FileLen
|
||
character(len=FileLen) :: FileName
|
||
real*8 :: OutLine(1000,M) !时间数值（精确到小时）超过8位
|
||
|
||
|
||
character(len=200) :: cha
|
||
character(len=200) :: cdate,cnum
|
||
integer :: date(1000,5)
|
||
real*8 :: num(1000,M-1)
|
||
integer :: i,stat,j
|
||
integer :: datenum !日期格式数量
|
||
integer :: N !数列长度
|
||
N = 0
|
||
datenum = 0
|
||
date = 0
|
||
num = 0
|
||
OutLine = 0
|
||
|
||
open(100,file=FileName,status='old')
|
||
read(100,'(a)')cha !第一行为表头
|
||
do i=1,40000
|
||
read(100,'(a)',iostat=stat)cha
|
||
if(cha(len_trim(cha):len_trim(cha))==',') then
|
||
err = 1 !数据缺失(末行)
|
||
goto 100
|
||
end if
|
||
|
||
if(stat/=0) exit
|
||
N = N+1
|
||
if(index(cha(1:len_trim(cha)),':')>0) then
|
||
datenum = 5
|
||
else
|
||
datenum = 3
|
||
end if
|
||
|
||
if(index(cha,',,')>0.or.index(cha,'/')==0) then
|
||
err = 1 !数据缺失（首行或中间行）
|
||
goto 100
|
||
end if
|
||
|
||
do j=1,len_trim(cha)
|
||
if(index('-/:',cha(j:j))>0) cha(j:j)=' '
|
||
if(cha(j:j)==',') then
|
||
cdate = cha(1:j-1)
|
||
cnum = cha(j+1:)
|
||
exit
|
||
end if
|
||
end do
|
||
read(cdate,*)date(i,1:datenum)
|
||
read(cnum,*)num(i,:)
|
||
|
||
end do
|
||
|
||
close(100)
|
||
|
||
!当计算月份时，需要获取初始时间，存放在序列最后一行，所以此时文件数据不能超过999行
|
||
date(N+1,1) = date(1,1)
|
||
date(N+1,2:3) = 1
|
||
|
||
OutLine(:,2:M) = num(:,1:M-1)
|
||
|
||
call Date_to_num(date,N,OutLine(:,1))
|
||
|
||
100 end subroutine
|
||
|