Per Mike58, si può scegliere L'archivio ?

[fillotto]

Mi spiego meglio ho uno script FT qualsiasi e diversi archivi paralleli che posso interrogare adesso faccio così:
Call ApriBaseDatiFT("C:\Documents and Settings\utente\Dati applicazioni\SpazioMetria\ArchivioPensy\PENSY.txt",5,",",30) dove quel PENSY è un archivio, PENSY1 è un altro archivio ,PENSY2 è un altro ecc fino a 5 , come fare senza andare a cambiarlo direttamente nel codice ? c'è un escamotage con un inputbox ? nelle funzioni non c'è

 

[Mike58]

Ciao Fill, può darsi che si possa fare, devi solo interrogare meglio la stringa del file.
se metti in un inputbox il nome desiderato avendo cura di dargli il .txt, poi la riga del porcorso la congiungi con il nome del inputbox.

esempio :

archFill = inputbox("Quale Archivio",,Pensy.txt)
sFile = "C:\Documents and Settings\utente\Dati applicazioni\SpazioMetria\ " & archFill

Call ApriBaseDatiFT(sFile,5,",",30)

prova a vedere se funziona.

Ciao

 

[fillotto]

Ringrazio Mike e disaronno (e magia) in qualche modo risolvo...

 

[Alien.]

acc...con questo script...mi ha preso l'archivio negli altri no perchè?Se ho bencapito il gioco è per ambata? e la cinquina !!!!

 

[fillotto]

acc...con questo script...mi ha preso l'archivio negli altri no perchè?Se ho bencapito il gioco è per ambata? e la cinquina !!!!

