Coding - Exemples sur les fichiers

Rebol 
  [ 
  Sujet: "Utilisation des fichiers"
  Auteur: "RebolZone"
  Version: 1.0.0
  Commentaires: "utilisation des fonctions Read, size?, exists? "
  ]
;Déclaration d'une variable de type fichier : 
;utilisation du caractère %
fichier: %"client.txt"

;lecture du contenu total du fichier : notez la facilité !!
donnees: read fichier

;affichage du contenu total
print donnees

;Lecture ligne à ligne d'un fichier
lignes: read/lines fichier

ctr: 0
;Boucle sur les lignes
foreach ligne lignes
[
	ctr: ctr + 1
	print ligne 
	
]

;Affichage du nombre de lignes lues
print join "Nombre de lignes lues : " to-string(ctr)

;Affichage de la taille du fichier
print join "Taille du fichier (en octet) : " size? fichier

;Affichage de la date de modification
print join "Date de modif du fichier : " modified? fichier

;Un autre fichier, existe-t-il ?
fichier2: %/C/test/rebol/client2002.dat 
	;(Notez le C: Windows standardisé en /c/test ...)

either (exists? fichier2)
[
	print join fichier2 " existe !"
]
[
	print join fichier2 " n'existe pas !!!"
]

;Attente et fin de programme
input