表紙へ

5.文字列の一部を置換する

 

1.文字列中の「円」をすべて「ドル」に置換する例

Dim St1 As String

Dim St2 As String

St1 = "キュウリ 100円、ネギ 150円、あわせて 250円"

St2 = Replace(St1, "円", "ドル")

MsgBox St2

 

2.文字列中の「ジョン」をすべて削除する例

Dim St1 As String

Dim St2 As String

St1 = "ジョン王は失地王とも言われるが、その由来から見てジョン王を欠地王と呼ぶほうが正しい。"

St2 = Replace(St1, "ジョン", "")

MsgBox St2

 

3.特定の位置を指定して置き換える例

Dim St1 As String

Dim St2 As String

St1 = "晩年の源頼朝は大姫の入内問題で失敗した。"

St2 = "<--Visual Basic 中学校-->"

Mid(St1, 3, 2) = St2

MsgBox St1

 

この例では最後に「晩年Vi頼朝は大姫の入内問題で失敗した。」と表示される。