Exemple showopen showsave ainci que acces aux fichiers

Télécharger le projet
Commenter

Description

Bonjour,
c'est un petit exemple qui presente pour les debutant ou le egaree le fonctionnemt des fonction
show open, et show save
ainci que les modes d'acces aux fichiers tel
line input, input et l'acces binary
line input et input etant utilisee pour des fonction de lecture de texte escentiellemant ,
l'acces binary est quant a luis plus reserver pour l'enregistremant (copie) de fichier ascii type exe, jpg,gif en utiliant l'instruction OPEN (cas de tranfert de fichier par exemple ;-)

Presentation du code synthetique brute ( en fait un poste qui a bien plus :-):
(le zip contient une version plus apofondie et plus digerst de ce code : decomposition en plusieures etape !)

Source / Exemple : 


'premiere methode (pour tout les fichier mais tout le fichier est en memoire ...

Dim Memoire As String 'TRES important pour le premier cas autremant ca marche pas !

CommonDialog1.ShowOpen
Fichier_In = CommonDialog1.filename
Debug.Print Fichier_In

Open Fichier_In For Binary Access Read As #1
    Memoire = Input(LOF(1), #1)
Close #1

Suite1:

CommonDialog1.ShowSave
Fichier_Out = CommonDialog1.filename
Debug.Print Fichier_Out

If Fichier_Out = Fichier_In Then MsgBox "Merci de metre deux nom de fichier differants !": GoTo Suite1

Open CommonDialog1.filename For Binary As #1
    Put #1, , Memoire
Close #1

'seconde methode (pour les fichier text, le problme en fair c'est qu'il rajoute des caractere de controle qui fait planter les exe, bmp,jpg... seul les texte passe sans prob
MsgBox "Seconde methode"

CommonDialog1.ShowOpen
Fichier_In = CommonDialog1.filename
Debug.Print Fichier_In

CommonDialog1.ShowSave
Fichier_Out = CommonDialog1.filename
    Debug.Print Fichier_Out
If Fichier_Out = Fichier_In Then MsgBox "Merci de metre deux nom de fichier differants !": GoTo Suite2

Open Fichier_In For Input As #1
Open Fichier_Out For Output As #2
Do While Not EOF(1) ' Vérifie si la fin du fichier
    
    Line Input #1, InputData    ' Lit les lignes de
    
    Debug.Print InputData   ' Imprime dans la fenêtre
    'reecri le nouveau fichier
    
    Print #2, InputData

Loop
Close #1    ' Ferme le fichier.
Close #2
Suite2:

Conclusion :


bon developpement ... et quand vous ete bloque n'esitez pas ;-)

TFlorian
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (TFlorian)