Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


megaloman, вместо:
читать дальше »
Код: Выделить весь код
AllTxt = Replace(AllTxt, vbLf, "")              ' Удаляем все символы перевода строки в переменной
Mas = Split(AllTxt, vbCr)                       ' Разбиваем полученную строку в массив. Резделитель - конец строки vbCr
можно просто:
Код: Выделить весь код
Mas = Split(AllTxt, vbCrLf)
— это работает. Ну, и обратно — тоже:
Код: Выделить весь код
AllTxt = Join(Mas, vbCrLf)
Это сообщение посчитали полезным следующие участники:

Отправлено: 18:46, 29-10-2011 | #6