Replace function adding in unwanted carriage return

[timmygrover]

So I'm using the replace function to automatically format html,



here's my code

Replace([thethingthati'mreplacing], Chr(13), "</dd>" & Chr(13) & Chr(9) & Chr(9) & "<dd>")

It works like a charm except that for some reason the Replace function throws in a carriage return at the end of each replace. The code still works fine with the return, but my formatting OCD is kicking in and I MUST solve this or die trying.

Does anyone know how to negate the return? Tried adding in a chr code for DEL, but that didn't work.

Thanks in advance for any help!

[orange]

Here's the syntax
http://www.techonthenet.com/access/f...ng/replace.php

What do you have and what is the result of the Replace?

[help_me_with_access]

timmy, give me a sample input you got and a sample output you want.

[timmygrover]

I want to put in:

thing one
thing two
thing three

and get out

<dd>thing one</dd>
<dd>thing two</dd>
<dd>thing three</dd>

Instead, I get this:

<dd>
Thing One</dd>
<dd>
Thing Two</dd>
<dd>
Thing Three</dd>

The replace function is adding in a carriage return after the end of the function. I've tried adding in a del character to see if that works, and I've tried a nested statement where it first does the replacement I outlined above and then replaces the return with a null string, but neither of those things have worked.

[help_me_with_access]

what's the source of the input? a file? you, manually typing in text? a table?

it's very possible that you're running into an issue with visual basic here is known by some, not by others. bottom line, try everything you can to get out sample returns.

here are some things to try, and knowledge if you don't already have it:

IN VB6/VBA:

chr(9) = TAB
chr(13) = carriage return
chr(10) = line feed

so what you're now telling vb is to replace CR's with your preferred string. but what is your target is not a CR? 1st, try replacing it with chr(10).

in vb6/vba, all of these different programming statements mean almost the same thing, and should, if MS had any brains at all, be rolled into one statement.

chr(9)
vbTab (enum val in vb6)
chr(13)
vbCr (enum val in vb6)
chr(10)
vbLf (enum val in vb6)
vbCrLf (enum val in vb6)

try an "all-possibilities" approach using that information and see if things don't just work out great for ya. I hope it does! also keep in mind that the whitespace associated with the tab ascii value is not a fit-all approach. it does not translate from program to program perfectly, as it really shouldn't anyway! (unless I've already gone out of my mind today again? )

if this stuff doesn't work, post back.

[help_me_with_access]

OH, by the way, all of that information I just gave you is not even consistent in usage between the access interface and it's visual basic IDE counterpart! so that leaves you with trial and error until you figure out what works.

sorry...

[timmygrover]

Alright, so I added chr(10) into the mix, no change. I'm still getting one line break that i didn't ask for. My goal is to take text that looks like this:

thing1
thing2
thing3

and then to take each line break and replace it with: </dd>, and then a line break, two chr(9), and a <dd>. I get everything I ask for, PLUS one extra return. Thanks for the suggestions so far, still no solution though!

[RayMilhon]

Try this

Replace([thethingthati'mreplacing], Chr(13), "</dd>" & Chr(9) & Chr(9) & "<dd>")

[RayMilhon]

Never mind misread it.

[RayMilhon]

It might help if you include a little more detail. Is this in code or a query? If in code is it a subroutine or Function what are the previous and following lines doing? What you've stated essentialy says take a carriage return and replace it with "</dd> carriage return tab tab <dd>" to give you good advice we need to understand more of the context of what you're trying to do. Otherwise it's easy to mis-read and get bad information.

[timmygrover]

I'm using the code in an unbound text field in a form. The idea is that you'll paste stuff into one field and then this text box will automatically format the text to save time.

Here is the complete string:

=IIF(IsNull([BSDD1-1]),Null,Chr(9) & Chr(9) & "<dd>" & Replace([BSDD1-1],Chr(10),"</dd>" & Chr(10) & Chr(9) & Chr(9) & "<dd>") & "</dd>" & Chr(13))