[AIDE] Ouverture puis récuparation de donnés d'un fichier texte
med93100
Messages postés
53
Date d'inscription
lundi 24 décembre 2007
Statut
Membre
Dernière intervention
1 juin 2011
-
5 janv. 2009 à 08:28
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 5 janv. 2009 à 13:44
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 5 janv. 2009 à 13:44
A voir également:
- [AIDE] Ouverture puis récuparation de donnés d'un fichier texte
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Échec de l'ouverture de session de l'utilisateur ✓ - Forum SQL
- Fichier json - Conseils pratiques -Javascript
- Échec de l'ouverture de session de l'utilisateur'NomPC\UserName'. (.Net SqlClien - Forum SQL
3 réponses
med93100
Messages postés
53
Date d'inscription
lundi 24 décembre 2007
Statut
Membre
Dernière intervention
1 juin 2011
5 janv. 2009 à 08:31
5 janv. 2009 à 08:31
Je n'ai pas été trés clair bon je vous donne un exemple :
J'ai le fichier c:\x.txt.
avec pour contenu xxxx
Je veux que mon programme puisse ouvrir x.txt puis récupérer son conteue
J'ai le fichier c:\x.txt.
avec pour contenu xxxx
Je veux que mon programme puisse ouvrir x.txt puis récupérer son conteue
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
5 janv. 2009 à 13:40
5 janv. 2009 à 13:40
salut,
<hr />
' RÉCUPÉRER LE TEXTE CONTENU DANS UN FICHIER
' http://www.codyx.org/snippet_recuperer-texte-contenu-dans-fichier_32.aspx#100
' Posté par [ 1 Nix ] le 23/03/2006
<hr />
Public
Shared
Function
OuvrirFichierTexte(
ByVal
Chemin
As
String
)
As
String
Try
' Vous pouvez changer/retirer l'encodage
Dim
FichierStreamRead
As
New
System.IO.StreamReader(Chemin, System.Text.Encoding.GetEncoding(
"iso-8859-1"
))
Dim
ContenuFichier
As
String
=
FichierStreamRead.ReadToEnd()
FichierStreamRead.Close()
FichierStreamRead = Nothing
Return
ContenuFichier
Catch
ex
As
Exception
Return
""
End
Try
End
Function
'----------------------------------------------------------------
'Remarques :
'L'encodage est optionnel, mais généralement par défaut l'UTF-8
est par défaut et cela peut poser des problèmes
++
<hr size ="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
<hr />
' RÉCUPÉRER LE TEXTE CONTENU DANS UN FICHIER
' http://www.codyx.org/snippet_recuperer-texte-contenu-dans-fichier_32.aspx#100
' Posté par [ 1 Nix ] le 23/03/2006
<hr />
Public
Shared
Function
OuvrirFichierTexte(
ByVal
Chemin
As
String
)
As
String
Try
' Vous pouvez changer/retirer l'encodage
Dim
FichierStreamRead
As
New
System.IO.StreamReader(Chemin, System.Text.Encoding.GetEncoding(
"iso-8859-1"
))
Dim
ContenuFichier
As
String
=
FichierStreamRead.ReadToEnd()
FichierStreamRead.Close()
FichierStreamRead = Nothing
Return
ContenuFichier
Catch
ex
As
Exception
Return
""
End
Try
End
Function
'----------------------------------------------------------------
'Remarques :
'L'encodage est optionnel, mais généralement par défaut l'UTF-8
est par défaut et cela peut poser des problèmes
++
<hr size ="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
5 janv. 2009 à 13:44
5 janv. 2009 à 13:44
ou celui-ci, peut-être plus approprié....
<hr />
' RÉCUPÉRER LE TEXTE CONTENU DANS UN FICHIER
' http://www.codyx.org/snippet_recuperer-texte-contenu-dans-fichier_32.aspx#315
' Posté par [ FREMYCOMPANY ] le 12/04/2006
<hr />
'Utilisation de My; A integrer dans le corps de la methode
appelante
Dim FileContent as String = My
.Computer.FileSystem.ReadAllText(FileName,
Encoding)
'----------------------------------------------------------------
'Remarques :
'Encoding est optional.
<hr />
' RÉCUPÉRER LE TEXTE CONTENU DANS UN FICHIER
' http://www.codyx.org/snippet_recuperer-texte-contenu-dans-fichier_32.aspx#315
' Posté par [ FREMYCOMPANY ] le 12/04/2006
<hr />
'Utilisation de My; A integrer dans le corps de la methode
appelante
Dim FileContent as String = My
.Computer.FileSystem.ReadAllText(FileName,
Encoding)
'----------------------------------------------------------------
'Remarques :
'Encoding est optional.