Visual Basic Tips

文字列の置換え

String型に格納されている文字列の中からある特定の文字列を検索し、指定された文字列に置換えるサンプルです。
※VB6.0はReplace関数で同じ処理が可能ですのでこのサンプルのようにわざわざ作る必要はありません。
　Mistさん情報ありがとうございました。　

サンプルを実行すると
"あいうえお@@さしすせそ@@"
という文字列の"@@"が"かきくけこ"に置換えられ
"あいうえおかきくけこさしすせそかきくけこ"
になります。

Private Sub Form_Load()
　　Dim str As String

　　str = StringWordChange("あいうえお@@さしすせそ@@", "@@", "かきくけこ")
　　Debug.Print str
End Sub

Function StringWordChange(strSearchString As String, strSearchWord, strChangeWord As String) As String
　　Dim intRet As Integer
　　Dim strString0 As String
　　Dim strString1 As String
　　Dim strString2 As String

　　strString0 = strSearchString
　　Do
　　　　intRet = InStr(strString0, strSearchWord)
　　　　If intRet = 0 Then
　　　　Else
　　　　　　strString1 = Mid(strString0, 1, intRet - 1)
　　　　　　strString2 = Mid(strString0, intRet + Len(strSearchWord), Len(strString0))
　　　　　　strString0 = strString1 & strChangeWord & strString2
　　　　End If
　　Loop Until intRet = 0
　　StringWordChange = strString0
End Function

DownLoad vbtips109.lzh 2KB (VB6.0)