Opérations de repérage sur un SYNEDIT

Nombre de messages : 261 Date d'inscription : 30/03/2018

Bonjour,

Sur un synedit PANORAMIC, il est possible de récupérer 3 informations relatives à son contenu :

- La position du curseur
- Le nombre de caractères sélectionnés
- Le nombre total de lignes

A partir de cela, comment obtenir ces autres informations sans passer par des (longues et boulimiques) copies du texte dans des objets :

- Le numéro de la ligne courante
- Le nombre total de caractères du synedit
- La position horizontale courant (colonne) du curseur

Merci par avance pour votre aide.

En demandant à Jack !

Bon Ok je sort...

lol!

fredisland a écrit:: A partir de cela, comment obtenir ces autres informations sans passer par des (longues et boulimiques) copies du texte dans des objets

C'est à dire? Tu as un mini exemple?

Nombre de messages : 261 Date d'inscription : 30/03/2018

silverman a écrit:

fredisland a écrit:: A partir de cela, comment obtenir ces autres informations sans passer par des (longues et boulimiques) copies du texte dans des objets

C'est à dire? Tu as un mini exemple?

Passer par d'autres objets, comme le mémo, pour davantage travailler sur le texte

Ah, ok.

fredisland a écrit:: - Le numéro de la ligne courante

ça a été traité il y a moins d'une semaine Wink

fredisland a écrit:: - Le nombre total de caractères du synedit

TEXT$() / LEN() sont tes amis Very Happy

fredisland a écrit:: - La position horizontale courant (colonne) du curseur

LEFT$() / INSTR_LAST() / CARET_POSITION() vont se joindre à tes nouveaux amis Laughing

Nombre de messages : 261 Date d'inscription : 30/03/2018

silverman a écrit:

fredisland a écrit:: - Le nombre total de caractères du synedit

TEXT$() / LEN() sont tes amis Very Happy

C'est bon, cette partie là est réglée Smile

. Merci

Salut à tous !

Fredisland a écrit:: Le nombre total de lignes

Réponse : COUNT()

Non Marc pas sur un objet SYNEDIT !

Il faut d'abord passer le fichier de sauvegarde du SYNEDIT par un MEMO et après tu pourra faire COUNT(MEMO).

Hoooops ! Autant pour moi. Embarassed

Si,, Minibug, ça marche:

Code:: label nombre
synedit 1
button 2 : top 2,10 : left 2,width(1)+10 : caption 2,"Count()"
on_click 2,nombre
end

nombre:
message str$(count(1))
return

Saisis quelques lignes, puis clique le bouton...

Ah mince, j'étais sûr de moi pourtant ! Embarassed

Jack l'a t il rajouté récemment ?

Je ne sais pas... j'ai bêtement essayé...

Il faudrait que ITEM_INDEX() soit disponible pour SYNEDIT...
Laughing

Saisis quelques lignes et clique sur le bouton "Item_Index":

Code:: label nombre, test
dim s$
synedit 1
button 2 : top 2,10 : left 2,width(1)+10 : caption 2,"Count()"
  on_click 2,nombre
button 3 : top 3,40 : left 3,width(1)+10 : caption 3,"Item_Index"
  on_click 3,test

memo 99 : hide 99 : bar_both 99
end

nombre:
message str$(count(1))
return

test:
' message SELECT_READ$(1)
' message str$(caret_position(1))
s$ = text$(1)
s$ = left$(s$,caret_position(1))
clear 99
text 99,s$+" "
message str$(count(99))
return

EDIT

J'oubliais: avant de cliquer, surligne un peu de texte...

, je me rappelle maintenant d' une astuce que j' avais moi même pondu dans un autre sujet sur le synedit.

Code:: dim_local i%,cp%,nc%,a$

cp% = caret_position(objet%)
if count(objet%)>0
for i%=1 to count(objet%)
a$=item_read(objet%,i%)
nc%=nc%+len(a$)+2
if nc%>cp%
ligne%=i%
exit_for
end_if
next i%
end_if

mais ce n' est qu' une astuce...

C'est une autre façon de faire, et elle conduit au même résultat. Et tout cela peut être encapsulé dans une fonction, et le ITEM_IINDEX existe, en attendant une version native.

Minibug a écrit:: Jack l'a t il rajouté récemment ?

Non, ça fait environ un an...

J' ai pas fait mes devoirs pour FNC...END_FNC
J' ai pas appris ma leçon
Embarassed

Comme ça:

Code:: label nombre, test
dim index%
synedit 1
button 2 : top 2,10 : left 2,width(1)+10 : caption 2,"Count()"
on_click 2,nombre
button 3 : top 3,40 : left 3,width(1)+10 : caption 3,"Item_Index"
on_click 3,test

memo 99 : hide 99 : bar_both 99
end

nombre:
message str$(count(1))
return

test:
index% = mon_item_index(1)
message str$(index%)
return

fnc mon_item_index(obj%)
dim_local s$
s$ = text$(obj%)
s$ = left$(s$,caret_position(obj%))
clear 99
text 99,s$+" "
result count(99)
end_fnc

Merci Klaus.
Je ferai mes devoirs la prochaine fois.
Laughing

Nombre de messages : 261 Date d'inscription : 30/03/2018

Merci pour toutes ces astuces ...

Ok Marc, merci. Désolé pour l'erreur... Wink

Nombre de messages : 261 Date d'inscription : 30/03/2018

Je planche toujours sur le Numéro de colonne sur un synedit.... Faut jongler avec tous ces mots-clés PANORAMIC que je suis loin de connaître encore.

Nombre de messages : 261 Date d'inscription : 30/03/2018

Klaus a écrit:

Comme ça:

Code:: label nombre, test
dim index%
synedit 1
button 2 : top 2,10 : left 2,width(1)+10 : caption 2,"Count()"
  on_click 2,nombre
button 3 : top 3,40 : left 3,width(1)+10 : caption 3,"Item_Index"
  on_click 3,test

memo 99 : hide 99 : bar_both 99
end

nombre:
message str$(count(1))
return

test:
index% = mon_item_index(1)
message str$(index%)
return

fnc mon_item_index(obj%)
dim_local s$
s$ = text$(obj%)
s$ = left$(s$,caret_position(obj%))
clear 99
text 99,s$+" "
result count(99)
end_fnc

En fait ce code fonctionne très bien, c'est bien le numéro de ligne qu'on obtient... Sauf si le curseur a dépassé le dernier caractère d'une ligne, car dans ce cas le résultat donne un nombre fantaisiste.

As tu essayé cela :

Code:: dim SynItemIndex%
label change

synedit 1
on_change 1,change

end

change:
off_change 1
SynItemIndex%=SYN_ITEM_INDEX(1)
caption 0,str$(SynItemIndex%)
on_change 1,change
return

Fnc SYN_ITEM_INDEX(obj%)
dim_local i%,cp%,nc%,a$

cp% = caret_position(obj%)
if count(obj%)>0
for i%=1 to count(obj%)
a$=item_read$(obj%,i%)
nc%=nc%+len(a$)+2
if nc%>cp%
Result i%
exit_for
end_if
next i%
end_if
End_Fnc

normalement le numéro de ligne est correct...
Laughing

Ligne + colonne du CARET :

Code:: dim SynCaretPosition$
label change

synedit 1
on_change 1,change

end

change:
   off_change 1
   SynCaretPosition$=SYN_CARET_POSITION$(1)
   caption 0,SynCaretPosition$
   on_change 1,change
return

Fnc SYN_CARET_POSITION$(obj%)
   dim_local i%,cp%,nc%,a$,r$,ac%

   cp% = caret_position(obj%)
   if count(obj%)>0
   for i%=1 to count(obj%)
   a$=item_read$(obj%,i%)
   ac%=nc%
   nc%=nc%+len(a$)+2
   if nc%>cp%
   r$="Ligne : "+str$(i%)+" Colonne : "+str$(cp%-ac%)
   Result r$
   exit_for
   end_if
   next i%
   end_if
End_Fnc

Opérations de repérage sur un SYNEDIT Captur11

NB: la fonction est sur un on_change.
cqfd cela n' indique rien en navigation avec les flèches
mais il ne reste qu' à adapter...
Wink

» Transitivité des opérations
» Opérations sur des fichiers PDF
» Bug avec la priorité des opérations arithmétiques ?
» Erreur dans la priorité des opérations
» Encore un mystère, mais avec les opérations