Avete problemi con l'aggiornamento delle estrazioni di spaziometria?

[i legend]

Ciao a tutti
Ciao prof tutto bene ? è un piacere leggere i tuoi script.
Ciao

 

[LuigiB]

Ciao Legend , benritrovato anche a te ... prof è troppo .. magari ...ciao

 

[silop2005]

Ciao a tutti
Ciao prof tutto bene ? è un piacere leggere i tuoi script.
Ciao

===============================================

ho aggiornato SPMT vers. 1.5.83 e relativo plug in SVP vers. 1.0.56

Ciao i legend ,

un bentornato e un sincero saluto anche a te.

Spero che nel frattempo ti sei procurato un pc buono (no cellulare)

per darci "una mano" in questa nuova avventura di aggiornamenti archivi e scripts,

da implementare nel programma free SPAZIOMETRIA by LuigiB.

======================

Buona domenica a tutti.

A presto

Silop

 

[Joe91]

Buon Giorno a tutte/i.

"Eventualmente io posso aggiungere un altro script per caricare automaticamente il file zip sul server web. in questo caso servirebbe un indirizzo ftp e la directory dove uplodare il file."

Non mi sembra poco!

Io non saprei neppure da che parte iniziare.

Solo una premessa.

Benissimo ancheper tutto quanto ha fatto ed ha proposto Moro.

Parafrasando un tormentone pubblicitario di qualche estate fa:

Due è meglio di uno.

Io qui, incomincierei a proporre di inserire (sul Lato Server) un "file.txt"

idoneo ad aggiornare.

E... (dal Lato Utente finale) modificare uno script ...

affinchè sia in grado di leggere questo file, presente sul sito di Silop,

ed Aggiornare Spaziometria.

Di questo script, mi posso occupare io, modificandone uno già fatto.

Proporrei anche un formato per i dati (eventualmente poi da migliorare).

Numero di Estrazione | Data | seguito da 55 Estratti (separatori "|" e "/" per la data)

Supponendo che il formato va bene, Silop potrebbe già mettere

a disposizione questa semplice riga di testo in un file.

Ovvero creare "Un file" contenente una estrazione fittizia (futura).

Io la potrò usare per testare ... il funzionamento dello script

per l'aggiornamento di Spaziometria.

Comunque ... tutto potrà e sara ampliato modificato . (zippato e altro)

In sintesi lo script per generare una "estrazione fittizia" potrebbe essere:

Option Explicit
Sub Main
Dim N
Scrivi FormattaStringa (EstrazioneFin+1,"00000") &"|",0,0
Scrivi "01/08/2018"&"|",0,0
For N= 1 To 55
Scrivi Format2 (N) & "|",0,0
Next
Scrivi

End Sub

Pertanto servira "per me l'" "utente finale" ... l'indirizzo internet

di questo file ed a Luigi anche le credenziali

per potervi accedere e quelle del dove, poterlo riporre in upload

dopo un suo eventuale aggiornamento.

Fatemi sapere se non ho toppato clamorosamente

e se progredire per piccolissimi passi

possa renderci, più comprensibili.

Silop, Luigi, Moro ... per comunicare dati tecnici

potete usare la mia/vostre mail.

Cordiali saluti

 

[LuigiB]

ciao Joe , tutto , corretto , lo script che genera l'archivio al termine avra le istruzioni per fare l'upload sul server..
Naturalmente dovra essere lanciato da chi ha accesso al server ovvero chi conosce user e pass.
A me queste credenziali servono solo per prova e per predisporreil pezzetto di script
Io non sono daccordo sul fatto di lasciarlo txt perche dovendo tenere il file con tutte le estrazioni
questo peserebeb molto di piu se non viene zippato ad ogno modo è un dettaglio , le routien per zippare e unzippare le abbiamo viste.

Quindi come procedere ?
Silop deve mettere sul suo server( per ora )un file di testo come prodotto dallo script di joe
e dirci con che link si puo scaricare in modo che Joe possa fare gia qualche prova
In separata sede Silop dovrebbe comunicarmi se sul suo sito è possibile fare l'upload del file tramite ftp nel qualcaso mi deve fornire indirizzo e credenziali per farmi provare anzi le credenzali non servono perche posso provare con un altro ftp pero mi deve dire la cartella dove lo mette.
io poi faccio il pezzetto di script per fare l'upload tale pezzetto di script va aggiunto a quell odi joe che genera l'archivio , lo script finale lo lanciera chi ha il compito di tenere aggiornato il sito.
Sentiamo anche moro se pure lui aveva preparato qualcosa..

