AIUTO MIKE58

[trivellatomariotretre33]

SCUSA MIKE58 NEL TUO ULTIMO SCRIPT SONO RIUSCITO AD OTTENERE QUELLO CHE MI SERVIVA
MA ADESSO NON SO COME FAR SCRIVERE LO SCRIPT COSI COME SEGUE


12MAR196082245578297444275106616270036732610425728 48758208369122370135630526574825081615662074723615 35664888921MAR196020462354630714683279282485304703 72546920575017241169776657065038522213790131658660 03738825215835687826MAR196031127247892119354330797 01254810836417849133087577966878660174258626030633 842028403778202577612890836

E COSI VIA FINO ALL'ULTIMA ESTRAZIONE
COME VEDI E TUTTO UNITO E POI LA DATA SCRITTA COSI 12MAR1960 E POI SEGUIRE CON ESTRAZIONE TUTTO UNITO FINO ALL'ULTIMA ESTRAZ


LA BOZZA DELLO SCRIPT ECCOLA CHE HO MA NON SO COME FARLA VENIRE COME MOSTRATOTI SOPRA TUTTO UNITO DATA E NUMERI

Sub Main()
'script By Black
ini = 4666 '8 Marzo 1997
fin = EstrazioneFin
For es = ini To fin
Call AvanzamentoElab(ini,fin,es)
r1 = 1
r2 = 2
r3 = 3
r4 = 4
r5 = 5
r6 = 6
r7 = 7
r8 = 8
r9 = 9
r10 = 10
Scrivi DataEstrazione(es,,,"-") & StringaEstratti(es,r1,"") & StringaEstratti(es,r2,"") & StringaEstratti(es,r3,"") & StringaEstratti(es,r4,"") & StringaEstratti(es,r5,"") & StringaEstratti(es,r6,"") & StringaEstratti(es,r7,"") & StringaEstratti(es,r8,"") & StringaEstratti(es,r9,"") & StringaEstratti(es,r10,"")
If ScriptInterrotto Then Exit For
Next
End Sub

 

[Mike58]

non so se è giusto cosi, (non ho tutte le soluzioni) ho dovuto dividere la data in gg mm ann.
lascio volutamente lo spazio per farti vedere (poi saprai come toglierlo).

Sub Main()
 'script By Black
 ini = 9159'4666 '8 Marzo 1997
 fin = EstrazioneFin
 For es = ini To fin
 Call AvanzamentoElab(ini,fin,es)
 r1 = 1
 r2 = 2
 r3 = 3
 r4 = 4
 r5 = 5
 r6 = 6
 r7 = 7
 r8 = 8
 r9 = 9
 r10 = 10
gg = giorno(es)
ms = Mese(es)
an = Anno(es)
 Scrivi Format2(gg) & Left (MeseNome(ms),3) & an &" " &  StringaEstratti(es,r1,"") & StringaEstratti(es,r2,"") & StringaEstratti(es,r3,"") & StringaEstratti(es,r4,"") & StringaEstratti(es,r5,"") & StringaEstratti(es,r6,"") & StringaEstratti(es,r7,"") & StringaEstratti(es,r8,"") & StringaEstratti(es,r9,"") & StringaEstratti(es,r10,"")
 If ScriptInterrotto Then Exit For
 Next
 End Sub

 

[trivellatomariotretre33]

SI MIKE58 E GIUSTO MA DEVE ESSERE TUTTO UNITO DI CONTINUO

 

[Mike58]

Ciao Trivellato,oggi non ho tempo.
Togli lo spazio dopo la data (basta elimininare le " ") e se cosi ancora non è giusto, metti alla fine della righa scrivi il ,0,0 ed il tutto scrive su un unica riga.

Provaci

 

[trivellatomariotretre33]

GRAZIE MIKE58 CI SONO RIUSCITO CON LA TUA LEZIONE SEI GRANDE
UNA STRETTA DI MANO CHILOMETRICA E GRAZIE DI CUORE .

 

[Joe91]

Ciao ...

potresti cortesemente controllare se è giusto ... grazie.

Sub Main()
	'Archivio x ?
	ini = 4654 
	fin = 4663
	For es = ini To fin
		Call AvanzamentoElab(ini,fin,es)
		gg = giorno(es)
		ms = Mese(es)
		an = Anno(es)
		Scrivi Format2(gg) & UCase(Left(MeseNome(ms),3)) & an,0,0
		For R = 1 To 10
			Scrivi StringaEstratti(es,r,""),0,0
		Next
	Next
	Scrivi
End Sub

 

[trivellatomariotretre33]

ciao Joe91 lo script che ai fatto e giusto va bene
avevo risolto con la guida di mike58.
poiche ti sei fatto avanti vedi se riesci a farmi questo invece della data ESTRAZIONE INIZIO SEMPRE TUTTO UNITO



00016643140313637172822679754421591506843866630543 39768140081485078736794785448146284871504041753604 62335666717380
00022232066402845910227259558963782819242304528755 54268255264168358317283758776371783275647117781473 36862237905160



COME VEDI INIZIA COSI
0001SEGUENDO NUMERI ESTRAZIONI COME SOPRA .

 

[Joe91]

Ciao trivellato non dovrebbe essere un problema,

Ma da quello che vedo oltre la numerazione seriale ...

è piuttosto differente.

* Inizia il 22 Aprile 2010

* Comprende anche la Nazionale

* Ogni estrazione è indipendente (occupa una linea)

Sono giuste queste 3 cose?

Facci sapere.

 

[Joe91]

Ciao.

Ho compattato tutto togliendo gli spazi...

Questo script dovrebbe riprodurre la stessa parte di archivio

con la stessa numerazione delle estrazioni che hai fornito con il file di testo.

Option Explicit
Sub Main()
Dim Ini,Fin,Es
Dim K,R
'Archivio X 2 ?
Ini = 7862 'x Allineamento degli Archivi
Fin = 8713
For Es = Ini To Fin
Call AvanzamentoElab(Ini,Fin,Es)
K = K + 1
Scrivi FormattaStringa(K,"0000"),0,0
For R = 1 To 12 : If R = 11 Then R = 12
Scrivi StringaEstratti(Es,R,""),0,0
Next
Scrivi
Next
End Sub

 

[trivellatomariotretre33]

grazie di cuore Joe91 e buona domenica
una stretta di mano chilometrica a te e Mike58
siete favolosi e grazie ancora

 

[trivellatomariotretre33]

AI RAGIONE JOE91 QUA SI VEDE LO SPAZIO MA NEL MIO ORIGINALE E SENZA SPAZIO

 

[trivellatomariotretre33]

GRAZIE JOE91 A TE E MIKE58 SIETE STATI BRAVI EBTRAMBI UNA STRETTA DI MANO