Find multiple strings with a string

dabba23 · 2007-02-14

Hey there

I am unsure how to write a piece code that take out multiple strings within a string.

My string can look as this:

#1234,#4567,#3456-ABJ,#9000,#9876-MEE
or
#1234,#4567,#3456-ABJ,#9876-MEE,#9000
or
#1234,#4567,#3456-ABJ,#9000

I want to take out those where there is a DASH:
#3456-ABJ and #9876-MEE

Can anyone help me

Thanks
Ann

Waldo · 2007-02-14

I think you'll have to use a combination of "SELECTSTR" (Use this function to retrieve a substring from a comma-separated string) and "STRPOS" (Use this function to search for a substring inside a string).

C/SIDE help can tell you more about these statements.

You can put the SELECTSTR into an iteration by counting the comma's. You can do that by using statements like:
strCommas := DELCHR(String,"=",DELCHR(String,'=',','));
intNumberOfCommas := STRLEN(strCommas );

I hope this is useful for you.

Marije_Brummel · 2007-02-14

You might also want to consider temporary tables.

First you populate the temp table with all values and then filter on '-'

David_Cox · 2007-02-14

This is an untested sample, you may have to adjust it.

OldStr := '#1234,#4567,#3456-ABJ,#9000,#9876-MEE';

//CommaSep and Hyphon are Integers
REPEAT
    // Find The Comma
    CommaSep := STRPOS(OldStr,',');
    IF CommaSep <> 0 Then Begin
        // Find the Hyphon
        Hyphon := STRPOS(COPYSTR(OldStr,'-',1,commaSep));
        // Add Good Value add to the String
        IF Hyphon = 0 THEN
            NewStr := NewStr +  CopyStr(OldStr,1,CommaSep+1);
        //Trim Old string 
        OldStr := CopyStr(OldStr,CommaSep+1);
   End;   
UNTIL CommaSep = 0;

// Deal with the Last String
 Hyphon := STRPOS(COPYSTR(OldStr,'-'));
 // Add Good Value add to the String
 IF Hyphon = 0 THEN
     NewStr := NewStr +  OldStr;
Message('%1',NewStr);

dabba23 · 2007-02-15

Hey everyone,

Thanks for the help. I managed to sort it out with your help:)

Ann

Howdy, Stranger!

Quick Links

Categories

Find multiple strings with a string

Comments