Suppression de lignes dans un fichier texte

Question

Bonjour à tous.
Je voudrais savoir comment est-il possible de supprimer des lignes dans un fichier texte.
Merci à vous. :)

cs_Galagan · Answer

Tout depend de ce que tu veut faire mais le plus simple est d'ouvrir un fichier, supprimmer tes lignes, et recopier le nouveau à la place !

@ +

Galagan

cs_Galagan · Answer

Tout depend de ce que tu veut faire mais le plus simple est d'ouvrir un fichier, supprimmer tes lignes, et recopier le nouveau à la place !

@ +

Galagan

tahbre · Answer

re hello
j'ai ce ki suit:en fait maintenant je veux savoir comment fait-on pour revenir au début du fichier pour faire un autre if avec une autre chaîne de caractères.Merci les amis.:)

Private Sub Command14_Click()

Dim FF As Long
Dim Texte As String, ligne As String
FF = FreeFile
Open App.Path & "\sp4.txt" For Input As #FF
  Do Until EOF(FF)
    Line Input #FF, ligne
        If ligne <> " Standard & Poor's - R\'e9sultat de la recherche  Consistance Long Terme" Then
           Texte = Texte & ligne & vbCrLf
        End If
  Loop

Close #FF

Kill App.Path & "\sp4.txt"
FF = FreeFile
Open App.Path & "\sp4.txt" For Binary As #FF
Put #FF, 1, Texte
Close #FF

End Sub

tahbre · Answer

re hello
j'ai ce ki suit:en fait maintenant je veux savoir comment fait-on pour revenir au début du fichier pour faire un autre if avec une autre chaîne de caractères.Merci les amis.:)

Private Sub Command14_Click()

Dim FF As Long
Dim Texte As String, ligne As String
FF = FreeFile
Open App.Path & "\sp4.txt" For Input As #FF
  Do Until EOF(FF)
    Line Input #FF, ligne
        If ligne <> " Standard & Poor's - R\'e9sultat de la recherche  Consistance Long Terme" Then
           Texte = Texte & ligne & vbCrLf
        End If
  Loop

Close #FF

Kill App.Path & "\sp4.txt"
FF = FreeFile
Open App.Path & "\sp4.txt" For Binary As #FF
Put #FF, 1, Texte
Close #FF

End Sub

cs_Galagan · Answer

Tu pourait toujour recommencer exactement pareil mais cela serait plus long ! Autre sollution : If ligne <> " Standard & Poor's - R\'e9sultat de la recherche Consistance Long Terme" Then If ligne <> "Ton deusiemme if" then Texte = Texte & ligne & vbCrLf End If end if ainsi tu peut faire autant de if que tu veut !

cs_rach · Answer

Bonjour,
Je souhaiterais une aide concernant un probleme d'ajout dans une table appelée tblDDCVNI. La table est liée dans une base access à partir d'une base SQLSERVER. le pb est que l'jout des ligne dans cette table à partir d'un fichier ne se fait pas. je fais l'ajout en mode pas à pas mes variables d'ajout ds la table sont bien alimentées mais lorsque je verifie ds la table les lignes n'existent pas. je ne vois pâs ou il est le pb. sachant que le meme operation sur table liée à partir d'une autre base access se fait sans pb. merci de votre aide.

Voici une parti du code :

'Déclaration
Public objTempRS As Object

'Le recordset qui me permet de me positionner à la fi de la table
Set objTempRS = objTempDB.OpenRecordset("select ISIN,FundName,Currency,Date,FundSize,NAV,TNA,Shares,FrontEndLoad,BackEndLoad,Dividend,Upd,Code_Officiel,Code_SPID, Import from tblDDCVNI where Code_Officiel='Z' order by 1,13;")

objTempRS.AddNew

objTempRS.Fields("ISIN") = tabFields(1) 'tabFields(1) correspond à une valeur et n'est pas null 
objTempRS.update

Suppression de lignes dans un fichier texte

6 réponses

Discussions similaires