Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 12 03 09:37:25

ÇA AURAIT éTé COOL SI çA AVAIT éTé VRAI! par Miiitch

ADOBE MAX à MILAN => JOUR -1 par pegase31

SQL SERVER : LE FUTUR DES MOTEURS DE RECHERCHE CHEZ MICROSOFT par christian

TOFINO : LE PLUGIN FLEX POUR VISUAL STUDIO par Nix

FLEX INTéGRé DANS VISUAL STUDIO ! par Nix

RE : DANS UNE FEUILLE FORM, REMPLACER UNE FRAME PAR UNE AUTRE DE TAILLE IDENTIQUE. par 2eio

RE : PROPERTY DANS DLL par candyraton

RE : RéCUPéRER LES DONNéES D'UNE AUTRE FORM par jrivet

RéCUPéRER LES DONNéES D'UNE AUTRE FORM par beet2che

RE : PROBLèME D'ADDITION DE COLONNE par mythiac

+ de logiciels à télécharger

1 302 131 membres
87 nouveaux aujourd'hui
14 554 membres club

Trouver une ressource

Trouvez une ressource parmi 39 077 codes, 1 208 457 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

EXEMPLE SHOWOPEN SHOWSAVE AINCI QUE ACCES AUX FICHIERS

Information sur la source

Catégorie :API Niveau : Débutant Date de création : 27/04/2002 Date de mise à jour : 27/04/2002 17:04:19 Vu / téléchargé: 3 598 / 323

Auteur : TFlorian

Site perso

Ecrire un message privé

Note :

7,50 / 10

Commentaire sur cette source (0)

Ajouter un commentaire et/ou une note

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

'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:

'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: