スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

文字の置換Function

s : 大本の本文
org : 置換される文字
rep : 置換する文字

Public Function RepStr(ByVal s As String, ByVal org As String, ByVal rep As String) As String
Dim a As String
Dim j, i, k As Integer

a = s
k = Len(org) - 1
j = Len(rep)
i = 1 - j
Do
i = InStr(i + j, a, org)
If i > 0 Then a = Left(a, i - 1) & rep & Right(a, Len(a) - i - k)
Loop Until i = 0

RepStr = a

End Function
スポンサーサイト

トラックバック

コメント

コメントを残す

Secret



上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。