Need help in parsing this string

zohaibu95@hotmail.com

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

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

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

Juhl

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

@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

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

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

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

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

zohaibu95@hotmail.com

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

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

zohaibu95@hotmail.com

Thanks @ftornero . I already did that

ftornero

zohaibu95 wrote: »

Thanks @ftornero . I already did that

Ok, and that solved the problem or not ?

Regards

kriki

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);