Les posteurs les plus actifs de la semaine
zezima
 
poetschevleesch
 
c@ssoulet
 


Loop, vector, découper des phrases

Aller en bas

Loop, vector, découper des phrases

Message par tcherdakoffaurore le Lun 21 Déc 2015 - 10:18

Bonjour
J'aimerais découper une phrase en utilisant LOOP et VECTOR,...afin de ne pas me soucier du nombre de mots à découper.
J'ai essayé différentes syntax sans aboutir au résultat souhaité.

Voici un exemple

RO =
"pantalon femme taille 42"
" Veste homme hiver"
"....."

STRING Mot1 Mot2 A(24) R1 R2 (A100).
COMPUTE #P1 =CHAR.INDEX (RO," ").
IF (#P1>0) Mot1=CHAR.SUBTSR (R0, 1, #P1-1).
IF (#P1>0) R1=CHAR.SUBTSR (R0, #P1+1).
IF (#P1>0) R1=LTRIM(RTRIM(R1)).
IF (#P1=0) Mot1=LTRIM(RTRIM(R0)).
COMPUTE #P2 =CHAR.INDEX (R1," ").
IF (#P2>0) Mot2=CHAR.SUBTSR (R1, 1, #P2-1).
IF (#P2>0) R2=CHAR.SUBTSR (R1, #P2+1).
IF (#P2>0) R2=LTRIM(RTRIM(R2)).
IF (#P2=0) Mot2=LTRIM(RTRIM(R1)).
EXECUTE.

Ne pourrait on pas faire autrement....comme par exemple

VECTOR Mot(2, A24).
VECTOR R(2,A100).
LOOP xi=1 to 2.
COMPUTE #P(xi) =CHAR.INDEX (R(xi-1)," ").
IF (#P(xi)>0) Mot(xi)=CHAR.SUBTSR (R(xi-1), 1, #P(xi)-1).
IF (#P(xi)>0) R(xi)=CHAR.SUBTSR (R(xi-1), #P(xi)+1).
IF (#P(xi)>0) R(xi)=LTRIM(RTRIM(R(xi))).
IF (#P(xi)=0) Mot(xi)=LTRIM(RTRIM(R(xi-1))).
EXECUTE.

Mais cela ne marche pas....quelqu'un peut-il m'orienter.
Merci d'avance.







tcherdakoffaurore

Nombre de messages : 2
Date d'inscription : 18/12/2015

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Loop, vector, découper des phrases

Message par tcherdakoffaurore le Lun 21 Déc 2015 - 11:19

OUPS
C'était END LOOP à la place d'EXECUTE


tcherdakoffaurore

Nombre de messages : 2
Date d'inscription : 18/12/2015

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum