Novità

Come elaborare tutti i files txt presenti in una cartella anzichè uno soltanto...

lotto_tom75

Advanced Premium Member
Codice:
Call ElencoFileInDirectory(sDir,aV,".txt")
i = ScegliOpzioneMenu(aV,,"Scegli il file txt desiderato")
ScegliFiletxt = sDir & aV(i) & ".txt"
End Function
Dim sFile1
Dim aLunghette
Dim sFiletxt
Dim contatore                                      

sFile1 = "C:\Users\lottotom\Desktop\filestxtdemo\" 

sFiletxt = ScegliFiletxt(sFile1)
LeggiRigheFileDiTesto sFiletxt,aLunghette

Io vorrei poter modificare questo pezzo di codice al fine di poter eseguire almeno una di queste due operazioni seguenti:

1) poter selezionare e analizzare i files desiderati presenti nella directory filestxtdemo che al momento lo script mi visualizza nell'elenco anzichè poterne selezionare ed elaborare uno soltanto come adesso.

2) poter elaborare tutti i files txt presenti in una determinata directory (es. filestxtdemo) se la prima opzione non è possibile implementarla.

Grazie infinite anticipate ai top scripters in ascolto che interveranno ;)
 
Ultima modifica:
Ci sono quasi arrivato... da solo... :)

Codice:
Sub Main
    Dim aNum,k
    Dim aNumSel(10)

Dim i
Dim sdir
Dim ScegliFiletxt
ReDim aV(0)
ReDim sel(0)
Dim k0,aNum0
sdir = "C:\Users\lottotom\Desktop\filestxtdemo\"

Call ElencoFileInDirectory(sdir,aV,".txt")

aNum0 = Array(aV(0),aV(1),aV(2),aV(3),aV(4),aV(5),aV(6),aV(7),aV(8))

  If ScegliDaLista(aNum0,aNumSel) > 0 Then
        For k0 = 0 To UBound(aNum0)
            If aNumSel(k0) Then
                Call Scrivi(aV(k0) &".txt")
            End If
        Next
    Else
        MsgBox "Devi inserire almeno un valore"
   End If

Adesso però devo gestire il file dinamico "costruito" di volta in volta aV(k0)&".txt" e ciclarlo per ogni analisi... Qualche suggerimento? :rolleyes:

Thanks! :)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 16 gennaio 2025
    Bari
    47
    33
    54
    51
    58
    Cagliari
    58
    88
    03
    30
    65
    Firenze
    76
    56
    16
    73
    29
    Genova
    78
    58
    71
    18
    26
    Milano
    09
    74
    15
    26
    57
    Napoli
    75
    81
    35
    59
    17
    Palermo
    17
    39
    46
    54
    08
    Roma
    28
    75
    76
    02
    23
    Torino
    24
    36
    80
    87
    89
    Venezia
    86
    70
    37
    23
    45
    Nazionale
    09
    65
    30
    06
    07
    Estrazione Simbolotto
    Bari
    21
    43
    01
    02
    19
Indietro
Alto