Discussion :

[flav66]

Bonjour à tous

voila je vais poser une question mais je ne sais meme pas si cela est possible, j'aimerai pouvoir faire un programme qui permet de recuperer des caracteres dans un fichier text...est ce possible et si oui comment m'y prendre...

je comptai mettre un textbox afin de rentrer le nom du fichier text et puis un autre textbox afin de recuperer les caracteres demandés...

quelqu'un aurait il un plan???car je ne sais pas par ou commencer...

merci

[AlainTech]

Dans cette discussion, tu as appris à écrire dans un fichier.

Un petit F1 sur Open devrait t'apprendre à lire dans un fichier.
Fais un peu de recherches avant de poster, stp.

[flav66]

Si je pose la question sur ce forum c'est que je ne sais pas le faire...et que je ne sais pas non plus ou chercher et par ou commencer... il serait plus rapide de le faire par moi meme si je le savais que d'attendre une réponse...
Si je poste ce n'est qu'en dernier recours...
Et je ne vois pas en quoi l'option open pourra mettre utile...je sais ouvrir un fichier text certes mais je ne sais pas comment en récuperer des caractères...
Par exemple si je veux récuperer les 3 premiers caracteres de la premiere ligne du document toto.doc je ne sais pas le faire...

voila
merci de vos futures réponses...

[sovo]

je ne sais pas non plus ou chercher et par ou commencer

comme te la dit alain, faire une recherche dans l'aide en ligne est deja un pas. Ensuite tu peux faire une recherche sur le forum, il y a plein de sujet qui ont ete traite abordant ce theme.

[avigeilpro]

La fonction Open te permet de lire ou d'ecrire dans un fichier quelqu'il soit

Petit coup de main si tu l'ouvre en mode Binary :
- put : ecrire
- get : lire

[AlainTech]

Et je ne vois pas en quoi l'option open pourra mettre utile...

As-tu, au moins, lu l'aide sur Open?

Comme je m'attends à une réponse du genre "Je n'ai pas MSDN", tu as 2 possibilités:

1. Les références VB6 sont disponibles sur le site MSDN de Microsoft.
2. L'aide en ligne de Excel peut, souvent, dépanner pour la plupart des syntaxes.

Pour ton info, Open n'est pas une option mais une instruction.
La programmation demande de la rigueur. L'à peu près ne mène pas bien loin.

[tigrou2405]

Pour les opérations sur les fichiers VB te permet d'utilise le FSO (FILE SYSTEM OBJECT) mais il faut ajout une référence à scripting runtime dans ton projet.

Le FSO permet de faire plein de trucs (test d'existance du fichier, copie, etc...) et le plus important pour toi : une lecture du contenu de ton fichier via le textStream.

Le code qui suit est une fonction qui te permet de lire le contenu d'un fichier texte via la méthode readAll (lecture globale) mais tu pourras facilement la modifier pour lire une ligne (méthode readLine).

Note : pour connaitre toutes les fonctions du FSO, sers-toi de l'explorateur d'objet de vb [Clic droit --> explorateur d'objet.]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Function donneToutTexte(monFic as string) As String
    Dim FSO As New FileSystemObject
    Dim fic As File
    Dim TS As TextStream
    Dim retour As String
    '
    'pointe l'objet fichier vers le fichier à lire ---
    Set fic = FSO.GetFile(monFic)
    'ouverture du fichier pour sa lecture -------
    Set TS = fic.OpenAsTextStream()
    retour = TS.ReadAll        'lecture globale   
    TS.Close
    'la fonction renvoie le texte contenu dans le fichier
    donneTexte = retour
End Function

ben Maintenant quand tu veux lire le texte d'un fichier tu appelle la fonction comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
debug.print donneToutTexte(app.path & "\monTexte.txt")

Pour le reste de ta demande je comprend pas ce que tu veux mais si tuveux couper dans tes chaines les fonctions suivantes sont utiles :
* mid
* left
* right
--> debug.print left(donneToutTexte(app.path & "\monTexte.txt"),8)
t'afficheras les 8 premiers caratères de ton texte

[flav66]

merci bcp tigrou2405, ca c'est que j'apelle une réponse complete...


merci encore

flav66