Gambas-it

Archivi (sola lettura) => Programmazione (Gambas 2) => Topic aperto da: skrokkio - 08 Dicembre 2009, 16:02:28

Titolo: [risolto]textarea
Inserito da: skrokkio - 08 Dicembre 2009, 16:02:28

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?

Titolo: Re: textarea
Inserito da: giulio - 08 Dicembre 2009, 20:41:36

Citazione

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.

Titolo: Re: textarea
Inserito da: Ceskho - 08 Dicembre 2009, 20:44:40

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 (\)..

Titolo: Re: textarea
Inserito da: giulio - 08 Dicembre 2009, 20:51:24

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

Titolo: Re: textarea
Inserito da: Ceskho - 08 Dicembre 2009, 20:59:00

Citazione

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..

Titolo: Re: textarea
Inserito da: skrokkio - 08 Dicembre 2009, 21:09:19

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

Titolo: Re: [risolto]textarea
Inserito da: skrokkio - 11 Dicembre 2009, 18:31:52

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?

Titolo: Re: [risolto]textarea
Inserito da: Ceskho - 11 Dicembre 2009, 18:38:42

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

Titolo: Re: [risolto]textarea
Inserito da: skrokkio - 11 Dicembre 2009, 18:39:31

ringrazio :)

Titolo: Re: [risolto]textarea
Inserito da: Ceskho - 11 Dicembre 2009, 18:40:36

Citazione

skrokkio ha scritto:
ringrazio :)

Accetto  :cappello: