Copiare in un file di testo e salvarlo con nome "mescola.vbs"
poi basta cliccarlo e dargli i nomi dei file
(Win98SE o superiore)
Funziona meglio per la poesia che ha frasi più corte (ci vuole un 'a capo' per considerare finita una frase).
Codice:
dim par(9999):' massimo 9999 frasi
Set fs = CreateObject("Scripting.FileSystemObject")
Filein = inputbox("Nome file da mescolare")
Fileout = inputbox("Nome file mescolato")
Set Fin = fs.OpenTextFile(Filein, 1, True):
Set Fout = fs.OpenTextFile(Fileout, 2, True)
Do While Fin.AtEndOfStream <> True
a = Fin.Readline
par(i) = a:i=i+1
Loop
Do while j < i
n = int(rnd*i)
if par(n) <> "" then a = par(n):par(n)="": Fout.writeline a:j=j+1
Loop
msgbox("Fatto!")
L'infinito di Leopardi dopo il "trattamento":
Vo comparando: e mi sovvien l'eterno,
Odo stormir tra queste piante, io quello
Spazio di là da quella, e sovrumani
E le morte stagioni, e la presente
Sempre caro mi fu quest'ermo colle,
E viva, e 'l suon di lei. Così tra questa
Io nel pensier mi fingo, ove per poco
Silenzi, e profondissima quiete
E 'l naufragar m'è dolce in questo mare.
Infinità s'annega il pensier mio:
Il cor non si spaura. E come il vento
Infinito silenzio a questa voce
Ma sedendo e mirando, interminato
E questa siepe, che da tanta parte
De l'ultimo orizzonte il guardo esclude.