[Risolto] Salvataggio con nome preimpostato a data

[gabgab]

Salve a tutti, chiedo aiuto:

Ho windows 10 e il mio salvataggio di file è il seguente:

aammgg-hhmm.nomefile.osd (dove aammgg è la data partendo dall'anno a 2 cifre 2 per mese 2 giorno ora e minuti)
per esempio: 210219-1357.prova.odt

E' possibile far comparire in modo automatico la stringa della data, già composta, quando si fa salva con nome? E non il solito "Senza nome.odt" ?
Ringrazio tanto per l'aiuto
Gabriele

[charlie]

Ciao e benvenuto/a sul forum.
Se intanto ti vuoi presentare, farai cosa gradita. Puoi farlo in questa sezione -> viewforum.php?f=16

L’utente che apre un quesito si impegna:

• a seguirlo dando riscontro quanto prima alle risposte ricevute nel giro di qualche giorno;
  - inserire il [Risolto] e la ✔ verde come previsto;
• rispettare le altre regole implicite del forum ( Istruzioni per nuovi arrivati - Manuale di sopravvivenza ).

In caso di inosservanza saremo costretti ad azioni di “richiamo”, sospensione o chiusura del profilo utente.

Buon proseguimento.

[lucky63]

.
Una possibile soluzione alternativa.
Inserire apposita macro nelle macro personali che simuli tue esigenze.
Aggiungere un “Pulsante/Sigla” alla barra strumenti “Standard” di Writer che richiami la macro.

Ad esigenza cliccare su quella nuova voce per attivare la macro.
La macro apre una InputBox ove inserire il solo nome.

quando confermato lo rimodula anteponendovi DataOraGiorno-OreMinuti. come da esigenza rappresentata.
Un avviso finale segnala l'avvenuto salvataggio.

Codice: Seleziona tutto

Sub SalvaComeAAMMGGHHMM
Dim Dummy()
Doc = ThisComponent
Rem Acquisisci il nome file cui aggiungere il suffisso iniziale DATA e ORA nel formato AAMMGG-HHMM.
NomeFile = InputBox ("Inserire il NOME di salvataggio al quale dovrà essere anteposta" & CHR$(10) & "DATA e ORA nel formato AAMMGG-hhmm." , "ATTENZIONE:")
Rem Se quanto acquisito è una stringa nulla allora esci
If NomeFile = "" Then Exit sub

Rem Anno AA
AA = Right(Year(Now()),2) 'Nel caso AA sia <10 verrà rappresentato automaticamente come "0A" 
Rem Mese MM
MM = Month(Now())
If Len(MM) <2 Then
MM = "0" & CStr(MM)
End if
Rem Giorno GG
GG = Day(Now())
If Len(GG) <2 Then
GG = "0" & CStr(GG)
End if
Rem Ore HH
HH = Hour(Now())
If HH = 0 Then
HH = "00"
End If
If Len(HH) <2 Then
HH = "0" & CStr(HH)
End if
Rem Minuti
Minuti = Minute(Now())
If Minuti = 0 Then
Minuti = "00"
End if
If Len(Minuti) <2 Then
Minuti = "0" & CStr(Minuti)
End if
GruppoDataOra = AA & MM & GG & "-" & HH & Minuti & "."
Rem Salvataggio (adeguare percorso in base al proprio sistema operativo)
PercorsoSalvataggio = "file:///home/NomeUtente/Scrivania/" ' esempio linux
'PercorsoSalvataggio = "file:///C:/Percorso/Completo/di/Salvataggio/" 'Esempio Windows (la barra è / come si usa per Linux)
Doc.StoreAsUrl(PercorsoSalvataggio & GruppoDataOra & NomeFile & ".odt" , Dummy() )
Rem Avviso di fine operazione
MsgBox ("Salvataggio eseguito con nome:" & Chr$(10) & GruppoDataOra & NomeFile & ".odt" , 0 , "AVVVISO")
End sub

[lucky63]

.
Correggi l'inserimento del [Risolto].
... hai dimenticato il punto 3 ...

Vedi questo link.
.