Copie de texte en entre deux fichiersRésolu

Question

Bonjour j'ai un petit soucis pour un de mes programme sous excel

je voudrais ouvrir un fichier text existant et supprimer sur chaque ligne une chaines de texte comprises entre deux points virgules

Après plusieurs recherches, il semble que la seule solution soit de lire ligne par ligne, les traiter et recopier ces lignes dan un nouveau text.

J'ai un soucis au niveau de la syntaxe pour ouvrir un fichier text et en creer un autre mais surtout pour recopier chaque ligne

cs_Zock · Accepted Answer

Pb Résolu merci quand même

PCPT · Answer

salut, voici un exemple qu'il te suffit d'adapter, montrant les méthode de lecture, de recherche, et d'écriture :

' REMPLACER UNE CHAÎNE PAR UNE AUTRE DANS UN FICHIER ' http://www.codyx.org/snippet_remplacer-chaine-autre-dans-fichier_187.aspx#598 ' Posté par [ 401740 PCPT ] le 26/07/2006

Private Function ChangeWords(sWordsToRemove As String , sWordsToChange As String , sFile As String ) As Boolean If Dir (sFile, vbSystem Or vbHidden) = vbNullString Then ' fichier existe? ChangeWords = False Else ' ouvre le fichier Dim FF As Integer , sBuffer As String FF = FreeFile Open sFile For Input As #FF sBuffer = Input ( LOF (FF), 1) Close #FF ' ligne à changer existe? Dim lPos As Long lPos = InStr (1, sBuffer, sWordsToRemove) If lPos = 0 Then ChangeWords = False Else ' on découpe Dim sFirst As String , sLast As String sFirst = Left$(sBuffer, lPos - 1) sLast = Right$(sBuffer, Len (sBuffer) - lPos - Len (sWordsToRemove) + 1) ' on écrit FF = FreeFile Open sFile For Output As #FF Print #FF, sFirst & sWordsToChange & sLast Close #FF ChangeWords = True End If End If End Function '---------------------------------------------------------------- 'Remarques : 'Private Sub Form_Load() ''C: est.txt contient "on dit bonjour quand on est poli :p" 'Call ChangeWords("bonjour", "merci", "C: est.txt") 'End Sub ++

Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

cs_Zock · Answer

merci mais le petit soucis que j'ai c'est que ma chaine est variable en fonction des lignes dans le texte
la seule indication que je posséde est qu'elle est comprise entre 2 points virgules

ce que je voudrais faire c'est lire tout le fichier et le recopier en omettant la chaine de caracteres situé entre le 3eme et le 4 eme point virgule de chaque ligne

PCPT · Answer

n'hésite pas à partager ici ta solution pour les autres membres...
++

Copie de texte en entre deux fichiers

4 réponses

Votre réponse

Discussions similaires