Тусклое fName как шнур = «C:\Users\shadow\Documents\ExpertsExchange\EmailContent.txt»
Тусклый oldString как шнур = My.Computer.FileSystem.ReadAllText (fName)
Тусклое findStr как шнур = «
«
Тусклый newString как шнур = заменяет ть (oldString, findStr, findStr + vbCrLf + «newtext»)
MsgBox (newString)
|