Tout d'abord bonjour et merci à ceux qui vont m'aider !!!
SOURCE UTILISEE :
'--------------------------------------------------------------
'Fonction Supprimer la ligne de son choix dans un fichier texte
'--------------------------------------------------------------
Public Function SupprLigne(NrLigne As Integer, Fichier As String)
Dim VarFichier As String
Dim VarNr As Integer
Dim Ligne As String
Open Fichier For Input As #1
Do While Not EOF(1)
Line Input #1, Ligne
VarNr = VarNr + 1
If VarNr <> NrLigne Then VarFichier = VarFichier & Ligne & vbCrLf
Loop
Close #1
'ecriture du fichier
Open Fichier For Output As #1
Print #1, VarFichier
Close #1
End Function
'------------------------------------------------------------------'
'Fonction Recherche et remplace une ligne de texte dans un fichier '
'------------------------------------------------------------------'
Public Function RemplaceTxt(Fichier As String, TxtSource As String, TxtDestination As String)
Dim Ligne As String
Dim VarFichier As String
Open Fichier For Input As #1
Do While Not EOF(1)
Line Input #1, Ligne
Ligne = Replace(Ligne, TxtSource, TxtDestination)
VarFichier = VarFichier & Ligne & vbCrLf
Loop
Close #1
'ecriture du fichier
Open Fichier For Output As #1
Print #1, VarFichier
Close #1
End Function
Alors voilà j'ai fichier toto.PBS qui se lit sous WORDPAD !!
Dans ce fichier je dois remplacer une ligne par une autre : OK j'utilise la source ci-dessus section REMPLACER!!! Fonctionne quelque soit le format !!!
Dans ce fichier je dois également, à partir d'une ligne donnée, effacer la fin du fichier : OK j'utilise la source ci-dessus section SUPPRIMER !! Fonctionne UNIQUEMENT si le fichier est en format texte-seul !!
Je voudrais donc savoir comment SIMPLEMENT sans FileSystemObject on peut changer le format du texte !!!
Merci d'avance !!!
PS : j'ai essayé de copier mon fichier et de le renommer en .doc, .rtf, ... ça ne fonctionne pas !!!
Pestouille 