Dans cet exemple, on utilise les fonctions de l'IFS pour créer un fichier sur l'IFS, et écrire dedans: ASfCrée, ASfEcritLigne et ASfFerme.
Ensuite, on relit le fichier: ASfOuvre, ASfLitLigne et ASfFerme.
nIdOuverture est un entier
nBCarEcritsLigne est un entier
Tmp est une chaîne UNICODE
HOuvreConnexion(MaConnexionpower8)
nIdOuverture = ASfCrée("/tmp/test_IFS4.txt",ASfoCréation+ASfoTronque+ASfoEcriture+ASfoDroitsU_RW+ASfoDroitsG_RW+ASfoUnicode)
IF nIdOuverture = -1 ALORS
Info(ErreurInfo())
RETOUR
FIN
Tmp = "Ecriture dans un fichier sur l'IFS"
nBCarEcritsLigne = ASfEcritLigne(nIdOuverture, Tmp)
Info("Nombre de caractères écrits = " + nBCarEcritsLigne)
SI PAS ASfFerme(nIdOuverture) ALORS
Info(ErreurInfo())
FIN
///// Relecture fichier IFS
nIdOuverture = ASfOuvre("/tmp/test_IFS4.txt",ASfoUnicode)
IF nIdOuverture = -1 ALORS
Info(ErreurInfo())
RETOUR
FIN
sChaineLue est une chaîne UNICODE
sChaineLue = ASfLitLigne(nIdOuverture)
Info(sChaineLue)
SI PAS ASfFerme(nIdOuverture) ALORS
Info(ErreurInfo())
FIN