Faible fName comme corde = « C:\Users\shadow\Documents\ExpertsExchange\EmailContent.txt »
Faible oldString comme corde = My.Computer.FileSystem.ReadAllText (fName)
Faible findStr comme corde = «
«
Faible newString comme corde = remplacent (oldString, findStr, findStr + vbCrLf + le « newtext »)
MsgBox (newString)
|