プロが教える店舗&オフィスのセキュリティ対策術

InStr関数で、特定の文字(例えば、;)を探して、Mid関数を使って、その文字を特定の文字(例えば、【)に置き換えることには成功しました。
しかし、「;」を「【第」に置き換えようとすると必要なデータまで消してしまいます。「【」は置き換えでよいとしても、「第」は挿入する必要があるのですが、どのようなコードを使えばいいのでしょうか?

A 回答 (1件)

『moji』という変数が『AAA;BBB』とします。


『pot』を『;』を検索した位置とします。

  Dim pot As Integer
  pot = InStr(moji, ";")
  moji = Left(moji, pot - 1) & "【第" & Right(moji, Len(moji) - pot)

これで『AAA【第BBB』になるでしょう。
Left と Right で左右に分けて、中に "【第" を入れています。
    • good
    • 0
この回答へのお礼

できました!
ありがとうございます。

お礼日時:2001/08/08 02:18

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!