文字の置き換えについて

こんばんは。

「伊集院さんを探しています。」という文字列にある「伊集院さん」を「中さん」に置き換えようとしています。midステートメントでいろいろと試しているですが、上手くいかず悩んでいます。
どうしても「中さんさんを探しています。」となってしまうんです（苦笑）

どうかアドバイスをいただけないでしょうか。よろしくお願いします。
返信は必ずさせていただきます。

No.1 ベストアンサー 回答者： Hayashi_Trek 回答日時： 2002/07/11 22:02

VB6なら、Replace関数を使えば簡単に置換えれます。

この回答へのお礼

回答していただき、本当にありがとうございました。

環境を書き忘れていましたが、ＶＢ６でした。
今、Replace関数を試してみたところ、無事解決に至りました。

とても感謝しています。どうか、今後もよろしくお願いします。

お礼日時：2002/07/11 22:25

No.2 回答者： papayuka 回答日時： 2002/07/11 22:06

こんにちは。

VisualBasicは持ってないので、ExcelのVBAです。
Delphiで言うところのStringReplace関数のようなものがありそうですが。。

まぁ、参考程度にはなるでしょうか？

Sub Test()
Const s1 = "私は、伊集院さんを探しています。"
Const s2 = "伊集院さん"
Const s3 = "中さん"
Dim fStr As String, rStr As String
Dim stInt As Integer
　MsgBox s1
　stInt = InStr(1, s1, s2, 1)
　If stInt = 0 Then Exit Sub
　fStr = Mid(s1, 1, stInt - 1)
　rStr = Mid(s1, stInt + Len(s2), Len(s1))
　MsgBox fStr & s3 & rStr
End Sub

この回答へのお礼

回答していただき、本当にありがとうございます。
私がＶＢ６である環境を書き忘れてしまった事をお詫びします。

今回は「Replace関数」を使ってみることにしました。
仕事でＥｘｅｌも使うことがあるため、papayukaさんの回答も今後の参考になりそうです。

とても感謝しています。どうか、今後ともよろしくお願いします。

お礼日時：2002/07/11 22:29