Discussion :

[lesecretdubbonheur]

Bonjour,
mon cas est la suivante:
j'ai un fichier texte rempli, quand j'essaie de lire au dessus ça marche très bien sans aucun problèmes, mais dés que j'ouvre un boite de dialogue :openfiledialogue et je sélectionne un fichier pour travailler quelque part, et je reviens la ou je li mon fichier texte je constate que je ne peux pas lire comme s'il est vide mais en fait il n'est pas vide , ça me demande de redémarrer mon application pour que je puisse relire mon fichier texte normalement.
merci d'avance

[tatone]

Bonjour,

Que veux tu faire ? Je n'ai pas compris...
Lire un fichier texte que tu choisis depuis une OpenFileDialog ?

Tatone

[lesecretdubbonheur]

ça je le fé mé le probleme, c'est que quand je quitte le openfiledialog, et je passe pour ouvrir une base de donnée que ces parametre existesnt dans un fichier texte, jnariv pa a lire ces parametre comme si le fichier texte est vide, dc le openfiledialog c pa notre affaire, mé il ne fé que causé a ne pa permettre de lire mon ficher texte

[tatone]

Quel code utilises tu pour lancer ton OpenFileDialog ?
Et de ce fait, récupérer le contenu de ton fichier ?

Quel est le format de ton fichier ?

[tatone]

Ce code permet de lire un fichier txt, en l'ouvrant via OpenFileDialog localisée par défaut sur le bureau.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
        Dim res As DialogResult
        OpenFileDialog1.DefaultExt = "txt"
        OpenFileDialog1.Filter = "TXT files (*.txt)|*.txt"
        Dim key As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders")
        OpenFileDialog1.InitialDirectory = key.GetValue("Desktop")
        res = OpenFileDialog1.ShowDialog()
        If res = Windows.Forms.DialogResult.OK Then
                Dim fs As System.IO.FileStream
                fs = OpenFileDialog1.OpenFile
                Dim sR As New System.IO.StreamReader(fs)
                'Lecture du fichier & traitement 
        End if

En espérant que c'est ce que tu désires faire...
Car tu n'es pas très clair dans tes post.

Tatone

[lesecretdubbonheur]

je vous remercie de vos effort à m'aider.
j'ai trouver la solution, mais ce n'est pas tres clair pour moi la source du traitement qui tourne.
en fait, le probleme etai lors du lancement du openfildialog, quan je le lance c'est comme si il point sur la fi du tout les fichier texte, comme ça si je veux lire un fichier texte n'importe ou dans mon application, je commence par la derniere ligne de ce fichier donc comme il me renvoi rien c'est parceq'il a commencezr a lire de la fin.
la solution est la suivante : quand je li a chaq foi un fichier texte j'ai changer la façon de lecture en mettant un "true" qui me permet de lire dés le debu , càd commencer la lecture du fichier texte en haut.
voila un exemple

Try
'lire le fichier texte et importer _ste et _server
Dim s1r As StreamReader
'Dim sw As StreamWriter
Dim sLine As String
Dim douz As Integer = 0

'Try
creer_fichier_si_exist_pas2()

'Ouverture du fichier et Ecriture du contenu
's1r = New StreamReader("AGL.Ste")
'avant je mé ça
' s1r = New StreamReader(Application.StartupPath & "\AGL.Ste")
'aprés c' est rectifier en
s1r = New StreamReader(Application.StartupPath & "\AGL.Ste", True)
'MsgBox(s1r.EndOfStream)
While s1r.EndOfStream = False

Dim lsv As New ListViewItem
sLine = s1r.ReadLine()
lsv.Text = sLine
sLine = s1r.ReadLine()
lsv.SubItems.Add(sLine)
sLine = s1r.ReadLine()
lsv.SubItems.Add(sLine)
ListView_open.Items.Add(lsv)
End While
s1r.Close()

Catch ex As Exception
MsgBox(ex.Message)
End Try

mon procedure c'est mettre l'ensembole des dossier de mon application dans une listview.pour en selectioner apres afin de permettre l'ouverture d'un dossier choisi.
un dossier c'est une base de donnée sql server créer par mon application.
j'ai mis ces explication pour permettre a ceux qui on le meme problemme, atrouver comment ça marche.