Creare elenco Estrazioni su txt

[Xeroxs]

Buongiorno a Tutti Mi hanno chiesto di creare un file txt delle estrazioni ma stampato in un modo particolare

In questo modo :

03042021 15784919120587257139351351012140443362101544736365314186297775401827035110375938231756043738243989155040847338

Dove ho estrapolato solo ultima estrazione,

Mi hanno passato uno script di cui ignoro l'origine per cui se è di qualcuno noto spero non si offenda se ho modificato quanto fatto,
io ho provveduto alla modifica per ottenere il risultato voluto, ma ho un problema devo eliminare uno spazio che non capisco cosa lo crea.


03042021 1578491 lo spazi da eliminare tra il 21 ed il 15 praticamente dopo la data non devono esserci spazi.

Posto lo script

Sub Main
   Dim Ini,Fin,IdEstr,R,P,sEstr,sChr_Num,sChr_Col
   sChr_Num = ""
   sChr_Col = Chr(32)
   Ini = EstrazioneIni
   Fin = EstrazioneFin
   Call ResetTimer
   For IdEstr = Ini To Fin
      Call AvanzamentoElab(Ini,Fin,IdEstr)
       sEstr = Data(IdEstr) & sChr_Col
      For R = 1 To 12
         If R = 11 Then R = 12
         ReDim aEstr(0)
         Call GetArrayNumeriRuota(IdEstr,R,aEstr)
         For P = 1 To 5
            sEstr = sEstr & CStr(Format2(aEstr(P)))
            If P < 5 Then sEstr = sEstr & sChr_Num
         Next
         'sEstr = sEstr & sChr_Col
      Next
      Scrivi sEstr
   Next
End Sub
Function Data(Es)
   Dim D,M
   D = DataEstrazione(Es)
   M = Mese(Es)
   Data = Left(D,2) & Format2(M) & Anno(Es)
End Function

Qualcuno può aiutarmi a capire dove intervenire o al massimo crearne uno senza spazi

data estrazione e subito estrazioni senza spazi

Grazie come sempre

 

[Master]

Ciao
chr(32) crea lo spazio

 

[Mike58]

prova anche il mio script

Sub Main
   Dim sFile,sNumeri
   Ini = EstrazioneFin - 10 ' inizio
   fin = EstrazioneFin ' fine estrazione
   '---------------------------------------
   sFile = GetDirectoryTemp & "Test.txt"
   Call EliminaFile(sFile)
   '---------------------------------------
   ReDim aEstratti(0)
   For es = Ini To fin
      Scrivi DataEstrazione(es,,,""),0,0
      sNumeri = DataEstrazione(es,,,"")
      For r = 1 To 12
         If r = 11 Then r = 12
         Call GetArrayNumeriRuota(es,r,aEstratti)
         Scrivi StringaNumeri(aEstratti,"",1),0,0
         sNumeri = sNumeri & StringaNumeri(aEstratti,"",1)
      Next
      Call ScriviFile(sFile,sNumeri,False,True)
      Scrivi ""
      sNumeri = ""
   Next
   Call CloseFileHandle(sFile)
   Call LanciaFile(sFile)
End Sub

 

[Xeroxs]

Ciao, Master grazie per la dritta
Ciao, Mike58 Grazie per lo Script

Gentilissimi Entrambi

 

[genios]

Come si fa per leggere l' archivio generato ?

Ciao Eugenio

 

[claudio8]

Come si fa per leggere l' archivio generato ?

Ciao Eugenio

sFile = GetDirectoryTemp & "Test.txt"

cerca la directory temp ed apri il file test.txt
il mio percorso è questo: D:\Documents and Settings\claudio\Dati applicazioni\spaziometria\temp

un saluto di passaggio ai partecipanti.