Need help in parsing this string

zohaibu95@hotmail.com · 2017-05-01

Hi guys,
I need help in parsing the below mentioned string.

RP50001,201232,London;RP50002,201392,USA

etc

What i want is, i first want to split it on the basis of ';' and after getting individual token i want to split it on the basis of ',' . There can be more in the string separate by ';' .

Any one recommend how can i do this? There is no SPLIT function as in c#.

Plzz help. Thanks

ftornero · 2017-05-01

In C/AL you can use something like this:

OnRun()
SemiColon := ';';
Comma := ',';

String := 'RP50001,201232,London;RP50002,201392,USA';

String2 := Split(String, SemiColon, Pos);
WHILE Pos > 0 DO BEGIN
  MESSAGE(String2);
  String := COPYSTR(String, Pos+1);
  String3 := Split(String2, Comma, Pos);
  WHILE Pos > 0 DO BEGIN
    MESSAGE(String3);
    String2 := COPYSTR(String2, Pos+1);
    String3 := Split(String2, Comma, Pos);
  END;
  IF String3 <> '' THEN
    MESSAGE(String3);
  String2 := Split(COPYSTR(String, Pos+1), SemiColon, Pos);
END;

IF String2 <> '' THEN BEGIN
  String3 := Split(String2, Comma, Pos);
  WHILE Pos > 0 DO BEGIN
    MESSAGE(String3);
    String2 := COPYSTR(String2, Pos+1);
    String3 := Split(String2, Comma, Pos);
  END;
  IF String3 <> '' THEN
    MESSAGE(String3); 
END;

LOCAL Split(String : Text;Sep : Text[1];VAR Pos : Integer) : Text
Pos := STRPOS(String, Sep);
IF Pos > 0 THEN
  EXIT(COPYSTR(String, 1, Pos-1))
ELSE
  EXIT(String);

Every variable is Text except Pos that is Integer.

Regards.

ftornero · 2017-05-02

In this case maybe you didn't check the option Var in the Pos parameter inside the Split function.

Juhl · 2017-05-01

You can use .NET

Take a look at this, i havent added a example for split, but if you know C#, then you should feel right at home.
https://juhl.blog/2017/04/24/text-manipulation-using-net/

zohaibu95@hotmail.com · 2017-05-01

@Juhl , Thanks for the quick reply juhl. Actually i want to do it without DotNet variable so i am looking out for the ways through which we can parse this string (by looping and conditions).

Looking forward.

NavNab · 2017-05-01

Hi,

As suggested, .NET is your friend. Here is an example:

SemiColon := ';';
Comma := ',';

String := 'RP50001,201232,London;RP50002,201392,USA';

FOREACH SemiColonStrings IN String.Split(SemiColon.ToCharArray) DO BEGIN
MESSAGE('%1', SemiColonStrings);
FOREACH CommaStrings IN SemiColonStrings.Split(Comma.ToCharArray) DO BEGIN
MESSAGE('%1', CommaStrings);
END;
END;

where variables are:

Juhl · 2017-05-01

Why not use the power of .NET ???

It's translated into C# anyway
https://juhl.blog/2017/04/24/cal-vs-c-i-dynamics-nav/

ftornero · 2017-05-01

In C/AL you can use something like this:

OnRun()
SemiColon := ';';
Comma := ',';

String := 'RP50001,201232,London;RP50002,201392,USA';

String2 := Split(String, SemiColon, Pos);
WHILE Pos > 0 DO BEGIN
  MESSAGE(String2);
  String := COPYSTR(String, Pos+1);
  String3 := Split(String2, Comma, Pos);
  WHILE Pos > 0 DO BEGIN
    MESSAGE(String3);
    String2 := COPYSTR(String2, Pos+1);
    String3 := Split(String2, Comma, Pos);
  END;
  IF String3 <> '' THEN
    MESSAGE(String3);
  String2 := Split(COPYSTR(String, Pos+1), SemiColon, Pos);
END;

IF String2 <> '' THEN BEGIN
  String3 := Split(String2, Comma, Pos);
  WHILE Pos > 0 DO BEGIN
    MESSAGE(String3);
    String2 := COPYSTR(String2, Pos+1);
    String3 := Split(String2, Comma, Pos);
  END;
  IF String3 <> '' THEN
    MESSAGE(String3); 
END;

LOCAL Split(String : Text;Sep : Text[1];VAR Pos : Integer) : Text
Pos := STRPOS(String, Sep);
IF Pos > 0 THEN
  EXIT(COPYSTR(String, 1, Pos-1))
ELSE
  EXIT(String);

Every variable is Text except Pos that is Integer.

Regards.

lubost · 2017-05-02

You can change semicolon to comma (if possible) and then split comma delimited string - for example by using SELECTSTR function.

zohaibu95@hotmail.com · 2017-05-02

Thanks @ftornero . But there is issue in your code the pos is always remains 0 as a result it is causing issue.and only display RP50001 nothing else

ftornero · 2017-05-02

In this case maybe you didn't check the option Var in the Pos parameter inside the Split function.

zohaibu95@hotmail.com · 2017-05-02

Thanks @ftornero . I already did that

ftornero · 2017-05-02

zohaibu95 wrote: »

Thanks @ftornero . I already did that

Ok, and that solved the problem or not ?

Regards

kriki · 2017-05-03

I am using this function since 2001 or so. Always served me well:

Entry(PintEntry : Integer;PtexEntries : Text[1024];PtexSeperator : Text[1]) PtexReturnValue : Text[1024]
// Entry
// gives anentry of a list base on an integer
// (like Navision SELECTSTR, but without bugs)
// PARAMETERS :
// PintEntry : which element must be returned
// IF (PintElement <= 0) OR (PintElement > NumEntries(PtexEntries,PtexSeperator))
// THEN '' is returned
// PtexEntries : list
// PtexSeperator : charakter used as seperator
// if = '' then ',' is used
// PtexReturnValue : selected element

PtexReturnValue := '';
LintLength := STRLEN(PtexEntries);

IF (LintLength = 0) OR
(PintEntry <= 0) THEN
EXIT('');

IF PtexSeperator = '' THEN
PtexSeperator := ',';

Lint := 0;
WHILE Lint < LintLength DO BEGIN
Lint := Lint + 1;
IF COPYSTR(PtexEntries,Lint,1) = PtexSeperator THEN
PintEntry := PintEntry - 1
ELSE IF PintEntry = 1 THEN
PtexReturnValue := PtexReturnValue + COPYSTR(PtexEntries,Lint,1);
END;
EXIT(PtexReturnValue);

Need help in parsing this string

Best Answers

Answers

Categories