nel'attea un saluto ...

 

[Moro_80]

Ciao a tutti,
senza nulla togliere a Silop e allo splendido lavoro che fà sul suo sito...ma il mio plugin di "prova" fa proprio quello che elencate...infatti se nelle path generate cambiate l'indirizzo e il nome file è possibile fare l'upload del file *.txt o *.zip che sia sul mio spazio FTP messo a disposizione.

A ogni modo se vogliamo comunicare per altro e per cose tecniche ho un'alias mail che è il seguente:

Spaziometria[chiocciola]outlook.it

sul quale possiamo scriverci onde evitare di intasare il topic sul forum.

Se poi si vuole procedere con lo spazio di Silop allora deve lui fornire il tutto...io ho fatto "per la mia parte" in modo che le credenziali non siano pubbliche ma di uso solo al plugin stesso.
Ovvio non è sfiducia verso luigi o altri...anzi a lui darei anche le mie chiavi di casa senza problemi

Fatemi sapere come volete procedere....


Saluti

 

[LuigiB]

Ciao Moro .. io avevo capito che avevi qualcosa di pronto infatti non so se hai letto ti avevo designato come responsabile del progetto.. io direi di coordinarvi tra dfi voi ..io intervengo in caso di difficolta..

 

[Moro_80]

Ciao Luigi,
mi intrigava il discorso web ftp etc etc che un po' mastio ecco perché mi son fatto avanti.
Non mi ritengo responsabile del progetto ma son dentro al team diciamo...cmq di pronto ho quanto hai visto dal mio post precedente anzi a dire il vero lo stavo implementando (o meglio vorrei) con l'opzione di aggiornare , creare lo zip e poi uploadare.
Ovviamente tutto ancora in fase di studio magari assieme a Giorgio e gli altri, pronto anche a dare il sorgente a Te, se si vuole poi implementare il tutto nel software stesso.

Sentiamo anche gli altri magari...


Saluti

 

[LuigiB]

Ciao ragazzi...per questa idea organizzatevi da soli io intervebgo se c e bisigno...la cosa avrebbe piu sensi per altre tipologie di archivi visto che il lotto lo aggiorna gia da due siti ufficiali monopoli e lottonatica...

 

[silop2005]

Ciao a tutti
sono fuori e scrivo con il cellulare
appena rientro
provo le cose che ha detto Luigi
e tutto il resto.
Buona giornata
silop

 

[Joe91]

Ciao Moro,

ho provato il tuo plug-in ... ma non si esegue.

Domani spero di poter provare con più successo su un altro PC.

Oggi intanto provo a scaricarlo nuovamente seguendo

con la massima attenzione tutte le istruzioni che hai fornito.

Cordiali saluti.

 

[i legend]

Ciao a tutti
innanzitutto faccio i miei complimenti a moro joe e a tutti coloro che stanno facendo un grande lavoro per spaziometria.

ciao silop grazie per i saluti che sono ricambiati di cuore.
purtroppo non ho ancora il pc. Anche se la voglia di fare qualche script è tantissima.

x magia grazie anche a voi e un grande saluto
purtroppo senza pc non posso collaborare e questa è la cosa che mi manca di più.
Ciao a tutti

 

[skygirl]

Buongiorno a tutti/e devo effettuare l'aggiornamento alla versione 1.5.84 ma ho paura che mi perda le estrazioni precedenti come è accaduto nell'aggiornamento alla versione 1.5.83 ho dovuto ri-inserire manualmente circa 30 estrazioni
Specifico che ho Spaziometria installato su macchina virtuale con S.O. XP

 

[Moro_80]

Ciao Skygirl,
puoi fare senza problemi l'aggiornamnto alla versione 1.5.84, stai attenta durante l'installazione (ultimo passaggio) a togliere tutte le spunte come si vede dalla foto sotto.




Facendo così i tuoi archivi non verranno sovrascritti.



Saluti

 

[skygirl]

Grazie Moro_80 in effetti bastava leggere ehehe

 

[silop2005]

ho aggiornato SPMT vers. 1.5.83 e relativo plug in SVP vers. 1.0.56

Ciao LuigiB ,

ecco ho creato la CARTELLA : "spaziometria" aperta sul mio spazio .eu

dove è possibile inserire l'archivio che servirà per tenere aggiornato

