替换字符串中的某个字符

虫儿飞

将某个字符串（InStr）中的某个字符串（OldChar），不知道出现几次，全部替换为另一个字符串（NewChar），输出另一个字符串（OutStr）。看程序的变量定义，就可以知道没有对任何字符串的长度予以规定。
已经做出初步测试，测试通过，但是没有进行极端情况的测试。
测试包括：
1、将其中一个字符全部替换为空格。
2、将其中一个字符串全部替换为*和空格。

subroutine sub_replace_character(InStr,OutStr,OldChar,NewChar)
        !!!---   InStr是从非‘空格’字符开始的，对于其余三个变量没有要求
        implicit none
        character(len=*) :: InStr,OutStr
        character(len=*) :: OldChar,NewChar
        integer*4 :: AllCount,SubCountOld,SubCountNew,Count
        integer*4 :: i

        AllCount = len(InStr)
        SubCountOld = len(OldChar)
        SubCountNew = len(NewChar)
        if(InStr(1:SubCountOld).eq.OldChar) then
            OutStr(1:SubCountNew) = NewChar
            Count = SubCountNew
            i = 1+SubCountOld
        else
            OutStr(1:1) = InStr(1:1)
            Count = 1
            i = 2
        endif
        do while(i.le.AllCount-SubCountOld+1)
            if(InStr(i:i+SubCountOld-1).eq.OldChar) then
                OutStr = OutStr(1:count)//NewChar
                Count = Count + SubCountNew
                i = i+SubCountOld
            else
                OutStr = OutStr(1:Count)//InStr(i:i)
                Count = Count + 1
                i = i+1
            endif
        enddo
        if(i.le.AllCount) OutStr = OutStr(1:Count)//InStr(i:AllCount)
    end

topmad

很实用的小代码

mofangbao

我貌似也有过类似的代码  不过不记得放哪里了 还是楼主有心  谢过啦

虫儿飞

mofangbao 发表于 2013-7-19 08:19

                               
登录/注册后可看大图

我貌似也有过类似的代码  不过不记得放哪里了 还是楼主有心  谢过啦

版主的是将一个字符串依据某个字符分段

mofangbao

虫儿飞 发表于 2013-7-19 09:59

                               
登录/注册后可看大图

版主的是将一个字符串依据某个字符分段

还是你记性好，哈哈