[AccessD] How to Change CRCRLF to just CRLF

Hi Brad

Does this work?...

Str_A = Replace(Str_A, Chr(13) & Chr(13) & Chr(10), Chr(13) & Chr(10))

Regards
Steve

-----Original Message----- 
From: Brad Marks 
Sent: Friday, August 02, 2013 9:53 AM 
To: Access Developers discussion and problem solving 
Subject: [AccessD] How to Change CRCRLF to just CRLF 

All,

We have an Access-based system that pulls records via ODBC from a
purchased Accounting system in order to generate EDI transactions.

For over three years, everything has worked nicely.

Today, one of the generated EDI transactions failed.  In looking at the
records pulled from the Accounting system, it appears that a small
number of the records end with CRCRLF instead of just CRLF (Carriage
Return Line Feed).

I can change the CR (Hex od) to spaces with a replace command like this

Str_A = Replace(Str_A, Chr(13), " ")


However, I don't want to replace all CRs with spaces.  I only want to
replace the first CR with spaces when I find CRCRLF.

Is there a way to do this with VBA?

Thanks,
Brad

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com