Un aiuto per le file txt

[avio]

ciao a tutti

se qualche esperto mi fa un esempio come scrivere e leggere delle file in formato txt

ho provato ma mi dice che manca le date o file non trovato

quello che vorrei scrivere + o - è

1;2;3;4
5;6;7;8
ecc

senza data e senza numerazione si con 4 numeri o 2 o 3 o 5 ecc

grazie per le risposte

 

[avio]

ciao joe

Grazie per l'aiuto

ho messo il percosso cosi sFile = "C:\Utenti\ANGELO\Desktop\pronostici.txt" ( per la scrittura)

ma non lo trova ho messo solo Desktop naeche questo non lo trova

lui lo salva sul pc ---- faccio la riceca sul C ma non lo trova

 

[avio]

ciao

sFile = ScegliFile("C:\ANGELO\Desktop\.prova2\txt")

cosi funziona

Grazie di tutto joe

 

[avio]

Ciao,

dovrebbe funzionare senza problemi. Però....

Puoi provare ad inserire una chiavetta USB e poi

provare ad inserire al posto del disco disco c:

la lettera corrispondente al drive di questa chiavetta.

Se ci sono pochi file o è appena formattata è facile

trovare il file che si è creato.

ciao joe

con la chiavetta tutto ok --- senza modifiche con quello che hai postato solo I al posto di C

un'altra spiegazione come posso controllare aRighe per leggere tutti i numeri e da controllarli numero per numero e riga per riga ?

grazie

 

[avio]

ciao e grazie

domani provo a controllare con il mio txt

 

[avio]

Ciao joe

la mia ricerca è trovare 2 o 3 o 4 o 5 numeri su 2 ruote per la ricerca dell'ambata(per adesso)

ho trovato delle combinazioni numeriche facendo una ricerca da 4000 a 9400 e trovo +o - 40 situazioni con il 98% + o - per l'ambata

es: combinazione 1,2,3. ambata 26 .... scrivo sul foglio txt 1.2.3.26 seconda combinazione 1.2.4.48 ecc

sicuramente sono + di 100 le combinazioni , io ho bisogno di richiamare tutte le combinazioni una la volta e assegnare ad una variabile i vari

numeri --- g(1)=1:g(2)=2:g(3)=3:g(4)=26

e poi controllare da 9401 in poi se sono presenti e cosi li controllo in automatico senza stare a cercarle manualmente sulle estrazioni future

spero di essermi spiegato bene

 

[avio]

Ciao

a me serve solo il tuo script già fatto sopra che assegna la prima riga i numeri presenti sulla prima riga
i numeri --- g(1)=1:g(2)=2:g(3)=3:g(4)=26 e poi passare alla seconda ecc

 

[avio]

Appunto!

Ciao

Non si può fare ?

 

[avio]

ciao

cosi funziona

Sub Main
Dim n(4)
Dim sFile
Dim sChr
sChr = ";"
sFile = ScegliFile("i:\.txt") ' Percorso FileTesto
Call ApriBaseDatiFT(sFile,4,sChr,90)
Ini = 1
fine = EstrazioniArchivioFT
For s = Ini To fine
For p = 1 To 4
n(p) = EstrattoFT(s,p)
Next
Next
End Sub

sul foglio txt .... 0;00/00/0000;1;2;3;26

 

[avio]

Ciao joe

quello che chiedevo era un aiuto per capire come scrivere su un foglio txt (questo meno importante) e leggere dal foglio txt

guardando gli script del MillionDay che controllano anche gli estratti ,facevo delle prove ma mi chiedeva sempre la data o altro e quindi non

ci riuscivo

oggi ho modificato un txt del MillionDay con i miei numeri ho visto che li leggeva e non mi dava errore come vedi gli 0 sono a sostituzione

dei numeri crescenti e dalla data

 

[joe]

Ok, non c'è problema.

Ho scritto quello che ho scritto ... per quello che hai scritto.

Altro è altro.

 

[joe]

... Appunto!

 

[avio]

ciao

messe solo 64 combinazioni

Range : 4460
Casi esaminati : 1.009
Casi vincenti : 967
Percentuale pos. : 95,84 %
Pronostici totali : 1.438
Pronostici vinc. : 1.327
Percentuale pos. : 92,28 %
Giocate terminate : 1.437
Bollette giocate : 13.982
Bollette vincenti : 1.375
Attesa media : 4
Spesa : 13.982,00 €
Vincita : 14.517,39 €
Guadagno : 535,39 €

come ambata per 2 ruote per 10 estrazioni non è male