Lo so. Ti ringrazio ed ora mi sto appassionando al REXX... ma ovviamente ho dei problemi.
Ora la situazione è molto più avanzata.
Ho fatto tutto quello che mi sono prefissato precedentemente.
Da un file di testo molto più gestibile ora con il REXX voglio inserire tutti i dati in un foglio excel.
La cosa bella è che se prendo in input il file che mi serve (poco più di 1000 righe) mi va in loop e quando finisce di scrivere le mille righe mi ricomincia daccapo.
Se con lo stesso identico script prendo in input un file con una decina di righe questo si ferma correttamente dopo l'ultima.
Avete idee su dove sbaglio?
Questo lo script:
codice:
/* PORTO I DATI SU EXCEL */
column = 1 ; b = 1
inputobject=.stream~new('D:\TOTALE.rep')
/* inputobject=.stream~new('D:\piccolo.rep') */
xlobj = .OleObject~New('Excel.Application')
xlobj~Visible = .true
xlobj~Application~SheetsInNewWorkBook = 1
xlobj~WorkBooks~Add
s = 0 /* contatore per le righe */
do while inputobject~lines<>0 /* Loop as long as there are lines */
s = s + 1 /* incremento il contatore */
CALL rxqueue 'create', cris /* creo la coda */
CALL rxqueue 'set' , cris /* setto la coda */
mychord=inputobject~linein /* leggo la riga */
parse value mychord with uno ';' due ';' tre ';' qua ';' cin ';' sei ';' set ';' ott ';' nov ';' die ';' und
mychord = uno
xlobj~Cells(b,column)~Value = mychord ; column = column + 1
mychord = due
xlobj~Cells(b,column)~Value = mychord ; column = column + 1
mychord = tre
xlobj~Cells(b,column)~Value = mychord ; column = column + 1
mychord = qua
xlobj~Cells(b,column)~Value = mychord ; column = column + 1
mychord = cin
xlobj~Cells(b,column)~Value = mychord ; column = column + 1
mychord = sei
xlobj~Cells(b,column)~Value = mychord ; column = column + 1
mychord = set
xlobj~Cells(b,column)~Value = mychord ; column = column + 1
mychord = ott
xlobj~Cells(b,column)~Value = mychord ; column = column + 1
mychord = nov
xlobj~Cells(b,column)~Value = mychord ; column = column + 1
mychord = die
xlobj~Cells(b,column)~Value = mychord ; column = column + 1
mychord = und
xlobj~Cells(b,column)~Value = mychord ; column = 1 ; b = b + 1
; end
Sempre grazie!