Discussion :

[EvaristeGaloisBis]

bonjour,
je suis en train d'essayer d'optimiser un peu mon code et je vois qu'une partie sur une manipulation de fichier me fait perdre un peu de temps.
La partie qui me fait perdre le plus de temps reste la suppression d'une ligne dans un fichier.

le méta-code ressemble a peut près à ça :

Code principe en méta langage :

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

1
2
3
4
5
6
copie avec un nom different du fichier considéré
ouverture du fichier premier en input (pour que réécriture ecrase toutes les anciennes données)
ouverture de la copie
tant que c'est pas la fin du fichier
    je réécris ligne a ligne avec la condition que la ligne que je récris, n'est pas la ligne que je cherche a retirer
fin du tant que

et je me demandais VB n'avait pas une fonction du type "linedelete #1" ?

[ProgElecT]

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
18
19
20
21
22
23
24
25
Option Explicit
 
Dim NumFich As Integer
Dim NomFichier As String
Dim Msg$
Dim TextRechercher As String
 
Private Sub Form_Load()
NomFichier = "C:\PersoFrancis\Test1.txt"
NumFich = FreeFile
Open NomFichier For Input As #NumFich
Msg$ = Input(FileLen(NomFichier), NumFich)
Close #NumFich
'ligne que je cherche a retirer
TextRechercher = "    LabOmbre(1).ForeColor() = New_InfosColorOmbre" & vbCrLf
'Replace rien, donc supprime le TextRechercher de Msg$
Msg$ = Replace(Msg$, TextRechercher, "")
 
'réouvre pour enregistrer, Msg$ ne contenant plus la ligne
NumFich = FreeFile
Open NomFichier For Output As #NumFich
Print #NumFich, Msg$
Close #NumFich
 
End Sub

[EvaristeGaloisBis]

en effet c'est plus performant que mon code précédent.
je n'avais pas pensé a utiliser le replace. C'est une astuce toujours bonne a connaitre.
Merci!