Not pretty, but does the job: TJIM EXEC A1 V 255 Trunc=255 Size=20 Line=1 Col=1 Alt=0 ====>
* * * Top of File * * * /* */ /* John Hartmann 3 Aug 2009 16:45:26 */ Signal on novalue numeric digits 12 Address COMMAND 'PIPE (end \ name TJIM)', '\literal 24 6788 sda asdfasdf-rertwert-dfgff sdssd sdafsadfsd', '|literal hasnodash', '|i: if locate /-/', '|c: chop after -', '|reverse', '|not chop before blank', '|reverse', '|fi:faninany', '|join', '|i:', '|cons', '\c:', '|fi:' Exit RC * * * End of File * * * hasnodash 24 6788 sda rertwert-dfgff sdssd sdafsadfsd 2009/8/3 Hughes, Jim <[email protected]>: > I have some data where there are spaces and words and dashes in a > string. > > Example: > > > > 24 6788 sda asdfasdf-rertwert-dfgff sdssd sdafsadfsd > > > > I'd like to retain the spacing in the record yet delete the first bit of > the word containing the > > Dash so the record would look like this: > > > > 24 6788 sda rertwert-dfgff sdssd sdafsadfsd > > > > > > I am sure someone will amaze me with the simplicity of the solution I am > not seeing. > > > > Best regards, > > > > > > ____________________ > > Jim Hughes > > 603-271-5586 > > "It is fun to do the impossible." > > >
