アクセス２０００で文字列に文字を挿入する方法。

質問

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

回答No.1

nishi6 · ベストアンサー

『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 で左右に分けて、中に　"【第"　を入れています。

お礼

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