usi la funzione mid all'interno di un ciclo.
ad esempio se vuoi dividere un testo in 40 blocchi.
-1)crei le variabili
dim blocchi() as string
dim nblocchi as integer
dim testo as string
0)Crei la Sub e esprimi le variabili
private sub dividiinblocchi()
testo = ....
nblocchi = 40
redim blocchi(1 to nblocchi)
1)calcoli quanti caratteri a blocco.
nchar = int(len(testo)/nblocchi)
2)crei il ciclo e le variabili ausiliarie
dim k as integer
for k = 1 to nblocchi
3) estrai i valori
blocchi(k) = mid(testo,(k-1)* nchar, nchar)
4) chiudi tutto
next k
end sub
spero di non essermi dimenticato nulla.
|