Affichage Fichier sous VB6

salut viki
read pour qu'il soit lu; print pour qu'il soit imprimé (en VB..)
Mais s'il s'agit d'exploiter un programme écrit en VB, il te faut les runtime appropriés

Je vois pas trop la syntaxe qu'il faut utiliser pour la fonction "Read"

merci de m'eclaircir

Bonjour,

Quelques précisions :

Open "NomDeFichier" For mode [AccessRestriction] [LockType] As # numéro de fichier
------------------------------------------------------------------------------------------------------------------------------------------
Mode Description

Append Ouvre un fichier séquentiel, en commençant par la fin.
Les données seront inscrites à la fin de celles déjà présentes. Si le fichier n'existe pas, Visual Basic le crée.

Binary Ouvre un fichier en accès binaire.

Input Ouvre un fichier séquentiel en lecture, en commençant par le début.
Les données sont lues dans l'ordre selon lequel elles ont été envoyées au fichier.
Si le fichier n'existe pas, Visual Basic affiche un message d'erreur à l'exécution.

Output Ouvre un fichier séquentiel en écriture, en commençant par le début.
Si le fichier n'existe pas, Visual Basic le crée. S'il existe, il est écrasé (les anciennes données seront écrasées).

Random Ouvre un fichier pour lecture et écriture aléatoire.
Dans ce mode, les données sont lues et écrites dans n'importe quel ordre.
------------------------------------------------------------------------------------------------------------------------------------------
Les restrictions d'accès :
Cet argument optionnel (AccessRestriction) permet de restreindre l'exécution de l'instruction
Open aux modes d'accès Read (lecture), Write (écriture) ou Read Write (lecture-écriture).
Cet argument est surtout appliqué aux fichiers qui circulent sur un réseau. Dans l'accès en
lecture (Read), on peut seulement lire le fichier mais pas le modifier. L'accès en écriture
(Write) permet de modifier le fichier et l'accès en lecture-écriture (Read Write) permet de faire
les deux. Généralement, les fichiers qui sont appelés à circuler sur un réseau ont déjà chacun
leurs droits d'accès. C'est l'administrateur de réseau qui les accorde. C'est pour cette raison
que l'argument (AccessRestriction) n'est pas obligatoire.

Le verrouillage des fichiers :
L'autre argument optionnel, LockType, spécifie les opérations que d'autres processus peuvent
effectuer sur le fichier. Là encore, cet argument est surtout utilisé dans les applications réseau.
Il permet de restreindre l'accès au fichier à un seul utilisateur à la fois. LockType peut prendre
quatre valeurs: Shared, Lock Read, Lock Write et Lock Read Write. La valeur Shared permet
à tous les utilisateurs d'accéder simultanément au fichier. Lock Read verrouille le fichier, en
limitant la lecture à un seul utilisateur. Lock Write fait la même chose pour l'écriture.
Lock Read Write verrouille le fichier en interdisant à tous les autres utilisateurs de le lire ou d'y écrire.


Lupin ~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~

Merci bien de ces precision mais :
Open "C:\test1.doc" For Input Read Shared As #1
me donne coe erreur "Attendu: As "
et quand je fais :
Open "C:\test1.doc" For Input As #1 Read Shared
il me fait coe erreur :"Erreur de syntaxe"

Je sais plus!!

Merci bien de m'eclaircir mais lorque je le fais j'obtiens coe message d'erreur:

Pour :

Open "C:\test1.doc" For Input Read Shared  As #1

Le message d'erreur est : Attendu: As;

Et quand je fais :

 Open "C:\test1.doc" For Input As #1 Read Shared

Le message d'erreur est : Erreur de syntaxe;

Voila ce qui me semble bizarre.

re:

2 points :

1.) Premier point

Il y a erreur de syntaxe sur la ligne :

 ' Open "C:\test1.doc" For Input Read Shared  As #1

Référence =>> Message #3
Le verrouillage des fichiers :
L'autre argument optionnel, LockType, spécifie les opérations que d'autres processus peuvent effectuer sur le fichier. Là encore, cet argument est surtout utilisé dans les applications réseau. Il permet de restreindre l'accès au fichier à un seul utilisateur à la fois. LockType peut prendre quatre valeurs: Shared, Lock Read, Lock Write et Lock Read Write. La valeur Shared permet à tous les utilisateurs d'accéder simultanément au fichier. Lock Read verrouille le fichier, en limitant la lecture à un seul utilisateur. Lock Write fait la même chose pour l'écriture. Lock Read Write verrouille le fichier en interdisant à tous les autres utilisateurs de le lire ou d'y écrire.

Les choix possibles sont :

 Open "C:\test1.doc" For Input Shared  As #1
 Open "C:\test1.doc" For Input Lock Read  As #1
 Open "C:\test1.doc" For Input Lock Write  As #1
 Open "C:\test1.doc" For Input Lock Read Write  As #1

2.) Deuxième point

Référence => Message #5

Il est préférable d'utiliser une variable comme numéro de fichier.

Exemple:

Private Sub cmdLire_Click()
    
    Dim Valeur As Variant
    Dim nomFichier As String
    Dim numFic As Integer

    numFic = FreeFile
    nomFichier = "C:\test1.doc"

    ' Open "C:\test1.doc" For Input Read Shared  As #1

    Open nomFichier For Input Shared As #numFic

    Do While Not EOF(numFic)
        Input #numFic, Valeur
    Loop

    Close #numFic

End Sub

Est-ce plus clair ?

Lupin
~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~

Merci bien ,mais j'obtiens rien en affichage.
En fait ce que je voulais c'est pas afficher le contenu d'un fichier mais l'afficher lui m^me et voir son contenu.

Sinon votre code marche bien mais en specifiant une zone de texte dans laquelle on doit visualiser le contenu du fichier.

Voici votre code auquel j'ai ajouté 1 ligne:

Dim Valeur As Variant
    Dim nomFichier As String
    Dim numFic As Integer
    

    numFic = FreeFile
    nomFichier = "C:\test1.doc"

    Open nomFichier For Input Shared As #numFic

    Do While Not EOF(numFic)
        Input #numFic, Valeur
        Text1.Text = Text1.Text & vbCrLf & Valeur
    Loop

    Close #numFic

S'il y avait un moyen d'afficher directement le fichier .doc ,tenez moi au courant

Merci.

Rebonjour,

En fait je n'ai jamais eu un tel besoin, et de mémoire je sais plus,
je me souviens d'avoir implanter une visionneuse d'image, mais
je ne sais plus si j'ai eu de la doc a ce sujet. Si je trouve alors
je te laisse savoir.

Si j'étais soumis à ce besoin, je coderais en VB et au moment
de visualiser des docs, je passerais la main au VBA sous word.

Lupin
~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~