龙行天下 发表于 2017-3-27 13:33 这个代码的意义在于对于一些常用程序的数据处理 如果是大规模数据,还利用这个程序,说明一开始的原始程序就是比较糟糕的 |
龙行天下 发表于 2017-3-27 13:33 Excel specifications and limits - Excel https://support.office.com/en-us ... e-8e27-269d656771c3 即使xlsx格式规范,单个worksheet的列数不能超过16384,单列宽带不超过255个字符 从这角度分析,继续强调“本站的代码受到限制”是不是杞人忧天呢? |
我觉得一行要是超过1000个字符了,就该考虑用其他数据结构来存储了(比如二进制) |
请教一下,对于行数判断非常容易,而对于列数而言,都存在这么个问题,就是:http://fcode.cn/code_gen-34-1.html,有一个常数,就是512,作为字符串长度,而上面的代码也是有一个1000作为可能最大列数。。 这样写法,都会让代码受到限制,并不通用。 |
[Fortran] 纯文本查看 复制代码 Program main Integer,parameter :: length=1000 Character(LEN=length) A,B,Filename Integer(kind=4)::Column, Row, K,L Column=0;Row=0;K=0;L=1;filename="test.txt" Open (55,file=Filename) Read(55,'(A)') A Do I=1, length If(A(I:I)==','.or.A(I:I)==' ') then If(I-1>=L) Column=Column+1 L=I+1 End if End do CLOSE(55) Open (55,file=Filename) Do Read(55,*,iostat=k) B If( k /= 0 ) Exit Row = Row + 1 End Do Close(55) Write(*,"(A5,I6,5X,A7,I2)") "Row=",Row,"Column=",Column End |
fcode 发表于 2017-1-17 16:52 谢谢 看到了 |
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-12-23 11:08