Come "tabellizzare" questo pccolo script ?

[fillotto]

Qui lo script è piccolo ma può diventare molto più grande con l'inclusione di altre formule questo è lo script , di seguito il relativo output e ancora di seguito è come vorrei la TabellaOrdinabile (qui formata da una sola riga )

  Sub Main


Call ApriBaseDatiFT("C:\Documents and Settings\utente\Dati applicazioni\SpazioMetria\ArchivioPensy\PENSY0.txt",5,",",30)

Ini = EstrazioniArchivioFT - 45 : Fin = EstrazioniArchivioFT

For Es = Ini To Fin

NV = FuoriX(EstrattoFT(es - 1,1) + EstrattoFT(es - 2,1),30): Rit = Rit + 1

If PosizioneFT(Es,NV) > 0 Then Rit = 0 + 1

Next

PN1 = FuoriX(EstrattoFT(es - 1,1) + EstrattoFT(es - 2,1),30)

'Scrivi "[" & Es - 1 & "] " & DataEstrazioneFT(Es - 1) & Space(2),False,False

Scrivi "PE" & Space(2),True,False

Scrivi StringaEstrattiFT(Es - 1,","),False,False

Scrivi FormatSpace(NV,4,True) & Space(2),True,False

Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & "prossimo num. da giocare " & PN1 & " " & "formula 1° estr.+1° estr. preced. "

For Es = Ini To Fin

NV = FuoriX(EstrattoFT(es - 1,1) + EstrattoFT(es - 2,2),30): Rit = Rit + 1

If PosizioneFT(Es,NV) > 0 Then Rit = 0 + 1

Next

PN2 = FuoriX(EstrattoFT(es - 1,1) + EstrattoFT(es - 2,2),30)

'Scrivi "[" & Es - 1 & "] " & DataEstrazioneFT(Es - 1) & Space(2),False,False

Scrivi "PE" & Space(2),True,False

Scrivi StringaEstrattiFT(Es - 1,","),False,False

Scrivi FormatSpace(NV,4,True) & Space(2),True,False

Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & "prossimo num. da giocare " & PN2 & " " & "formula 1° estr.+2° estr. preced. "

For Es = Ini To Fin

NV = FuoriX(EstrattoFT(es - 1,1) + EstrattoFT(es - 2,3),30): Rit = Rit + 1

If PosizioneFT(Es,NV) > 0 Then Rit = 0 + 1

Next

PN3 = FuoriX(EstrattoFT(es - 1,1) + EstrattoFT(es - 2,3),30)

'Scrivi "[" & Es - 1 & "] " & DataEstrazioneFT(Es - 1) & Space(2),False,False

Scrivi "PE" & Space(2),True,False

Scrivi StringaEstrattiFT(Es - 1,","),False,False

Scrivi FormatSpace(NV,4,True) & Space(2),True,False

Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & "prossimo num. da giocare " & PN3 & " " & "formula 1° estr.+3° estr. preced. "

For Es = Ini To Fin

NV = FuoriX(EstrattoFT(es - 1,1) + EstrattoFT(es - 2,4),30): Rit = Rit + 1

If PosizioneFT(Es,NV) > 0 Then Rit = 0 + 1

Next

PN4 = FuoriX(EstrattoFT(es - 1,1) + EstrattoFT(es - 2,4),30)

'Scrivi "[" & Es - 1 & "] " & DataEstrazioneFT(Es - 1) & Space(2),False,False

Scrivi "PE" & Space(2),True,False

Scrivi StringaEstrattiFT(Es - 1,","),False,False

Scrivi FormatSpace(NV,4,True) & Space(2),True,False

Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & "prossimo num. da giocare " & PN4 & " " & "formula 1° estr.+4° estr. preced. "

For Es = Ini To Fin

NV = FuoriX(EstrattoFT(es - 1,1) + EstrattoFT(es - 2,5),30): Rit = Rit + 1

If PosizioneFT(Es,NV) > 0 Then Rit = 0 + 1

Next

PN5 = FuoriX(EstrattoFT(es - 1,1) + EstrattoFT(es - 2,5),30)

'Scrivi "[" & Es - 1 & "] " & DataEstrazioneFT(Es - 1) & Space(2),False,False

Scrivi "PE" & Space(2),True,False

Scrivi StringaEstrattiFT(Es - 1,","),False,False

Scrivi FormatSpace(NV,4,True) & Space(2),True,False

Scrivi "Rit" & FormatSpace(Rit - 1,4,True) & " " & "prossimo num. da giocare " & PN5 & " " & "formula 1° estr.+5° estr. preced. "
End Sub

 [FONT=Courier New][SIZE=10px][COLOR=#000000][B]PE  [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]09,10,19,20,28[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]  11  [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]Rit   9 prossimo num. da giocare  10 formula 1° estr.+1°str.preced. [/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][B]PE  [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]09,10,19,20,28[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]  12  [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]Rit   6 prossimo num. da giocare  11 formula 1° estr.+2° estr.preced. [/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][B]PE  [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]09,10,19,20,28[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]  17  [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]Rit  17 prossimo num. da giocare  22 formula 1° estr.+3° estr.preced. [/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][B]PE  [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]09,10,19,20,28[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]  19  [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]Rit   0 prossimo num. da giocare  30 formula 1° estr.+4° estr.preced. [/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=10px][COLOR=#000000][B]PE  [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]09,10,19,20,28[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000][B]  23  [/B][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=10px][COLOR=#000000]Rit   8 prossimo num. da giocare  2 formula 1° estr.+5° estr. preced. [/COLOR][/SIZE][/FONT]

 

[fillotto]

Ecco come vorrei che apparisse ,nel caso in esame, la tabella aggiungo qualche chiarimento

 

[fillotto]

Porto su nella speranza che qualcuno si interessi ......