将每一行追加到 txt 列表中

Question

我有一个文件名列表和位置如下：

c:\ICT\AUTOCAD_2010\Customizations\20090409\20090409.lsp c:\ICT\AUTOCAD_2010\Customizations\高级偏移\LSP\ADVANCED OFFSET.lsp c:\ICT\AUTOCAD_2010\Customizations\LockDWG\LSP\LockDWG.lsp c:\ICT\AUTOCAD_2010\LSP\acad2010doc.lsp

该列表非常基本，但应附加说明：

（加载“c:\ICT\AUTOCAD_2010\Customizations\20090409\20090409.lsp”） （加载“c:\ICT\AUTOCAD_2010\Customizations\Advanced Offset\LSP\ADVANCED OFFSET.lsp”） （加载“c:\ICT\AUTOCAD_2010\Customizations\LockDWG\LSP\LockDWG.lsp”） （加载“c:\ICT\AUTOCAD_2010\LSP\acad2010doc.lsp”）

如何使用 VB.net 完成此操作？

Answer 1

如果您的文件不是太大，那么您可以执行以下操作：

Dim fileContents As String, contentArray As String()
Dim updateContents As New StringBuilder("")

'read the file contents in
fileContents = My.Computer.FileSystem.ReadAllText("C:\TestInput.txt")
'split the contents on the space delimiter - this method will fail if you have a space in your filename
contentArray = fileContents.Split(" "c)
'loop through each file found in the data and format as required
For Each fileString As String In contentArray
    updateContents.Append(String.Format("(load {0}{1}{0}) ", Chr(34), fileString))
Next
'write out the newly formatted file
My.Computer.FileSystem.WriteAllText("C:\TestOuput.txt", updateContents.ToString, True)