How to strip out carriage returns from a text file

[jewilson2]

I have a process written in access that imports a text file, runs a make table query against the imported table (to do some reformatting, record selection, etc) then exports the made table to a fixed length text file. This works like a champ, and I will automate it with a VB module. The problem is, it exports the file with a carriage return line feed after every record (as expected). Is there a way to either export the file without CRLF or open the exported file and strip the CRLF out then write to another text file?

Thanks,
JW

 

[vbajock]

You do realize that if it doesn't contain these characters your data is going to be one humongous string in your file, don't you?

 

[jewilson2]

Yes.

The program that then needs to read this file wants it sequential...no CRLF.

thanks

 

[jewilson2]

Ok, I'm much closer.

The following code successfully strips out all CrLf from the end of each record but leaves one at the end of the file which still blows up the program reading this file. Is there a way to strip the CrLf from each record AND from the EOF?

Open "\\lfh_homer\department\check_data\ap\checkrecout.txt" For Input As #1

filen = LOF(1)
InputData = Input(filen, #1)
rstring2 = Replace(InputData, vbCrLf, "&quot
Close #1 'Close File.
Set fs = CreateObject("Scripting.FileSystemObject&quot
fs.CreateTextFile ("\\lfh_homer\department\check_data\ap\CB185-TAPE&quot
Set f = fs.GetFile("\\lfh_homer\department\check_data\ap\CB185-TAPE&quot
Set ts = f.OpenAsTextStream(2, -2)
ts.WriteLine (rstring2)
ts.Close

 

[oharab]

instead of
ts.WriteLine (rstring2)
try
ts.Write (rstring2)


Will write the data without putting a line feed in.

hth

Ben


----------------------------------------------
Ben O'Hara

http://www.RobotParade.co.uk

"Where are all the stupid people from...
...And how'd they get so dumb?"

NoFX-The Decline
----------------------------------------------

 

[jewilson2]

Sweet...thanks.

That worked like a champ.