Per Joe Magia o altri scripter moidifica

[trivellato]

ciao mi servirebbe una piccola modifica a questo script che mi scriva come allegato tx


Sub Main()
'script By Black
ini = 7440'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(-(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




grazie anticipatamente

[claudio8]

aggiungi Format2 (Left(-(ms),3))

[joe]

Ciao Trivellato,

cose così, secondo me, dovresti imparare a farle da solo.

Sub Main()
  'Script By Joe
  Dim Ini,Fin,Es,R
  Ini = 7440 : Fin = EstrazioneFin
  For Es = Ini To Fin
    Call AvanzamentoElab(Ini,Fin,Es)
    Scrivi DataEstrazione(Es,,,"-"),0,0
    For R = 1 To 10
      Scrivi StringaEstratti(Es,R,""),0,0
    Next : Scrivi
    If ScriptInterrotto Then Exit For
  Next
End Sub

[trivellato]

GRAZIE Joe mi devo impegnare di piu
una stretta di mano chilometrica ciao.