annexant chaque ligne dans une liste txt

Question

J'ai une liste de noms de fichiers et il emplacements comme suit:

c: \ TIC \ AUTOCAD_2010 \ Customisations \ 20090409 \ 20090409.lsp c: \ TIC \ AUTOCAD_2010 \ Customisations Advanced \ Offset \ LSP \ ADVANCED OFFSET.lsp c: \ TIC \ AUTOCAD_2010 \ Customisations \ LockDWG \ LSP \ LockDWG.lsp c: \ TIC \ AUTOCAD_2010 \ LSP \ acad2010doc.lsp

La liste est très basique mais devrait être ajouté pour indiquer:

(charge « c: \ TIC \ \ AUTOCAD_2010 personnalisations \ 20090409 \ 20090409.lsp ») (charge « c: \ TIC \ AUTOCAD_2010 \ personnalisations \ avancée Offset \ LSP \ ADVANCED OFFSET.lsp ») (charge « c: \ TIC \ AUTOCAD_2010 \ Customisations \ LockDWG \ LSP \ LockDWG.lsp ») (charge « c: \ TIC \ AUTOCAD_2010 \ LSP \ acad2010doc.lsp »)

Comment cela peut-il être fait avec VB .net?

Answer 1

Si votre fichier est pas trop grand, vous pouvez effectuer les opérations suivantes:

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)