【原创】手贱出真知--fortran不定长度文本的格式输出

topmad

             接触过的语言中，个人感觉，fortran对字符以及字符串的处理能力是比较低的了（表拍砖，其他语言还停留在hello friend的水平），不过说回来，fortran是算算术的，又不是word，但是，有些时候，又要计算东西，又要批处理啊，fortran一次解决了不就行了么，最近遇到的一个问题，搞了一段时间，才彻底弄出来，发到论坛与大家分享。

           背景情况是这样的，一个文本文件里面，保存着模型所需要的参数，一行三个，加上一个地名拼音，表示适用于该地区以及适用于该地区的三个参数，现在有100多个站，就要生成100多个模型所需的文件，以前都是用文本文档把模型文件打开，然后进去改了，但是100多个，怎么搞啊，一个个打开，更改，会死人的啊，就用fortran做吧，参数这些都是小问题，处理数字是fortran的长项啊，但是长短不一的地名拼音（木有办法，老外的模型不认识中文---改日开发一个中文模型，逼洋鬼子们学汉语，妈的，叫他们体会一下科学研究中学好外语的重要性 {:soso_e155:}{:soso_e155:}{:soso_e155:}#￥#%#￥……%&……）

           如果时间比较紧，上面的可以不看了
           下面进入正题
          举个例子吧，三个城市，北京（Beijing），上海（Shanghai），广州（Guangzhou），对应的拼音的长度分别是7,8,9，现在要得到的格式是这样的

CRPNAM='Beijing'

          CRPNAM要顶格写，后面两个''之间不允许有空格，如图
          里面的东西好说，不就是没有空格么，伟大的trim一下子就搞定了

  然后把 CRPNAM=' 与Beijing还有最右边的'组合在一起
          假设在读取文件的时候，地区名字保存在city（i）中，定义个character*100 combine用来存放字符的组合
      可以这样 ，使得combine="CRPNAM'"//TRIM(City(i))//"'"  如果后面还需要继续的话，继续用//

   这样，combine就做好了，木有空格，剩下一个小问题，就是我今天说的重点了，其实不难，就是个小技巧
  模型要求CRNAM要顶格写，否则认不出来，那么如何控制输出格式呢，city（i）的长短不一，所以导致了combine在组合后，虽然去掉了空格，但是不同的站还是会不同长度
   第一次尝试 用默认的方法  失败，
         write（i,*）combine
  得到的始终是不顶格
就像这样
       差一个空格，查了查书，知道了，默认的输出就是空一格的，木有办法 继续吧


  第二次尝试  TLm
    这个是把输出的位置提前到第m列，可是编译通过了，却无法执行（具体原因还木有搞清楚）

第三次 成功-----手贱脑残的结果

  本来想写 write（i，"(a12)"） 结果，手抖了一下，木有吧数字打进去，写成了write（i，"(a)"），然后，运行后，居然得到了我想要的东西啊，太爽了，顶格，木有空格，今天是个好日子啊，看来，输出单一类型的东东，指定一下类型就可以了


  其实，挺简单的一个东西，也算是个小技巧吧，不算难，洋洋洒洒写了这么多，也算图个乐，大家开心的就多看看，希望没有不开心的朋友

  还有啥好玩的技巧，好玩的想法，大家多多在论坛交流哦

善人/jw

读过，顶起~

mofangbao

a就是按实际长度啦，trim之后就没空格了，也不会顶格了，恭喜老五终于成功

topmad

mofangbao 发表于 2011-10-22 15:56

                               
登录/注册后可看大图

a就是按实际长度啦，trim之后就没空格了，也不会顶格了，恭喜老五终于成功

基础不够扎实啊 哎

天目神眉

清风和老五都是绝对的高手，领教了

天目神眉

清风和老五都是绝对的高手，领教了

topmad

天目神眉 发表于 2011-10-22 21:08

                               
登录/注册后可看大图

清风和老五都是绝对的高手，领教了

清风才是  偶是打酱油的

artmunich

老五这是歪打正着了么

topmad

artmunich 发表于 2011-10-22 21:46

                               
登录/注册后可看大图

老五这是歪打正着了么

算是吧，其实，百分之八十是运气，二十算是灵感吧

呵呵，还是谢谢a版提供的好思路

artmunich

topmad 发表于 2011-10-22 21:54

                               
登录/注册后可看大图

算是吧，其实，百分之八十是运气，二十算是灵感吧

呵呵，还是谢谢a版提供的好思路

呵呵，我没能帮你解决很愧疚的啦～不过给大家提供了很好的技巧哟～老五这种刻苦钻研的劲头太值得学习了