|
[Fortran] 纯文本查看 复制代码 03 | character ( len = 80 ) :: name |
12 | character ( len = 20 ) :: filename = "text.txt" |
13 | integer , parameter :: fileid = 20 |
16 | character ( len = 10 ) :: title |
18 | logical , external :: GetNextPlayer |
22 | inquire ( file = filename , exist = alive ) |
24 | write ( * , * ) trim ( filename ) , " doesn;t exist." |
28 | open ( unit = fileid , file = filename ) |
30 | if ( GetNextPlayer ( fileid , p % name ) ) then |
32 | read ( fileid , "(A4,1X,F)" , iostat = error ) title , tempnum |
53 | if ( p % score > 20.0 ) then |
54 | write ( * , "('姓名:'A8/,'身高:'F5.1,' 体重:'F5.1,' 得分:'F4.1)" ) p |
63 | logical function GetNextPlayer ( fileid , name ) |
65 | integer , intent ( in ) :: fileid |
66 | character ( len = * ) , intent ( out ) :: name |
67 | character ( len = 80 ) title |
71 | read ( fileid , "(A80)" , iostat = error ) title |
74 | GetNextPlayer = .false. |
78 | if ( title ( 1 : 4 ) == "姓名" ) then |
80 | GetNextPlayer = .true. |
显示报错,下面这句代码有啥问题
read(fileid, "(A4,1X,F)",iostat=error) title,tempnum
D:\fortran project\test\main.f90|32|Error: Nonnegative width required in format string |
|
|