> Has anyone cunstructed a function to remove multiple carriage returns
> and replace it with a single return?
[quoted text clipped - 6 lines]
> Thanks.
> lq
If you don't need anything elegant or efficient :-):
Do While InStr(mytext, Chr(13) & Chr(10) & Chr(13) & Chr(10)) > 0
mytext = YourFunction(mytext)
Loop
Post back if you need something better.
James A. Fortune
Trevor Best - 12 Feb 2005 11:12 GMT
>>Has anyone cunstructed a function to remove multiple carriage returns
>>and replace it with a single return?
[quoted text clipped - 16 lines]
>
> James A. Fortune
A little simpler would be:
Do While Instr(1,mytext,vbCrLf & vbCrLf)
mytext=Replace(mytext,vbCrLf & vbCrLf, vbCrLf)
Loop

Signature
This sig left intentionally blank