VBSにて改行コードの検出・置換

質問

VBSに馴染みがなく何方か教えて頂ければ…

------------------------
11111AAA[0D0A]AAA[0A]
22222CCCCCC[0A]

上記データ、[0D0A]の改行コードを捜しだし、""に置換
111111AAAAAA　左記レコードの様にしたい。
--------------------------

Do Until objin.AtEndOfStream
strLine = objin.Readline
If InStr(strLine,VbCrLf) <> 0 Then
strLineA = Replace(strLine,vbCrLf,"")
objout.Write(strLineA)
Else
objout.Write(strLineA & VbLf)
End If
Loop

※InStr関数で改行コードが見つからない。
（objin.Readlineで改行まで読み込んでない）
　Replace関数のみ行うと置換されるが[0A]まで
""となってしまう。
　[0D0A]のみ検知し置換したいのですが。

何方か良い方法を知っている方、よろしく御願い致します。

回答No.3

BLUEPIXY · ベストアンサー

ReadLineは、もともと、改行までを読み込むメソッドです。
末尾の改行文字は削除されます。
そのことを頭においてプログラムするといいでしょう。

回答No.2

noname#8027

strLine=objin.Readline
strLine=strLine & chr(10) <この行を入れてみたらどうでしょう？

自信はありませんが・・・。

回答No.1

taka_tetsu

vbCrLf等の定数を自分でConstで定義してください。
もしくはChr(13)&Chr(10)のように定数を使わないか。