Egr. Sig. Alfonso,
grazie al Suo suggerimento e dopo molto "penare" da parte mia sono riuscito a risolvere
il problema con l'aggiunta di una ListBox e con il codice che segue:
----------------------
Private Sub MySplit()
Dim Testo1, Testo2, Testo3, . . . , Testo9 As String
'Dim Testo()
Dim a(), b() As String
On Error Resume Next
b = Split(TestoListBox, " ", -1) '-1 -> cioè tutte le ricorrenze di " " nella frase
For i = LBound(b) To UBound(b)
Testo1 = b(0)
Testo2 = b(1): If Testo2 = "" Then GoTo Salta
Testo3 = b(2): If Testo3 = "" Then GoTo Salta
Testo4 = b(3): If Testo4 = "" Then GoTo Salta
. . . . . . . .
. . . . . . . .
Testo9 = b(8): If Testo9 = "" Then GoTo Salta
Next
Salta:
List1.AddItem Testo1 & Testo2
If Testo3 = "" Then GoTo 1 Else List1.AddItem Testo1 & Testo3
If Testo4 = "" Then GoTo 1 Else List1.AddItem Testo1 & Testo4
. . . . . . . .
. . . . . . . .
If Testo9 = "" Then GoTo 1 Else List1.AddItem Testo1 & Testo9
1: End Sub
---------------------
Come può vedere le istruzioni sono per un n.ro prefissato di 9 files
(e 9 files per le mie modestissime applicazioni sono più che sufficienti;
mi piacerebbe poter indicare un n.ro imprecisato di files ma non riesco)
e li aggiungo al ListBox e poi li memorizzo ne file per il mio wizard.
In ogni caso La ringrazio ancora per il cortese interessamento e La saluto cordialmente.
|