[risolto]textarea

[skrokkio]

ciao ragazzi

ho una textarea gia riempita e dovrei prelevare solo l'ultima riga scritta e metterla in una variabile.

Con l'istruzione TextArea1.Pos = TextArea1.Length dovrei "prendere" l'ultima riga giusto ?

Ma poi per metterla in una variabile?

[giulio]

skrokkio ha scritto:
ciao ragazzi

ho una textarea gia riempita e dovrei prelevare solo l'ultima riga scritta e metterla in una variabile.

Con l'istruzione TextArea1.Pos = TextArea1.Length dovrei "prendere" l'ultima riga giusto ?

Ma poi per metterla in una variabile?

Ciao. Con l'istruzione che hai scritto tu, poni solamente il cursore
alla fine del testo. Io ti suggerirei questo modo, che ti restituisce l'ultima riga
della textarea, anche se è vuota:


DIM sUltimaRiga AS String
sUltimaRiga = Split(TextArea1.Text, "\n")[Split(TextArea1.Text, "\n").Max]
PRINT sUltimaRiga

oppure:

DIM sUltimaRiga AS String
sUltimaRiga = Split(TextArea1.Text, "\n", "", TRUE)[Split(TextArea1.Text, "\n", "", TRUE).Max]
PRINT sUltimaRiga

che ti restituisce l'ultima riga 'piena'.

Saluti.

[Ceskho]

Tieni presente che dove trovi scritto "n" è un errore della struttura dei post del forum...in realtà si tratta di una enne (n) preceduta da uno backslash (\)..

[giulio]

Ho tolto i tag [code] per facilitare. Grazie Ceskho.

[Ceskho]

giulio ha scritto:
Ho tolto i tag [code] per facilitare. Grazie Ceskho.

In effetti questi sono gli unici casi in cui i tag non si dovrebbero usare...

Era solo per evitare che skrokkio usasse un codice errato e perdesse tempo inutilmente..

[skrokkio]

grazie ragazzi, dire che siete utili e' poco :P

[skrokkio]

DIM sUltimaRiga AS String
sUltimaRiga = Split(TextArea1.Text, "\n", "", TRUE)[Split(TextArea1.Text, "\n", "", TRUE).Max]
PRINT sUltimaRiga

questo prende l'ultima riga...e se volessi prendere la penultima? o la numero x?

[Ceskho]

Devi fare

############# CODICE ################
DIM sUltimaRiga AS String
sUltimaRiga = Split(TextArea1.Text, "\n", "", TRUE)[n]
PRINT sUltimaRiga
#####################################

dove

n = Split(TextArea1.Text, "\n", "", TRUE).Max

se la riga è l'ultima

n = 2

se la riga e la seconda

n = 3

se la riga è la terza, etc...

in particolare:

n = Split(TextArea1.Text, "\n", "", TRUE).Max - 1

per la penultima riga

[skrokkio]

ringrazio :)

[Ceskho]

skrokkio ha scritto:
ringrazio :)

Accetto  :cappello: