如何在每行末尾的文本文件中写入内容

-1

"3P","Smith","Richard","3 Point Promotions","3P","[email protected]","IDA","Yes",,,,0,4,5,83.33,10, 
"A1","Ernest","Amy","TAKE 1 Promotional Products","LCOOK","[email protected]","IDA","Yes",,,,0,6,7,,0, 
"A2","Derek","Eaton","Advertising Edge Promotions","AE","[email protected]","IDA","Yes",,,,0,8,8,,10, 
"AAA","Abercrombie","Jerry","AAA Specialty Wholesale Inc","AAA","[email protected]","IDA","Yes",,,,0,9,9,,10, 
"AAP","Halberstam","Mendy","All About Promotions","AAP","[email protected]","IDA","Yes",,,,0,10,10,,12,

他们每个人都是独立的line.Now我想在每个另一列添加这样

"3P","Smith","Richard","3 Point Promotions","3P","[email protected]","IDA","Yes",,,,0,4,5,83.33,10,**96** 
"A1","Ernest","Amy","TAKE 1 Promotional Products","LCOOK","[email protected]","IDA","Yes",,,,0,6,7,,0,**97** 
"A2","Derek","Eaton","Advertising Edge Promotions","AE","[email protected]","IDA","Yes",,,,0,8,8,,10,**98** 
"AAA","Abercrombie","Jerry","AAA Specialty Wholesale Inc","AAA","[email protected]","IDA","Yes",,,,0,9,9,,10,**99** 
"AAP","Halberstam","Mendy","All About Promotions","AAP","[email protected]","IDA","Yes",,,,0,10,10,,12,**100**

我如何通过line.And阅读网上内容还如何写在同一文本的另一个值文件在每一行。请为这个问题发送解决方案。我在等待您的回复。感谢您的回复。 -Saravanan

来源

2010-05-25 saravanan

也许是这样的：

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

来源

2010-05-25 14:25:42

如何在每行末尾的文本文件中写入内容

回答

相关问题