gli archivi di Spaziometria e altro.

Le credenziali te le ho inviate tramite mail.

IMPORTANTE : l'estensione di silop non è .it è cambiata bisogna scrivere .eu

x Joe

Ti ho inviato tramite mail i due link (che qui non si possono mettere)

e dove ho inserito il tuo file.txt " provaJOE " cosi cominci a fare le prove.

======================

x moro_80

grazie dei complimenti, poi per quanto riguarda quale spazio internet (il mio o il tuo)

sia più ottimale per il progetto che sta nascendo, la SCELTA spetta a chi ne sa più di noi

nel mondo dell'informatica del web.

Quale sarà la scelta per me è indifferente, l'importante è realizzare nel modo

più idoneo questo ambizioso progetto.

Speriamo che anche altri appassionati partecipano a questa nuova avventura.

======================

Buona giornata a tutti.

A presto

Silop

PS

x Magia

se mi contatti ti invio anche a te

i due link per poter fare le prove degli archivi.

 

[LuigiB]

ciao ragazzi , dato che Silop come gli avevo richiesto mi ha fornito l'ambiente per fare le prove ecco qui uno script che mostra come inviare un tale file sul server ftp in una tale cartella del server remoto , (per chi prova potrebbe darsi che dobbiate sbloccare il firewall per l'ftp).
Lo script banalmente usa i comandi del dos visto che in vbscript non ci sono istruzioni per collegarsi direttamete al server ftp.

Questo script contiene 3 funzioni

Sub Main sapete tutti a che serve è messa unicamente per vedere come si richiama la funzione

SendFileFtp è la funzione che invia il file al server ftp va copiata cosi com'è

Aspetta una sempliciissima funzione di supporto anche quella da copiare cosi com'è

come ho gia detto questo pezzo di codice va messo alla fine dello script che genera effettivamente il file dell'archivio da mettere sul server.

il giro è questo

1) genera file archivio
2)zippa file archivio
3) invia file zip al server.

in questo post sono presenti gia tutte le funzioni necessarie solo da copiare e usare visto che sono tutte parametrizzate e quindi adatte senza bisogno di essere modificate.

ora anche Moro si stava occupando del problema e ha qualcosa di gia fatto , io posto degli esempio vorrei che vi organizzaste da soli e vorrei con la mi autorita di professore che mi avete dato eleggere coem referenti del progetto Moro e Joe .. naturalmente io come vedete non mi tiro fuori .. ecco lo script ... a proposito Silop cancella il file che ho uploadato per prova ...

Option Explicit
Sub Main
    
    Dim sIndirizzo,sUser,sPwd
    Dim sFileDaInviare
    Dim sDirRemotaFtp
    Dim bScriviLogInOutput
    
    sFileDaInviare ="c:\prova.txt"
    bScriviLogInOutput = True
    
    sIndirizzo ="ftp.silop.eu"
    sDirRemotaFtp ="spaziometria\ArchiviItalia" ' contiene la dir remota puo anche essere vuoto "" in questo caso usera la dir predefinita
    sUser ="Il mio nonme utente"
    sPwd ="la mia password"
    
    If  SendFileFtp(sIndirizzo ,sUser,sPwd ,sFileDaInviare ,sDirRemotaFtp  , bScriviLogInOutput) Then
    
        MsgBox "Trasferimento completato" , vbInformation
    Else
        MsgBox "E' stato aperto il file log analizzarlo !" , vbCritical
    End If
End Sub

