Discussion :

[boostaut]

Bonjour,
Dans ce bout de code, je lis un fichier pour extraire des mots pour les mettre dans des variables.
Cela se passe parfaitement mais un peu plus loin, je lis denouveau le même fichier.
Bien évidemment, il me donne une erreur comme quoi un autre processus lit le fichier.
Comment puis-je fermer ce fichier ?
Merci de votre aide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim fso2
fso2 = CreateObject("Scripting.FileSystemObject")
Ftxt2 = fso2.OpenTextFile(chemin2)
        Do While Not Ftxt2.AtEndOfStream
            recup2 = Ftxt2.ReadLine
            Dim Split2 = Split(recup2, "=")
            If Trim(Split2(0)) = "srv" Then srv = Split(Trim(Split2(1)), " ")(0) Else 
            If Trim(Split2(0)) = "usr" Then usr = Split(Trim(Split2(1)), " ")(0) Else 
            If Trim(Split2(0)) = "chemsrv" Then chemsrv = Split(Trim(Split2(1)), " ")(0) Else 
            If Trim(Split2(0)) = "chemkey" Then chemkey = Split(Trim(Split2(1)), " ")(0)
        Loop
'fermer le fichier quand il a fini son opération

[jopopmk]

Salut,

je ne vois qu'une raison pour que tu ne puisses pas ouvrir deux fois le même fichier : tu ne le fermes pas après sa première ouverture.

[DeWaRs]

Hello,

Rajoute

Code :

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

Ftxt2.close

a la fin de ta boucle.

Cordialement

DeWaRs

[Pol63]

en .net on code en .net
fso c'est pour vbscript à ma connaissance
et puis enchainer les else c'est pas super

Code :

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

1
2
3
4
5
6
7
8
9
10
for each ligne in system.io.file.ReadAllLines(" chemin du fichier ") 'ouvre le fichier, lit tout, découpe en ligne et le ferme
  Dim sp = Split(ligne, "=")
  Dim spTrimmé = (From s In sp Select s.Trim) ' on trim tout tout de suite
  select case spTrimmé(0)
     case "srv"
        srv = ...
     case "usr"
         ...
  end select
next

après si c'est tous des strings, et que c'est tous des variables dans ta classe, le select case (ou tous les ifs) peuvent être remplacés par une seule ligne de code qui va chercher la variable du même nom que ce qu'il y avant le =

[boostaut]

DeWaRs, je rajoute Ftxt2.Close mais ça ne le ferme pas. Merci comme même
Pol63, j'avoue mon code n'est pas beau à voir, j'ai tester ta méthode, elle est super et optimise énormement le code. Fso fonctionne aussi avec .net. Merci pour ta réponse
Mais j'ai toujours le problème de la fermeture du fichier..

[Adakhum]

C'est étrange boostaut, car j'ai un programme qui lit un fichier texte tout bête mais qui fonctionne bien, je sais juste que mes données sont lignes après lignes, car je les ai sauvegardées comme ça, ce qui donne pour le load :

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
17
Dim FileLoad As IO.Stream = Nothing
        Dim file As IO.FileInfo = Nothing
        Dim openFileDialogOuvrir As New OpenFileDialog()
 
        openFileDialogOuvrir.InitialDirectory = Fileway
        openFileDialogOuvrir.Filter = "XXX files (*.xxx)|*.xxx|All files (*.*)|*.*"
        openFileDialogOuvrir.FilterIndex = 1
        openFileDialogOuvrir.RestoreDirectory = True
 
        If openFileDialogOuvrir.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            Try
                FileLoad = openFileDialogOuvrir.OpenFile()
                If (FileLoad IsNot Nothing) Then
                    Try
                        Dim Sr As IO.StreamReader = New IO.StreamReader(FileLoad)
                        Me.TB_NumProjet.Text = Sr.ReadLine
                     end...

Là je t'ai mit des trucs qui te serviront peut être pas, mais c'était au cas où.. Maintenant tu fermes le tout :

Code :

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

1
2
Sr.Close()
If (FileLoad IsNot Nothing) Then FileLoad.Close()

[Pol63]

Mais j'ai toujours le problème de la fermeture du fichier..

system.io.file.ReadAllLines ferme le fichier
donc ton problème est soit ailleurs dans ton code, soit dans un autre programme qui ouvre le fichier