Into this example, we create a file on IFS, and we write data into: ASfCrée, ASfEcritLigne and ASfFerme.
After we read the file: ASfOuvre, ASfLitLigne and 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 = "Write into file on IFS"
nBCarEcritsLigne = ASfEcritLigne(nIdOuverture, Tmp)
Info("Number of characters written = " + nBCarEcritsLigne)
SI PAS ASfFerme(nIdOuverture) ALORS
Info(ErreurInfo())
FIN
///// Read file on 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