text box concatenation - give every line something

[Ruegen]

Is there a method to go through a text box on a form in vba that for every line (return) it adds something to it?



I am using a textbox on a form however when using cdo and sending that to a string (which gets html wrapped around it) it won't give me separate lines and instead of seperate paragraphs I get one long string.

I'd like to be able to add & "<br>" to the end of each line so that it does so when it goes off to email.

I was thinking a loop/dowith etc to make it happen

[ItsMe]

I don't know how important it is for you but I imagine this will take quite a bit of code. I would start by determining the correct char code. Maybe Chr(10)

Maybe use the instr() function. I have some code that loops through a string for a specific character and returns the position(s) of said character. It is complex code and takes me a while to understand it every time I look at it.

[Petr Danes]

Not a bit - this is actually quite simple. Use the VBA Replace$ function. Something like (aircode)

x = Textbox.Value
x = Replace$(x, vbCr, "<br/>")

This will replace the return character with the HTML line break command. You may have to experiment a bit, depending on what gives you the line feed in your textbox. It may be return/linefeed combination, in which case use VbCrLf, or just the line feed, in which case use vbLf.

[Ruegen]

Not a bit - this is actually quite simple. Use the VBA Replace$ function. Something like (aircode)

x = Textbox.Value
x = Replace$(x, vbCr, "<br/>")

This will replace the return character with the HTML line break command. You may have to experiment a bit, depending on what gives you the line feed in your textbox. It may be return/linefeed combination, in which case use VbCrLf, or just the line feed, in which case use vbLf.

oh I will give that a go - it does pick up the vbCrLf yes?

[orange]

No. You will have to change vbCr with vbCrLf

x = Replace$(x, vbCrLf, "<br/>")

[Ruegen]

No. You will have to change vbCr with vbCrLf

x = Replace$(x, vbCrLf, "<br/>")

awesome - thanks

[Petr Danes]

Um, I don't know - I'm going by your description of what is in your textbox. If you have that character in your textbox, then yes, the Replace function will take all instances of that character (or characters - vbCrLf is two) and substitute the text <br/>. You may want to print out the actual ASCII codes in the textbox to be certain of what it contains.

[Ruegen]

Works

Thanks