|
2
vampire-jr
25.12.06
✎
08:19
|
Перемен=ТекстПисьма; ДлинаТекста = СтрДлина(ТекстПисьма); ЧислоБлоков = Цел(ДлинаТекста/200); ЕстьХвост = ДлинаТекста>(ЧислоБлоков*200); Для Счетчик = 1 По ЧислоБлоков Цикл ТекстПисьма1 = Сред(ТекстПисьма,(Счетчик-1)*200,200)+?(ЕстьХвост,"<Текст>",""); Замена.Execute("<Текст>", Ложь, Истина, Ложь,,,Истина,,Ложь,строка(ТекстПисьма1)) ; КонецЦикла; Если ДлинаТекста>ЧислоБлоков*200 Тогда Для тексимвол=1 по СтрДлина(Перемен) Цикл Если КодСимвола (Перемен, тексимвол )=10 тогда Перемен = Лев(Перемен, тексимвол-1)+Символ(13)+Сред(Перемен, тексимвол+1) КонецЕсли; КонецЦикла; ТекстПисьма1 = Сред(ТекстПисьма,ЧислоБлоков*200+1,200); Замена.Execute("<Текст>", Ложь, Истина, Ложь,,,Истина,,Ложь,строка(ТекстПисьма1)) ; КонецЕсли;
|
|
|
3
ASV
25.12.06
✎
08:30
|
ТекстПисьма1=СтрЗаменить(ТекстПисьма1,Симв(10),"^p");
ТекстПисьма1=СтрЗаменить(ТекстПисьма1,Симв(13),"^p");
|
|