Сначала полностью считываем файл, а затем простой командой Replace добавляем разделители.
Например файл (C:\1.txt) с таким содержанием:
| Цитата | Всем привет
Доброго времени суток
Как дела ?
Какая у Вас погода нынче ? |
Код:
| Код | Dim path as String = "C:\" ' Путь к файлу.
Dim filename as String = "1.txt" ' Имя файла.
Dim buffer as String ' Переменная, в которую считаем содержимое файла.
Dim File As New System.IO.StreamReader(path & filename, System.Text.Encoding.Default, True) 'Открываем необходимый файл.
buffer = File.ReadToEnd ' Полностью считываем файл в переменную.
buffer = Replace(buffer, chr(13) & chr(10), chr(13) & chr(10) & "<------------------------>" & chr(13) & chr(10))
File.Close() 'Закрываем файл. Работа с ним окончена
Dim NewFile As New System.IO.StreamWriter(path & filename, False, System.Text.Encoding.Default) 'Средство для записи в файл.
NewFile.Write(buffer) ' Записываем наши изменённые данные в файл.
NewFile.Close() ' Закрываем файл. |
|