per ottenere i nomi dei campi vuoti in un formato
Moderatore: Moderatori
-
- Messaggi: 9700
- Iscritto il: lunedì 1 dicembre 2003, 1:00
- Località: Roma
- Contatta:
per ottenere i nomi dei campi vuoti in un formato…
… ho modificato un CF del buon daniele (raybaudi):
Empty Fields (start; Layout)
versione ospitata in un campo (che ho chiamato dati ok)
Consenti([
fields =NomeCampi ( Get(NomeFile) ; Layout);
fieldName = CercaeSost ( ValoriinMezzo ( fields ; start ; 1 ) ; "¶" ; "" );
end = ConteggioValore ( fields )
];
Casi (
start = end ; If( fieldName ≠ "Dati ok" ; If( not EVuoto(RicavaCampo(fieldName));"";fieldname);"");
start < end ; If( fieldName ≠ "Dati ok" ; If( not EVuoto(RicavaCampo(fieldName));"";fieldname& ¶ )& EmptyFields ( start+1;Layout );EmptyFields ( start+1 ;Layout ));
""
)
)
versione utilizzabile via script o in un campo non presente nel formato:
Consenti([
fields =NomeCampi ( Get(NomeFile) ; Layout);
fieldName = CercaeSost ( ValoriinMezzo ( fields ; start ; 1 ) ; "¶" ; "" );
end = ConteggioValore ( fields )
];
Casi (
start = end ; If( not EVuoto(RicavaCampo(fieldName));"";fieldname);
start < end ; If( not EVuoto(RicavaCampo(fieldName));"";fieldname& ¶ )& EmptyFields ( start+1;Layout );EmptyFields ( start+1 ;Layout ))
)
enjoy!
.g.
Empty Fields (start; Layout)
versione ospitata in un campo (che ho chiamato dati ok)
Consenti([
fields =NomeCampi ( Get(NomeFile) ; Layout);
fieldName = CercaeSost ( ValoriinMezzo ( fields ; start ; 1 ) ; "¶" ; "" );
end = ConteggioValore ( fields )
];
Casi (
start = end ; If( fieldName ≠ "Dati ok" ; If( not EVuoto(RicavaCampo(fieldName));"";fieldname);"");
start < end ; If( fieldName ≠ "Dati ok" ; If( not EVuoto(RicavaCampo(fieldName));"";fieldname& ¶ )& EmptyFields ( start+1;Layout );EmptyFields ( start+1 ;Layout ));
""
)
)
versione utilizzabile via script o in un campo non presente nel formato:
Consenti([
fields =NomeCampi ( Get(NomeFile) ; Layout);
fieldName = CercaeSost ( ValoriinMezzo ( fields ; start ; 1 ) ; "¶" ; "" );
end = ConteggioValore ( fields )
];
Casi (
start = end ; If( not EVuoto(RicavaCampo(fieldName));"";fieldname);
start < end ; If( not EVuoto(RicavaCampo(fieldName));"";fieldname& ¶ )& EmptyFields ( start+1;Layout );EmptyFields ( start+1 ;Layout ))
)
enjoy!
.g.