Les posteurs les plus actifs de la semaine
Nik
 
Aymeen
 
Florent Aubry
 
FMarwen
 
clemm
 
AdrienC
 
zezima
 
NOUSRA
 
atm
 
droopy
 


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