Как написать содержимое в текстовом файле в конце каждой строки

Question

У меня есть один текстовый файл, который содержит следующие типы данных.

"3P","Smith","Richard","3 Point Promotions","3P","richs51@gmail.com","IDA","Yes",,,,0,4,5,83.33,10, 
"A1","Ernest","Amy","TAKE 1 Promotional Products","LCOOK","lcpromos@adelphia.net","IDA","Yes",,,,0,6,7,,0, 
"A2","Derek","Eaton","Advertising Edge Promotions","AE","dereke@adedgepro.com","IDA","Yes",,,,0,8,8,,10, 
"AAA","Abercrombie","Jerry","AAA Specialty Wholesale Inc","AAA","wabercro@bellsouth.net","IDA","Yes",,,,0,9,9,,10, 
"AAP","Halberstam","Mendy","All About Promotions","AAP","mendyaap@yahoo.com","IDA","Yes",,,,0,10,10,,12, 

Каждый из них отдельные line.Now я хочу добавить еще один столбец в каждой, как этот

"3P","Smith","Richard","3 Point Promotions","3P","richs51@gmail.com","IDA","Yes",,,,0,4,5,83.33,10,**96** 
"A1","Ernest","Amy","TAKE 1 Promotional Products","LCOOK","lcpromos@adelphia.net","IDA","Yes",,,,0,6,7,,0,**97** 
"A2","Derek","Eaton","Advertising Edge Promotions","AE","dereke@adedgepro.com","IDA","Yes",,,,0,8,8,,10,**98** 
"AAA","Abercrombie","Jerry","AAA Specialty Wholesale Inc","AAA","wabercro@bellsouth.net","IDA","Yes",,,,0,9,9,,10,**99** 
"AAP","Halberstam","Mendy","All About Promotions","AAP","mendyaap@yahoo.com","IDA","Yes",,,,0,10,10,,12,**100** 

Как я прочитал содержание в строке line.And также, как написать другое значение в этом тексте файл в каждой строке. Пожалуйста, отправьте решение для этой проблемы. Я жду вашего ответа. Спасибо за ответ. -Saravanan

Answer 1

Может быть что-то вроде этого:

Dim lines() As String 
Using reader As New IO.StreamReader(filePath) 
    Dim sep() As String = {vbNewLine} 
    lines = reader.ReadToEnd().Split(sep, StringSplitOptions.RemoveEmptyEntries) 
End Using 
Dim Index as Int32 = 1 
Using writer As New IO.StreamWriter(filePath, False) 
    For Each line As String In lines 
      writer.WriteLine(line & "," & Index.ToString()) 
    Next 
End Using