Schwaches fName als Schnur = „C:\Users\shadow\Documents\ExpertsExchange\EmailContent.txt“
Schwaches oldString als Schnur = My.Computer.FileSystem.ReadAllText (fName)
Schwaches findStr als Schnur = „
„
Das schwache newString als Schnur = ersetzen (oldString, findStr, findStr + vbCrLf + „newtext“)
MsgBox (newString)
|