Hi Katrin, du könntest nach regulären Ausdrücken suchen. Viele Grüße Benno data _null_; length TEXT TEIL1 TEIL2 $32767; /* Ad 1: Sonderzeichen */ TEXT = 'Br3ief/Post'; /* Finde regulaeren Ausdruck... Sonderzeichen */ POSITION = prxmatch ('/\W/', substr (TEXT, 2)); TEIL1 = substr (TEXT, 1, POSITION); TEIL2 = substr (TEXT, POSITION + 2); put TEXT= POSITION= TEIL1= TEIL2=; TEXT = 'ERF!RSA'; /* Finde regulaeren Ausdruck... Sonderzeichen */ POSITION = prxmatch ('/\W/', substr (TEXT, 2)); TEIL1 = substr (TEXT, 1, POSITION); TEIL2 = substr (TEXT, POSITION + 2); put TEXT= POSITION= TEIL1= TEIL2=; TEXT = 'SOMMER:WINTER'; /* Finde regulaeren Ausdruck... Sonderzeichen */ POSITION = prxmatch ('/\W/', substr (TEXT, 2)); TEIL1 = substr (TEXT, 1, POSITION); TEIL2 = substr (TEXT, POSITION + 2); put TEXT= POSITION= TEIL1= TEIL2=; TEXT = 'ERF/RSA'; /* Finde regulaeren Ausdruck... Sonderzeichen */ POSITION = prxmatch ('/\W/', substr (TEXT, 2)); TEIL1 = substr (TEXT, 1, POSITION); TEIL2 = substr (TEXT, POSITION + 1); put TEXT= POSITION= TEIL1= TEIL2=; /* Ad 2: Grossbuchstabe */ TEXT = 'PostWichtige'; /* Finde regulaeren Ausdruck... Grossbuchstabe */ POSITION = prxmatch ('/[A-Z]/', substr (TEXT, 2)); TEIL1 = substr (TEXT, 1, POSITION); TEIL2 = substr (TEXT, POSITION + 1); put TEXT= POSITION= TEIL1= TEIL2=; /* Ad 3: Zahl */ TEXT = '225,00Freitext'; /* Finde regulaeren Ausdruck... Buchstaben */ POSITION = prxmatch ('/[A-Za-z]/', substr (TEXT, 2)); TEIL1 = substr (TEXT, 1, POSITION); TEIL2 = substr (TEXT, POSITION + 1); put TEXT= POSITION= TEIL1= TEIL2=; TEXT = '2RSA'; POSITION = prxmatch ('/[A-Za-z]/', substr (TEXT, 2)); TEIL1 = substr (TEXT, 1, POSITION); TEIL2 = substr (TEXT, POSITION + 1); put TEXT= POSITION= TEIL1= TEIL2=; run;
... View more