Salvo50 o ALTRI SCRIPTER

[trivellatomariotretre33]

BUONGIORNO AVREI BISOGNO DI UNO SCRIPT CHE MI SCRIVA IN TX ARCHIVIO COME IN ALLEGATO GRAZIE

sab23.12.201785032580148170504203632446718363162806473150144054148450162921081943817604446887010573820707483006578009520716
mer27.12.201717854976585410638972864041760231694035625208735513881422583528903331207673322618068976052542490183297666242616
gio28.12.201752817971443361636544497210030140300678765508868714214733175803603559432415766707352490232016877340215323505178
sab30.12.201775848740551733187408414257633439112901318329280685625445435158500708813622355038716605180463543845834919370178
mar02.01.201841216008545836563510140749433483737759502942765987451041161302761006124575183516328417376806563784011165203189

ALLEGO FOTO E TX.

 

[salvo50]

Ciao a Tutti.

Mi dispiace Trivellato, ma non è script per me.

 

[trivellatomariotretre33]

Grazie lo stesso Salvo.
Spero che mi aiuti in questo script
Qualcuno che lo sappia realizzare.

 

[joe]

Ciao Trivellato,

Buona giornata a tutte/i.

Mi sembra di averti già scritto un programma simile o proprio questo.

Comunque sia ...prova così:

Option Explicit
'Arc_X_Trivellato / Script per Spaziometria By Joe
Sub Main
   Dim Ini,Fin,Es,R,P,Riga
   Ini = EstrazioniArchivio-156
   Fin = EstrazioniArchivio
   For Es = Ini To Fin
      AvanzamentoElab Ini,Fin,Es
      Riga = Left(DataEstrazione (Es,True),3)
      Riga = Riga & DataEstrazione(Es,,,".")
      For R = 1 To 12
         If R = 11 Then R = 12
         For P = 1 To 5
            Riga = Riga & Format2(Estratto(Es,R,P))
         Next
      Next
      Call Scrivi(Riga)
   Next
End Sub

 

[trivellatomariotretre33]

joe perfetto grazie di cuore sei sempre disponibile e gentile
ti invio una stretta di mano chilometrica .
(si joe me ne avevi fatto uno simile)