ab.com コミュニティ

コード: 全て選択

Function Replace(Mojiret As String,Okikae1 As String,Okikae2 As String,OMOJI As Byte) As String
    Dim Mojisu1 As Long
    Dim Mojisu2 As Long
    Dim StartPos As Long
    Mojisu1=Len(Okikae1)
    Mojisu2=Len(Okikae2)
    StartPos=InStr(1,Mojiret,Okikae1)
    '置換処理。
    While StartPos>0 And Mojisu1>0
          Mojiret=Left$(Mojiret,StartPos-1)+Okikae2+Mid$(Mojiret,StartPos+Mojisu1)
          StartPos=InStr(StartPos+Mojisu2,Mojiret,Okikae1)
    Wend
    Replace = Mojiret
End Function

コード: 全て選択

'関数 : Replace$
'		指定した文字列中の指定した文字列を別の文字列に置換した文字列を返します。
'引数 :
'		strExpression		検索する文字列を含む文字列
'		strFind				検索する文字列
'		strReplace			置換する文字列
Function Replace$( ByVal strExpression As String , ByVal strFind As String , ByVal strReplace As String ) As String
	Dim i As Long
	Dim lngReplaceStrLength As Long
	Dim lngFindStrLength As Long

	Replace$ = strExpression

	lngFindStrLength= Len( strFind )
	lngReplaceStrLength = Len( strReplace )
	i = 1

	Do
		i = InStr( i , Replace$ , strFind )
		If i > 0 Then
			'直前までと直後からを抜き出して結合
			Replace$ = Left$( Replace$ , i - 1 ) + strReplace + Mid$( Replace$ , i + lngFindStrLength )
			'検索開始位置を変更(無限ループに陥らないため)
			i = i + lngReplaceStrLength
		Else
			Exit Do
		End If
	Loop
End Function

コード: 全て選択

Function Replace(Mojiret As String,Okikae1 As String,Okikae2 As String,OMOJI As Byte) As String
    Dim Mojisu1 As Long
    Dim Mojisu2 As Long
    Mojisu1 = Len(Okikae1)
    Mojisu2 = Len(Mojiret)
    '置換処理。
    While InStr(1,Mojiret,Okikae1)>0
          Mojiret=Left$(Mojiret,InStr(1,Mojiret,Okikae1)-1)+Okikae2+Mid$(Mojiret,InStr(1,Mojiret,Okikae1)+Mojisu1,Mojisu2)
    Wend
    Replace = Mojiret
End Function