19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
d = 0 FOR c = 1 TO Len(TextArea1.Text) sAppo = Mid(TextArea1.Text, c, 1) IF sAppo <> "\n" THEN sRiga[d] = sRiga[d] & Mid(TextArea1.Text, c, 1) ELSE d = d + 1 ENDIF NEXT
Puoi usare la funzione Split che suddivide una stringa in tante sottostringhe separate da un carattere particolare. In questo caso il carattere sarebbe "\n".Su "Il resto del Pinguino" 0 trovi un bell'articolo dell'amico picavbg che spiega bene questa funzione...