VBScriptで改行を考慮した文字の置換のサンプルコード

'【関数】文字の置換(改行を考慮)
Function CusReplace(ByVal target,ByVal mae,ByVal ato)
	'改行コード無しの置換対象の文字
	Dim targetNotCrLf : targetNotCrLf = Replace(Replace(target,vbCr,""),vbLf,"")
	'置換対象の文字に置換前の文字が存在するか？
	If Instr(targetNotCrLf,mae) <= 0 Then CusReplace = target : Exit Function Else
	'置換対象の文字を置換
	CusReplace = Replace(targetNotCrLf,mae,ato)
	
	'置換対象の文字に改行コードが何個あるか
	Dim cntCr : cntCr = UBound(Split(target, vbCr))
	Dim cntLf : cntLf = UBound(Split(target, vbLf))
	'含まれる改行コードの位置を保持する配列
	Dim objPosCrLf : Set objPosCrLf = CreateObject("System.Collections.ArrayList")
	'Crの位置を取得する処理
	If cntCr > 0 Then
		'Cr数分ループ
		Dim posCr : posCr = 0
		For i = 1 To cntCr
	        'x個目の改行コードが存在しない場合ループから抜ける
	        If InStr(posCr + 1, target, vbCr) <= 0 Then Exit For Else
	        '位置を取得
	        posCr = InStr(posCr + 1, target, vbCr)
	        '位置を保持
	        objPosCrLf.Add Right("000" & posCr, 3) & "_Cr"
	    Next
	Else
	End If
	'Lfの位置を取得する処理
	If cntLf > 0 Then
		'Lf数分ループ
		Dim posLf : posLf = 0
		For i = 1 To cntLf
	        'x個目の改行コードが存在しない場合ループから抜ける
	        If InStr(posLf + 1, target, vbLf) <= 0 Then Exit For Else
	        '位置を取得
	        posLf = InStr(posLf + 1, target, vbLf)
	        '位置を保持
	        objPosCrLf.Add Right("000" & posLf, 3) & "_Lf"
	    Next
	Else
	End If
	'改行位置のソート
	objPosCrLf.Sort
	'改行の挿入
	For Each index In objPosCrLf
		'位置と改行コードに分ける
		aryTmp = Split(index,"_")
		
		'RegExpオブジェクトを作成
		Set objReg = New RegExp
		'パターンの設定
		objReg.Pattern = "([0]*(?=[1-9]))(\d+)"
		'頭0を削除した位置のパターンを取得
		Dim posNum : posNum = objReg.Replace(aryTmp(0),"$2")
		
		'StringBuilderオブジェクト作成
		Dim sb : Set sb = CreateObject("System.Text.StringBuilder")
		'文字の追加
		sb.Append_3 CusReplace
		'改行コードの挿入
		Select Case aryTmp(1)  
		    Case "Cr"
		    	sb.Insert_2 posNum - 1,vbCr
			Case "Lf"
				sb.Insert_2 posNum - 1,vbLf
		    Case Else
		End Select
		'更新
		CusReplace = sb.ToString()
		'後始末
		Set sb = Nothing
	Next
	
	'後始末
	Set objPosCrLf = Nothing
End Function

'【結果】→ "置" & vbLf & "換" & vbCrLf & "後"
Msgbox CusReplace("置" & vbLf & "換" & vbCrLf & "前","置換前","置換後")