Function SendFileFtp(sIndirizzo,sUser,sPwd,sFileToUpload,sDirRemota, bScriviLogInOutput )

    Dim sFileBat,sFileComandi,sDirLocal,sFileLog,sFileLogTmp,nWatchDog
    Dim k
    Dim sCmd
    Dim sNomeFile,i, bRet
    
    bRet = False
    i = InStrRev(sFileToUpload,"\")
    If i > 0 Then
        sNomeFile = Mid(sFileToUpload,i + 1)
        sDirLocal = GetDirectoryAppData & "temp\"
        
        If CreaDirectory(sDirLocal) Then
            
            sFileBat = sDirLocal & "ftpcmd.bat"
            Call EliminaFile(sFileBat)
            sFileComandi = sDirLocal & "ftpcmd.txt"
            Call EliminaFile(sFileComandi)
            sFileLog = sDirLocal & "ftpcmd.log"
            Call EliminaFile(sFileLog)
            sFileLogTmp = sDirLocal & "ftpcmd.tmp"
            Call EliminaFile(sFileLogTmp)
        
        
            sCmd = "ftp -i -s:" & """" & sFileComandi & """" & ">>" & """" & sFileLogTmp & """"
            Call ScriviFile(sFileBat,sCmd)
        
            
            sCmd = "OPEN " & sIndirizzo
            Call ScriviFile(sFileComandi,sCmd)
            
            sCmd = sUser
            Call ScriviFile(sFileComandi,sCmd)
            
            sCmd = sPwd
            Call ScriviFile(sFileComandi,sCmd)
            
            If sDirRemota <> "" Then
                Dim aV
                aV  = Split(sDirRemota , "\")
                For k =0 To UBound(aV)
                    sCmd = "cd " & aV(k)
                    Call ScriviFile(sFileComandi,sCmd)
                Next
            End If
            sCmd = "Delete " & sNomeFile
            Call ScriviFile(sFileComandi,sCmd)
            
            sCmd = "binary"
            Call ScriviFile(sFileComandi,sCmd)
            
            sCmd = "mput " & """" & sFileToUpload & """"
            Call ScriviFile(sFileComandi,sCmd)
            
            sCmd = "ls "  
            Call ScriviFile(sFileComandi,sCmd)
            

            sCmd = "disconnect"
            Call ScriviFile(sFileComandi,sCmd)

            sCmd = "quit"
            Call ScriviFile(sFileComandi,sCmd)

            
            Call CloseAllFileHandle
    
            Call LanciaFile(sFileBat,True)
            
            nWatchDog = 0
            Do While FileEsistente(sFileLogTmp) = False
                Aspetta(1)
                nWatchDog = nWatchDog + 1
                If nWatchDog > 30 Then Exit Do
            Loop
            nWatchDog = 0

            Do While RinominaFile(sFileLogTmp,sFileLog) = False
                Aspetta(1)
                nWatchDog = nWatchDog + 1
                If nWatchDog > 30 Then Exit Do
               
            Loop
            
            If FileEsistente(sFileLog ) Then
                ReDim aRighe(0)
                Call LeggiRigheFileDiTesto ( sFileLog , aRighe)
                For k = 0 To UBound(aRighe)
                    If Left(aRighe(k) ,3) = "226" Then ' trasferimento completato
                        bRet = True
                    End If
                    If bScriviLogInOutput  Then
                        Scrivi aRighe(k)
                    End If
                Next
            End If
            
            If bRet = False Then
                Call LanciaFile(sFileLog)
            End If
            
        End If
    End If
    
    SendFileFtp = bRet
    
End Function
Sub Aspetta(s)
    Dim t
    t = Timer
    Do While Timer - t < s
        DoEventsEx
    Loop
End Sub

 

[Moro_80]

Ciao Luigi,
è esattamente quello che stavo facendo io...solo che mi sto occupando anche del "contrario", ovvero scaricare il file zip dal server e copiarlo nel PC utente...ovviamente come ben sapete non con vbscript ma con un'utility a parte che faccia solo quello, poi si può discutere di chi deve farlo etc etc magari dando dei privilegi solo ad alcuni o un solo utente.
Mi sembra una strada comunque "percorribile" che da la possibilità a tutti di fare tal operazione.

Per il discorso del download sono d'accordo aggiorniamo già dai siti ufficiali quindi va bene così.


Saluti

 

[LuigiB]

perfetto .. ripeto organizzatevi .. se c'è bisogno del mio aiuto intervengo.
E' chiaro che per il lotto attualmente non ci sono piu problemi quindi forse vi dovreste concentrare su altri archivi .. non so fate voi ..ciao

 

[silop2005]

perfetto .. ripeto organizzatevi .. se c'è bisogno del mio aiuto intervengo.
E' chiaro che per il lotto attualmente non ci sono piu problemi quindi forse vi dovreste concentrare su altri archivi .. non so fate voi ..ciao

===========================

ho aggiornato SPMT vers. 1.5.83 e relativo plug in SVP vers. 1.0.56

Ciao moro_80 ,

ti ho inviato tramite mail gli stessi link

che ho inviato a Luigi e a Joe

in modo che puoi fare anche tu delle prove

e organizzarci di come proseguire per la costruzione del progetto :

ArchiviItalia e ArchiviEstero.

Fammi sapere.

======================

Buona notte a tutti.

A presto

Silop