Explorer un fichier texte

Signaler
Messages postés
37
Date d'inscription
jeudi 17 octobre 2002
Statut
Membre
Dernière intervention
27 octobre 2002
-
Messages postés
10
Date d'inscription
mardi 15 novembre 2005
Statut
Membre
Dernière intervention
1 février 2007
-
Salut,

encore moi, ben oui j'ai pas l'aide voir mon autre post.

Je voudrais ouvrir un fichier texte pour y manipuler le texte dans mon appli VB.

Quels sont les functions de bases pour l'ouvrir ?

Merci

Yann ;)

7 réponses

Messages postés
340
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
14 février 2005

Pour ouvrir le fichier texte et le mettre dans une variable de type string, il faut faire ça :

dim canal as integer, texte as string
canal = freefile
Open 'file' for input as canal
texte = input$(lof(canal))
close canal

Voila, le string texte contient ce qu'il y avait dans le fichier.

BRICOMIX :-p
0
Messages postés
37
Date d'inscription
jeudi 17 octobre 2002
Statut
Membre
Dernière intervention
27 octobre 2002

je ne vois pas ma suite, pas grave je repost

donc je disais ke se ne suis pas bien doué la preuve.

Dim canal As Integer
Dim tex As String
canal = FreeFile
Open "d:\temp\t.txt" For Input As canal
tex = Input$(LOF (canal))
là j'ai une erreur comme koi il manque un séparateur de liste
tex = Input$(LOF, (canal))
là c'est argument non facultatif en parlant de lof.

alors ? kes se ke j'ai fait comme conn......

et LOF tant qu'on y est c koi ?

et ce serrat tout pour l'instant :p

Yann

Merci
0
Messages postés
37
Date d'inscription
jeudi 17 octobre 2002
Statut
Membre
Dernière intervention
27 octobre 2002

je ne vois pas ma suite, pas grave je repost

donc je disais ke se ne suis pas bien doué la preuve.

Dim canal As Integer
Dim tex As String
canal = FreeFile
Open "d:\temp\t.txt" For Input As canal
tex = Input$(LOF (canal))
là j'ai une erreur comme koi il manque un séparateur de liste
tex = Input$(LOF, (canal))
là c'est argument non facultatif en parlant de lof.

alors ? kes se ke j'ai fait comme conn......

et LOF tant qu'on y est c koi ?

et ce serrat tout pour l'instant :p

Yann

Merci
0
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
Dim canal As Integer
Dim tex As String
canal = FreeFile
Open "d:\temp\t.txt" For Input As #canal
tex = Input(LOF(canal), #canal)
LOF Length Of File Longueur du Fichier (en octets)
0
Messages postés
37
Date d'inscription
jeudi 17 octobre 2002
Statut
Membre
Dernière intervention
27 octobre 2002

merci merci merci

vous êtes trop fort :p
0
Messages postés
340
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
14 février 2005

Ouai c'est ça rene38, j'avais oublié le canal !!!

BRICOMIX :-p
0
Messages postés
10
Date d'inscription
mardi 15 novembre 2005
Statut
Membre
Dernière intervention
1 février 2007

slt, je cherche une reponse similaire, mais pour du vc.net, et non du vb.net, certain diront que c'est pareil...malheuresement je ne suis pas sur...si quelqu'un pouvait m'aider please...
0