C# .NET StreamWriter: Comment faire pour ignorer des lignes lors de l'écriture d'un fichier en utilisant StreamWriter?

Question

Je lis dans un fichier texte en utilisant StreamReader. Je veux écrire ce même fichier texte SAUF ses 4 premières lignes et ses 6 dernières lignes.

Comment faire? Merci.

Answer 1

string[] fileLines = File.ReadAllLines(@"your file path"); 

var result = fileLines.Skip(4).Take(fileLines.Length - (4 + 6)); 

File.WriteAllLines(@"your output file path", result); 

Answer 2

StreamReader.ReadLine() lit fichier ligne par ligne et vous pouvez construire un tableau de chaînes à partir du fichier. Puis supprimez les quatre premières lignes et les 6 dernières lignes du tableau. Et avec StreamWriter.WriteLine() vous pouvez remplir le nouveau fichier ligne par ligne en prenant votre tableau. Devrait être assez simple.

Answer 3

Ne semble pas être le chemin le plus court ... mais cela fonctionne pour moi ... J'espère que cela donne un aperçu.

 System.IO.StreamReader input = new System.IO.StreamReader(@"originalFile.txt"); 
     System.IO.StreamWriter output = new System.IO.StreamWriter(@"outputFile.txt"); 

     String[] allLines = input.ReadToEnd().Split("\n".ToCharArray()); 

     int numOfLines = allLines.Length; 
     int lastLineWeWant = numOfLines - (6);     //The last index we want. 

     for (int x = 0; x < numOfLines; x++) 
     { 
      if (x > 4 - 1 && x < lastLineWeWant) //Index has to be greater than num to skip @ start and below the total length - num to skip at end. 
      { 
       output.WriteLine(allLines[x].Trim()); //Trim to remove any \r characters. 
      } 
     } 

     input.Close(); 
     output.Close(); 

Answer 4

Voici la meilleure façon de le faire en VB.NET:

Private Sub ReplaceString() 
    Dim AllLines() As String = File.ReadAllLines("c:\test\myfile.txt") 
    For i As Integer = 0 To AllLines.Length - 1 
     If AllLines(i).Contains("foo") Then 
      AllLines(i) = AllLines(i).Replace("foo", "boo") 
     End If 
    Next 
    File.WriteAllLines("c:\test\myfile.txt", AllLines) 
End Sub