[VBA/EXCEL] Stringhe troppo lunghe

[Leo_06]

Salve a tutti...

Utilizzando il VBA in excel, mi è capitato di avere stringhe superiori alla lunghezza massima per riga (200 caratteri) dando quindi, un fastidioso errore...

Sapete se c'è un modo automatizzato in VB che riconosca la lunghezza della stringa e riesca ad andare a capo??

(per andare a capo intendo in questo modo:
...."_
,"....
)

[Leo_06]

possibile che nessuno abbia riscontrato il problema??

[Stefano1984Mn]

Ciao
ma la stringa in exel dopo averla riportata in vb ti da errore nel salvataggio in un database?
o è proprio quando riporti la stringa in vb che ti da errore?

[tuono_2000]

Salve «Leo_06»

Se non ho capito male... vorresti conoscere, preventivamente,
la lunghezza del testo per poterlo dividere in più variabili; così da non superare il limite di 200K ?

Se è così, la funzione LEN, restituisce un intero che rappresenta la lunghezza della stringha.

Con questa funzione, codice sottostante, potresti dividere la stringha.
Esempio valido per VIsualBasic6: (TEXT1 è il contenitore della stringha troppo lunga)

rem dichiarazione vettore, indice e punto di continuazione
dim STRING (1 to 10) as string
dim TEMP as string
dim IND as integer
dim CON as integer
rem inizializzazione variabili
IND=1
CON=1
rem ciclo inserimento testo
do
rem estrazione testo 200K
TEMP=mid(TEXT1.text,con,200)
rem inserimento testo
STRING(IND)=TEMP
rem controllo rimanenza testo
if (len(TEXT1.text)-(CON*200))>0 then
rem è rimasto testo, nuovo ciclo
CON=CON+1
IND=IND+1
else
rem frase terminata
CON=0
end if
rem controllo e ciclo rimasto testo
while (CON>0)
rem il contenuto di TEXT1.text è stato copiato nel vettore STRING()