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 Num As Long
Dim Okikae3 As String
Dim Mojiret2 As String
Dim ST As Long
Mojisu1 = Len(Okikae1)
Mojisu2 = Len(Mojiret)
Num = 0
Okikae3 = ""
ST=0
Mojiret2 = ""
For Num=1 To Mojisu2
'置換処理。
Okikae3 = Mid$(Mojiret,Num,Mojisu1)
ST = CompareString(LOCALE_USER_DEFAULT,NORM_IGNORECASE,Okikae1,-1,Okikae2,-1)
if ST=CSTR_EQUAL Then
Mojiret2 = Mojiret2 & Okikae2
else
Mojiret2 = Mojiret2 & Okikae3
end if
Next
Replace = Mojiret2
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
'関数 : 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
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