＜ソース＞
ec "■改行コードの変換１" Dim strData
strData = "-------------------"
strData = strData & vbcrlf
strData = strData & "-------------------"
ec "実行前のデータ"
ec strData
ec "実行後のデータ"
ec replace(strData,Vbcrlf,"")
ec "■改行コードの変換２"
strData = "-------------------"
strData = strData & chr(10) & chr(13)
strData = strData & "-------------------"
ec "実行前のデータ"
ec strData
ec "実行後のデータ"
ec replace(strData,chr(10)&chr(13),"")
Sub ec(strmsg)
Wscript.Echo "[" & Date & " " & time & "]" & strmsg
End Sub
＜実行結果＞
'[2009/03/14 15:57:06]■改行コードの変換１
'[2009/03/14 15:57:06]実行前のデータ
'[2009/03/14 15:57:06]-------------------
-------------------
'[2009/03/14 15:57:06]実行後のデータ
'[2009/03/14 15:57:06]--------------------------------------
'[2009/03/14 15:57:06]■改行コードの変換２
'[2009/03/14 15:57:06]実行前のデータ
'[2009/03/14 15:57:06]-------------------
-------------------
'[2009/03/14 15:57:06]実行後のデータ
'[2009/03/14 15:57:06]--------------------------------------
