Truncate a string

[sgarner]

I have a string that is the program number. Say O13047101. I need to get rid of the "O" in the program number. How can I do this? Truncation?

 

Right now the section of my post looks like....

 

"<",sprogno,">" e$ #MAPPS Program display

      sprogno,"(",srevision,sissue,")", e$

      "(Part and Rev Number: ", srevision, ")", e$

      "(OP Number: ", sissue, ")", e$

      "(Programmer: ", sname, "DATE", 58, month$, "-", day$, "-", year$, sspace, ")", e$

      "(POST - Protomet Mori Seiki NH5000 Rev.A)", e$

      " ", e$

 

Which posts

 

%

< O13047101 > I Need <13047101>

O13047101 ( Part and Rev Number OPPERATION Number:  )

(Part and Rev Number:  Part and Rev Number )

(OP Number:  OPPERATION Number:  )

(Programmer:  YOUR NAME DATE : 08 - 18 - 15   )

(POST - Protomet Mori Seiki NH5000 Rev.A)

 

( T2 - IEM-C-AL 2.000X90XR.031X.492X4.00X5 ICR-T490 FLN D2.00-5-.75-R-13 )

N10 G00 G91 G28 Z0.

N11 G20

N12 G0 G17 G40 G49 G80 G90

( FACE OFF TOP OP10 )

N13 T2

N14 M6 ( IEM-C-AL 2.000X90XR.031X.492X4.00X5 ICR-T490 FLN D2.00-5-.75-R-13 )

N15 M11

N16 M8

N17 M88

N18 G0 G90 X-13.1863 Y25.4555 B0. S10000 M1003

N19 M10

N20 G5.1 Q1

N21 G43 H1 Z16.

N22 M3

 

[crazy^millman]

Look at the fmt statement for the sprogno and you will see it has a O in it. Remove the O and leave it blank and the O will go away from your line.

 

HTH

[sgarner]

I am actually needing the "O" to be in there for the program # but not for the line above it.

 

%

< O13047101 > I Need <13047101>

O13047101 ( Part and Rev Number OPPERATION Number:  )

[sgarner]

I am thinking

 

sprognoo = brksps(1, sprogno) If this is the correct way to use brksps?

 

And using this new string. My next question is, (if this will work) where can I put this? Just above where I am going to use it? Do I have to declare this variable somewhere else? Or can it just be…

 

 

sprognoo = brksps(1, sprogno) # Break string

"<",sprognoo,">" e$ #MAPPS Program display

      sprogno,"(",srevision,sissue,")", e$

      "(Part and Rev Number: ", srevision, ")", e$

      "(OP Number: ", sissue, ")", e$

      "(Programmer: ", sname, "DATE", 58, month$, "-", day$, "-", year$, sspace, ")", e$

      "(POST - Protomet Mori Seiki NH5000 Rev.A)", e$

      " ", e$

[djstedman]

Step one.. post on the forum in a color that doesn't make my eyes bleed from looking at it..

 

Not sure I would have the time or be able to help or not but I am sure I wont be trying to read anything in that bright blue mess that's posted..

[crazy^millman]

I am thinking

 

sprognoo = brksps(1, sprogno) If this is the correct way to use brksps?

 

And using this new string. My next question is, (if this will work) where can I put this? Just above where I am going to use it? Do I have to declare this variable somewhere else? Or can it just be…

 

 

sprognoo = brksps(1, sprogno) # Break string

"<",sprognoo,">" e$ #MAPPS Program display

      sprogno,"(",srevision,sissue,")", e$

      "(Part and Rev Number: ", srevision, ")", e$

      "(OP Number: ", sissue, ")", e$

      "(Programmer: ", sname, "DATE", 58, month$, "-", day$, "-", year$, sspace, ")", e$

      "(POST - Protomet Mori Seiki NH5000 Rev.A)", e$

      " ", e$

 

Removed the color to help others. If what you put here worked then job done. If not then you would need to make the sgprono = new variable. Define the new variable what every you want and then call in place of the sgprono and it will also work. Yes just like sprogno is defined with a fmt statement your new variable will need the same fmt statement to define it.

 

HTH(Hope that Helps)

[sgarner]

Sorry for the colored text. Got it to work.

 

sprognotmp = sprogno

      sprognoo = brksps(2, sprognotmp) # Break string

      60,sprognoo,62,e$ #MAPPS Program display

      sprogno,"(",srevision,sissue,")", e$

      "(Part and Rev Number: ", srevision, ")", e$

      "(OP Number: ", sissue, ")", e$

      "(Programmer: ", sname, "DATE", 58, month$, "-", day$, "-", year$, sspace, ")", e$

      "(POST - Protomet Mori Seiki NH5000 Rev.A)", e$

      " ", e$

 

gets me

 

%

< 13047101 >

O13047101 ( Part and Rev Number OPPERATION Number:  )

(Part and Rev Number:  Part and Rev Number )

(OP Number:  OPPERATION Number:  )

(Programmer:  YOUR NAME DATE : 08 - 19 - 15   )

(POST -  Mori Seiki NH5000 Rev.A)

 

Thanks for your help