Fortran Coder

标题: 一个简单的问题 [打印本页]

作者: 新手上路 时间: 2014-2-21 12:36
标题: 一个简单的问题
我是新手想请教一个简单的问题，以下是一个 1.txt(共6行内容）：

我想做的是找到文中的opq替换为ooo，其余都不变，保存成一个新的文件2.txt。
就是要这个样子

请高手给我完整代码，我自己尝试很多次都失败了，所以看看你们怎么编写的，我学习一下。

作者: 楚香饭 时间: 2014-2-21 13:07
本帖最后由 chuxf 于 2014-2-21 13:21 编辑

这个问题可以很复杂，也可以很简单。

主要受影响的因素是：
1.假如存在其他的 opq 是否需要替换？比如 abcopqdef 连在一起。
2.同一行内是否有可能存在多个 opq ？如果存在，是只替换第一个，还是全部替换？
3.opq 替换为 ooo，长度恰好一样，是否将来可能会替换成长度不一样的？比如 opq 替换为 fcode ？

以下代码按照最简单的书写。
我假定：
1.如存在其他 opq 与其他字符连在一起，也一样替换。
2.同一行只替换第一个 opq
3.opq 替换为 ooo 是长度相同的。

[Fortran] 纯文本查看 复制代码

Program www_fcode_cn

  Implicit None

  Character( Len = 512 ) :: c

  integer :: i

  Open( 12 , File = "1.txt" )

  Open( 13 , File = "2.txt" )

  Do

    Read( 12 , '(a512)' , ioStat = i ) c

    if ( i /= 0 ) Exit

    i = index( c , "opq" )

    if ( i > 0 ) then

      c(i:i+len_trim("opq")-1) = "ooo"

    end if

    Write( 13 , '(a)' ) Trim(c)

  End Do

  Close( 12 )

  Close( 13 )

End Program www_fcode_cn

作者: 珊瑚虫 时间: 2014-2-21 21:40
本帖最后由珊瑚虫于 2014-2-21 21:45 编辑

在chuxf的基础上稍作修改，即可实现所有的opq全部修改为ooo :lol
在程序中加了"goto 10"

[Fortran] 纯文本查看 复制代码

Program www_fcode_cn

  Implicit None

  Character( Len = 512 ) :: c

  integer :: i

  Open( 12 , File = "1.txt" )

  Open( 13 , File = "2.txt" )

  Do

    Read( 12 , '(a512)' , ioStat = i ) c

    if ( i /= 0 ) Exit

 10   i = index( c , "opq" )

    if ( i > 0 ) then

      c(i:i+len_trim("opq")-1) = "ooo"

         goto 10

    end if



    Write( 13 , '(a)' ) Trim(c)

  End Do

  Close( 12 )

  Close( 13 )

End Program www_fcode_cn

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)