Concatenating lines with ~

General
1

Hello,

I have this in a Pushbutton MacOSX (Xojo 2014 Release 2)

Dim TheOriginalString, TheModifiedString as string
TheOriginalString = TextArea1.SelText
TheModifiedString = ReplaceAll(TheOriginalString, Chr(13), “~”)

If len(Trim(TheOriginalString)) > 0 then TextArea2.Text = TheModifiedString

I am trying to replace

12345
67890
abcde
fghij

From TextArea1 to

12345~67890~abcde~fghij

in TextArea2 but I keep getting

12345
67890
abcde
fghij

What am I doing wrong?

Thanks
Lennox

2

there you go…

http://documentation.xojo.com/index.php/ReplaceLineEndings

3

Thanks Russ, but no improvement.

Dim TheOriginalString, TheModifiedString as string
TheOriginalString = TextArea1.SelText
TheModifiedString = ReplaceAll(TheOriginalString, Chr(13), “~”)

changing Chr(13) with EndOfLine.Macintosh
… did not work

New code…

Dim TheOriginalString, TheModifiedString as string
TheOriginalString = TextArea1.SelText
TheModifiedString = ReplaceAll(TheOriginalString, EndOfLine.Macintosh, “~”)

If len(Trim(TheOriginalString)) > 0 then TextArea2.Text = TheModifiedString

… same effect

Any other suggestions?

Thanks.

Lennox

4

TheModifiedString = ReplaceAll(TheOriginalString, EndOfLine, “~”) works.
Thanks.
Lennox

5

Did you try this:

TheModifiedString = ReplaceLineEndings(TheOriginalString, "~")
6

TheModifiedString = ReplaceLineEndings(TheOriginalString, “~”) works too Paul, and is neater.
Thanks.
Lennox

7

glad you got it sorted.