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.1 回答者： taka_tetsu 回答日時： 2004/09/28 10:20

vbCrLf等の定数を自分でConstで定義してください。

もしくはChr(13)&Chr(10)のように定数を使わないか。

No.2 回答者： noname#8027 回答日時： 2004/09/28 10:31

strLine=objin.Readline

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

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

No.3 ベストアンサー 回答者： BLUEPIXY 回答日時： 2004/09/28 16:09

ReadLineは、もともと、改行までを読み込むメソッドです。

末尾の改行文字は削除されます。
そのことを頭においてプログラムするといいでしょう。