OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

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

  • 暇なときにでも
  • 質問No.115483
  • 閲覧数101
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 24% (21/85)

InStr関数で、特定の文字(例えば、;)を探して、Mid関数を使って、その文字を特定の文字(例えば、【)に置き換えることには成功しました。
しかし、「;」を「【第」に置き換えようとすると必要なデータまで消してしまいます。「【」は置き換えでよいとしても、「第」は挿入する必要があるのですが、どのようなコードを使えばいいのでしょうか?
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル13

ベストアンサー率 68% (791/1163)

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

お礼率 24% (21/85)

できました!
ありがとうございます。
投稿日時 - 2001-08-08 02:18:38
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