一个简单的问题

新手上路 · 发表于 2014-2-21 12:36:21

我是新手想请教一个简单的问题，以下是一个 1.txt(共6行内容）：

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

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

楚香饭 · 发表于 2014-2-21 13:07:43

本帖最后由 chuxf 于 2014-2-21 13:21 编辑

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

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

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

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

01Program www_fcode_cn
02  Implicit None
03  Character( Len = 512 ) :: c
04  integer :: i
05  Open( 12 , File = "1.txt" )
06  Open( 13 , File = "2.txt" )
07  Do
08    Read( 12 , '(a512)' , ioStat = i ) c
09    if ( i /= 0 ) Exit
10    i = index( c , "opq" )
11    if ( i > 0 ) then
12      c(i:i+len_trim("opq")-1) = "ooo"
13    end if
14    Write( 13 , '(a)' ) Trim(c)
15  End Do
16  Close( 12 )
17  Close( 13 )
18End Program www_fcode_cn

珊瑚虫 · 发表于 2014-2-21 21:40:32

本帖最后由珊瑚虫于 2014-2-21 21:45 编辑

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

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

01Program www_fcode_cn
02  Implicit None
03  Character( Len = 512 ) :: c
04  integer :: i
05  Open( 12 , File = "1.txt" )
06  Open( 13 , File = "2.txt" )
07  Do
08    Read( 12 , '(a512)' , ioStat = i ) c
09    if ( i /= 0 ) Exit
10 10   i = index( c , "opq" )
11    if ( i > 0 ) then
12      c(i:i+len_trim("opq")-1) = "ooo"
13         goto 10
14    end if
15 
16    Write( 13 , '(a)' ) Trim(c)
17  End Do
18  Close( 12 )
19  Close( 13 )
20End Program www_fcode_cn

[输入输出] 一个简单的问题

新人勋章

爱心勋章

水王勋章

元老勋章

热心勋章

管理勋章