fName fioco come stringa = “C:\Users\shadow\Documents\ExpertsExchange\EmailContent.txt„
oldString fioco come la stringa = My.Computer.FileSystem.ReadAllText (fName)
findStr fioco come stringa = “
“
newString fioco come stringa = sostituisce (oldString, findStr, findStr + vbCrLf + “newtext„)
MsgBox (newString)
|