[FAQ CENTER トップ]
[VBScript FAQ トップへ]

VBScript / VBA FAQ


スポンサード リンク

【質問】 文字列置換の vbscript 用関数

スポンサード リンク

【答え】
vbscriptで文字列置換を行う関数のサンプルです。

Function ReplaceSubstring(inputStr As String, fromStr As String, toStr As String) As String

Dim outputStr As String
Dim i As Integer

outputStr = inputStr
While Instr(outputStr, fromStr) > 0
i = Instr(outputStr, fromStr)
outputStr = Left$(outputStr, i - 1) & toStr & Right$(outputStr, Len(outputStr) - (i + Len(fromStr) - 1))
Wend
ReplaceSubstring = outputStr

End Function


(*)以下は呼び出し方の例です。(targetStrから改行を除去する場合)

targetStr=ReplaceSubstring (targetStr,Chr(10), "")
targetStr=ReplaceSubstring (targetStr,Chr(13), "")




スポンサード リンク

[VBScript FAQ トップへ]
[FAQ CENTER トップ]





(ご注意) 本サイト内の内容を使用して発生したいかなる時間的損害、金銭的損害あるいはいかなる損害に対して、いかなる人物も一切の責任を負いません。あくまでも個人の判断で使用してください。
本サイト内掲載されている情報は、著作権法により保護されています。いかなる場合でも権利者の許可なくコピー、配布することはできません。
このページはリンクフリーです。(このページへの直接リンクも可能です。)
雑誌等での紹介は特に連絡は不要です。
Copyright(c) tooljp.com 2007-2014