Ref_Log <-- Ouvrir document ("agenda.txt")
.
$tel<-- ADRESSE.telephone
Si (Sous chaine($tel;1;2)="06")
- ECRIRE(Ref_Log;"<Numero codeType='0002'")
Sinon
- ECRIRE(Ref_Log;"<Numero codeType='0001'")
Fin de si
ECRIRE(Ref_Log;$tel+"</Numero>"+Caractere(13))
Ref_Log <-- Ouvrir document ("agenda.txt")
$tel<-- ADRESSE.telephone
Si (Sous chaine($tel;1;2)="06")
- ECRIRE(Ref_Log;"<Numero codeType='0002'>"+$tel+"</Numero>"+Caractere(13))
Sinon
- ECRIRE(Ref_Log;"<Numero codeType='0001'>"+$tel+"</Numero>"+Caractere(13))
Fin de si
Ref_Log <-- Ouvrir document ("agenda.txt")
Si (Sous chaine(ADRESSE.telephone;1;2)="06")
- $tel <-- "<Numero codeType='0002'>"+ADRESSE.telephone+"</Numero>"
Sinon
- $tel <-- "<Numero codeType='0001'>"+ADRESSE.telephone+"</Numero>"
Fin de si
ECRIRE(Ref_Log;$tel+Caractere(13))
N.B. : Caractere(13) indique un retour à la ligne. Si vous avez besoin de plus d'infos, n'hesitez pas.