Originariamente inviato da okirit
stringa="Mario Rossi"
a=0:bx="":for i=1 to len(stringa1)
if mid(stringa,1,i)=" " then
a=a+1
s(a)=bx
bx=""
else
bx=bx+mid(stringa,1,i)
endif
next i
a=a+1
s(a)=bx

label1.caption=s(1)
label2.caption=s(2)


ciao
Scusa, ma mi pare un po' macchinoso scriversi una funzione che simuli due chiamate a funzioni già disponibili in vb... :master: