Small and medium business | Business Central, N...

find a new line in a string

(0) Share

Report

Posted on by Neil Phelan

161

As i am new to BC programming I am unsure of the correct syntax to find a new line in Text string. Can anyone advise?

As a test i am using the code to find the first '.' (this works perfect!)

textstring := 'This is line1. this is line 2. this is line 3';

crpos := strpos(longtextleftover, '.');

but i want to change this to a new line.

textstring := 'This is line1

this is line 2

this is line 3';

crpos := strpos(longtextleftover, ???????? );

Any idea's appreciated. If it's a simple answer I apoloogise for my lack of knowledge in advance.

Thanks Neil.

Categories:

Dynamics 365 Business Central

All responses (4)

Answers (0)

Suggested answer

Neil Phelan 161 on at

Like (2)

Report

RE: find a new line in a string

Thanks all for the help.

I solved it using the following in the end...

var

typehelp: Codeunit "Type Helper";

crlf: Text[2];

begin

crlf := typehelp.CRLFSeparator();

textstring := 'This is line1

this is line 2

this is line 3';

//find the first line break

crpos := strpos(longtextleftover, crlf[2] );

end
Suggested answer

Inge M. Bruvik 993 Super User 2024 Season 1 on at

Like (0)

Report

RE: find a new line in a string

If it is in a string you import or get from another system you can also use the CHAR datatype to search for the value 10 or 13 that is the char values for linefeed and carriage return.
Suggested answer

YUN ZHU 75,848 Super User 2024 Season 2 on at

Like (0)

Report

RE: find a new line in a string

Hi, Lars' answer is very good, he splits the line based on the content of textstring.

But I would like to add some basic information

when you want to change a line in the text, just use '\'.

For example:

So use '\' will find a new line.

A simple example:

Hope this will help.

Thanks.

ZHU
Lars Lohndorf-Larsen on at

Like (0)

Report

RE: find a new line in a string

Hello,

You got 2 out of 3 commands that you need :-), just add COPYSTR([String],[Position],[Length]);. Something like this:

begin

textstring := 'This is line1. this is line 2. this is line 3';

LinePos := StrPos(TextString, '.');

line1 := CopyStr(TextString, 1, LinePos);

TextString := CopyStr(TextString, LinePos + 1);

LinePos := StrPos(TextString, '.');

line2 := CopyStr(TextString, 1, LinePos);

TextString := CopyStr(TextString, LinePos + 1);

line3 := TextString;

Message(Line1 + '\' + Line2 + '\' + Line3);

end;

var

TextString, Line1, Line2, Line3 : Text;

LinePos: Integer;

Note, I have not tested this, and likely I got a position wrong a few places, so it likely needs to be adjusted. Add more MESSAGE to see how the string develops.

Once that works, of course then the next challenge would be to do this as a function, something like this:

WHILE STRPOS(TextString,'.') <> 0 DO

TextString := MyFunction(TextString);

hth