Grazie Disaronno funziona perfettamente!
X Alien gli altri archivi non li hai come pretendi che funzioni x te e per gli altri che passano da queste parti gli altri archivi si formano facilmente con questo script che ho adattato da uno fatto da Joe Questo è la formazione di quello che chiamerete " PENSY3" ovvero è l'evoluzione del terzo estratto voi avete PENSY che è l'archivio madre da questo con formerete i 5 archivi paralleli o virtuali in qualche secondo , PENSY e PENSY0 sono uguali (sono in sostanza quelli " REALI " voi avete PENSY che sarà la madre per formare gli altri 5 ) , come archivio di esempio qui ho fatto il 3 perchè vi volevo far notare che nel virtuale 3 avevamo il num 22 (l'adattatore) in ritardo di 49 gg !! che trasformandolo in reale suggeriva 8 anche gli altri archivi mi segnalavano l'8 reale ... uscito a colpo (non potuto giocare per terminali non funzionanti, e si succede anche questo

'Test NumeroPosRit / Numero / PosNumeroRit By Joe
Sub Main()
Call ApriBaseDatiFT("C:\Documents and Settings\utente\Dati applicazioni\SpazioMetria\ArchivioPensy\PENSY.txt",5,",",30)
Es = EstrazioniArchivioFT
Scrivi "PeNSy" & " " & DataEstrazioneFT(Es),1
Scrivi
For es = 2700 To 3209
Nu1 = FuoriX(EstrattoFT(es,1) - EstrattoFT(es - 1,3),30)'Per la formazione dei 5 archivi virtuali bastlaerà cambiare il numero dopo la ","  in EstrattoFT(es - 1,5)
Nu2 = FuoriX(EstrattoFT(es,2) - EstrattoFT(es - 1,3),30)
Nu3 = FuoriX(EstrattoFT(es,3) - EstrattoFT(es - 1,3),30)
Nu4 = FuoriX(EstrattoFT(es,4) - EstrattoFT(es - 1,3),30)
Nu5 = FuoriX(EstrattoFT(es,5) - EstrattoFT(es - 1,3),30)
Scrivi Format2(es) & ",",0,0
Scrivi DataEstrazioneFT(Es) & ",",0,0

Scrivi Format2(Nu1) & "," & Format2(Nu2) & "," & Format2(Nu3) & "," & Format2(Nu4) & "," & Format2(Nu5)

Next
End Sub

 

[Membro cancellato 16574]

Buongiorno,
Salutando tutti gli intervenuti.
Postiamo il suo listato , modificato , con cui puo' salvare direttamente su un file di testo , compatibile con Spaziometrria , le estrazioni dell ' archivio virtuale .
Controllare sempre .

Option Explicit
'Test NumeroPosRit / Numero / PosNumeroRit By Joe
Sub Main()
    Dim sez
    Dim sfilearchivio
    Dim ini,fin,es,Tot
    Dim nu1,nu2,nu3,nu4,nu5
    Dim estratti,sNumEst
    Dim sdata,sfile,sRteErr
    sez = CInt(InputBox("Quale Arc Virtuale vuoi aggiornare? "," 1 - 5 ",1))
    If sez > 00 Then
        sfilearchivio = GetDirectoryAppData & "ArchivioPensy\PENSY.txt"
        Call ApriBaseDatiFT(sfilearchivio,05,",",30)
        sfile = GetDirectoryAppData & "ArchivioPensy\PENSY" & sez & ".txt"
        Call EliminaFile(sfile) ' cancella eventualmente il file se gia esiste
        ini = EstrazioniArchivioFT - 10
        fin = EstrazioniArchivioFT
        Tot = EstrazioniArchivioFT
        Scrivi "PeNSy" & " " & DataEstrazioneFT(Tot),1
        Scrivi
        For es = ini To fin
            Messaggio es
            AvanzamentoElab ini,fin,es
            'Per la formazione dei 5 archivi virtuali bastlaerà cambiare il numero dopo la ","  in EstrattoFT(es - 1,5)
            nu1 = FuoriX(EstrattoFT(es,01) - EstrattoFT(es - 01,sez),30)
            nu2 = FuoriX(EstrattoFT(es,02) - EstrattoFT(es - 01,sez),30)
            nu3 = FuoriX(EstrattoFT(es,03) - EstrattoFT(es - 01,sez),30)
            nu4 = FuoriX(EstrattoFT(es,04) - EstrattoFT(es - 01,sez),30)
            nu5 = FuoriX(EstrattoFT(es,05) - EstrattoFT(es - 01,sez),30)
            estratti = Array(nu1,nu2,nu3,nu4,nu5)
            sNumEst = IndiceAnnualeFT(es)
            sdata = DataEstrazioneFT(es)
            sdata = Replace(sdata,".","/")
            Scrivi FormattaStringa(es,"0000") & ",",00,00
            Scrivi sdata & ",",00,00
            Scrivi StringaNumeri(estratti,",",True)
            ReDim aNumeri(05)
            aNumeri(01) = nu1
            aNumeri(02) = nu2
            aNumeri(03) = nu3
            aNumeri(04) = nu4
            aNumeri(05) = nu5
            Call SalvaEstrazioneFT(aNumeri,sdata,sNumEst,sfile,00,sRteErr)
            Call CloseFileHandle(sfile) ' chiudo l'handle al file
        Next
    End If
    Call LanciaFile(sfile) ' lancio il file si aprira notepad
End Sub

 

[fillotto]

Ciao Magia grazie per lo script ma .... c'è un impiccio che se si potesse evitare sarebbe meglio cosi come è fatto mi riduce un archivio virtuale a 10 righe nel senso che cancella TUTTO quello precedente e forma un'archivio di soli 10 righe seppure aggionato all'ultima estrazione .Per evitare ciò ho dovuto mettere " -3215 " (a tanto ammonta l'archivio mio originale e relativi virtuali) ma ci mette un bel po.Bisogherebbe che accodasse le ultime 10 righe (sapendo che gli archivi virtuali sono aggiornati a min 10 righe mancanti).
Per quanto riguarda l'aggiornamento dei vari archivi virtuali ho ritenuto comodo mettere un inputbox "

 [COLOR=#FF0000]sez = CInt(InputBox("Quale Arc Virtuale vuoi aggiornare? (Da 1 a 5) ",,1))[/COLOR]

    sfilearchivio = GetDirectoryAppData & "ArchivioPensy\PENSY.txt"
    Call ApriBaseDatiFT(sfilearchivio,05,",",30)
    sfile = GetDirectoryAppData & "ArchivioPensy\PENSY1.txt"
    Call EliminaFile(sfile) ' cancella eventualmente il file se gia esiste
    ini = EstrazioniArchivioFT -3215
    fin = EstrazioniArchivioFT
    Tot = EstrazioniArchivioFT
    Scrivi "PeNSy" & " " & DataEstrazioneFT(Tot),1
    Scrivi
    For es = ini To fin
        Messaggio es
        AvanzamentoElab ini,fin,es
        nu1 = FuoriX(EstrattoFT(es,01) - EstrattoFT(es - 01,[COLOR=#FF0000]sez[/COLOR]),30)'Per la formazione dei 5 archivi virtuali bastlaerà cambiare il numero dopo la ","  in EstrattoFT(es - 1,5)
        nu2 = FuoriX(EstrattoFT(es,02) - EstrattoFT(es - 01,[COLOR=#FF0000]sez[/COLOR]),30)
        nu3 = FuoriX(EstrattoFT(es,03) - EstrattoFT(es - 01,[COLOR=#FF0000]sez[/COLOR]),30)
        nu4 = FuoriX(EstrattoFT(es,04) - EstrattoFT(es - 01,[COLOR=#FF0000]sez[/COLOR]),30)
        nu5 = FuoriX(EstrattoFT(es,05) - EstrattoFT(es - 01,[COLOR=#FF0000]sez[/COLOR]),30)

 

[Membro cancellato 16574]

Buonanotte,
Salutando tutti gli intervenuti
Abbiamo fatto piccole modifiche al listato .
Per la questione di aggiornare l' archivio , senza ricostruirlo da capo , dovremo capire come si puo' fare.
Controllate sempre .