1С:Вопросы и ответы » Некоторые функции для работы со строками 1С

Некоторые функции для работы со строками 1С

05.02.2019

Функция __естьПрефикс( строкаИсточник, Префикс) Экспорт
Если __пустаяСтрока(Префикс) или __пустаяСтрока(строкаИсточник) или СтрДлина(Префикс) > СтрДлина(строкаИсточник) Тогда Возврат ложь; КонецЕсли;

длинаСтр = СтрДлина(Префикс);

Возврат Лев(строкаИсточник, длинаСтр)=Префикс;
КонецФункции

Функция __естьПрефикс( строкаИсточник, Префикс) Экспорт

Если __пустаяСтрока(Префикс) или __пустаяСтрока(строкаИсточник) или СтрДлина(Префикс) > СтрДлина(строкаИсточник) Тогда Возврат ложь; КонецЕсли;

длинаСтр = СтрДлина(Префикс);

Возврат Лев(строкаИсточник, длинаСтр)=Префикс;

КонецФункции

Функция __естьПостфикс( строкаИсточник, Постфикс ) Экспорт
Если __пустаяСтрока(Постфикс) или __пустаяСтрока(строкаИсточник) или СтрДлина(Постфикс) > СтрДлина(строкаИсточник) Тогда Возврат ложь; КонецЕсли;

длинаСтр = СтрДлина(Постфикс);

Возврат Прав(строкаИсточник, длинаСтр)=Постфикс;
КонецФункции

Функция __получитьПодстроку(строкаИсточник, индексНачала, длинаПодстроки) Экспорт
Возврат Сред( строкаИсточник, индексНачала, длинаПодстроки);
КонецФункции

Функция __удалитьПодстроку(строкаИсточник, подстрока) Экспорт
строкаИсточник = СтрЗаменить( строкаИсточник, подстрока, "");
КонецФункции
Функция __удалитьПодстрокуПоИндексу(строкаИсточник, индексНачала, длинаПодстроки) Экспорт
строка11=""; строка21=""; строка12=""; строка22="";
__разделитьСтрокуПоИндексу(строкаИсточник, индексНачала, строка11, строка21);
__разделитьСтрокуПоИндексу(строкаИсточник, индексНачала + длинаПодстроки, строка12, строка22);

строкаИсточник = строка11 + строка22;
КонецФункции

Функция __вставитьПодстроку(строкаИсточник, подстрока, индескНачала) Экспорт
строка1=""; строка2="";
Если Неопределено =__разделитьСтрокуПоИндексу(строкаИсточник, индескНачала, строка1, строка2) Тогда Возврат Неопределено; КонецЕсли;

строкаИсточник = строка1 + подстрока + строка2;

Возврат Истина;
КонецФункции
//возврат: две части, строки
Функция __разделитьСтрокуПоИндексу( строкаИсточник, индескНачалаРазделения, строка1, строка2 ) Экспорт
Если индескНачалаРазделения > СтрДлина(строкаИсточник) Тогда Возврат Неопределено; КонецЕсли;

строка1 = Лев(строкаИсточник, индескНачалаРазделения);
строка2 = Прав(строкаИсточник, СтрДлина(строкаИсточник) - индескНачалаРазделения +1 );

Возврат Истина;
КонецФункции

//возврат: две части, строки
Функция __разделитьСтрокуПоПодстроке( строкаИсточник, ПодстрокаРазделения, строка1, строка2 ) Экспорт
Если СтрДлина(ПодстрокаРазделения) > СтрДлина(строкаИсточник) или СтрДлина(ПодстрокаРазделения) = (СтрДлина(строкаИсточник)+1) Тогда Возврат Неопределено; КонецЕсли;

индекс = __получитьИндексСтрокиПоСимволу(строкаИсточник, ПодстрокаРазделения);
строка1 = Лев(строкаИсточник, индекс);
строка2 = Прав(строкаИсточник, СтрДлина(строкаИсточник) - индекс - СтрДлина(ПодстрокаРазделения) +1 );

Возврат Истина;

КонецФункции
//возврат: при исключении возврат Неопределено
Функция __получитьСимволСтрокиПоИндексу( строкаИсточник, индекс) Экспорт
Возврат ?(индекс>СтрДлина(строкаИсточник), Неопределено, Сред(строкаИсточник, индекс, 1));
КонецФункции

//возврат: при исключении возврат Неопределено
Функция __получитьИндексСтрокиПоСимволу( строкаИсточник, символ) Экспорт
индекс = Найти(строкаИсточник, символ);
Возврат ?(индекс=0, Неопределено, индекс);
КонецФункции

//возврат: при исключении возврат Неопределено, иначе подстрока
Функция __получитьПодстрокуПоСимволуИсключению(строкаИсточник, индексНачалаСканирования, символИсключения) Экспорт
Если (индексНачалаСканирования+СтрДлина(символИсключения)) > СтрДлина(строкаИсточник) Тогда Возврат Неопределено; КонецЕсли;

строка = Прав(строкаИсточник, СтрДлина(строкаИсточник) - индексНачалаСканирования +1);
подстрока ="";

Если СтрДлина(символИсключения) > 1 Тогда

следСтрока = __получитьПодстроку(строка, 1, СтрДлина(символИсключения));
Пока не __пустаяСтрока(следСтрока) Цикл
Если следСтрока<>символИсключения Тогда подстрока = подстрока + следСтрока; Иначе Прервать; КонецЕсли;

__удалитьПодстрокуПоИндексу(строка, 1, СтрДлина(следСтрока) );
следСтрока = __получитьПодстроку(строка, 1, СтрДлина(символИсключения));
КонецЦикла;
//
Иначе
Для н=1 По СтрДлина(строка) Цикл
символ = __получитьСимволСтрокиПоИндексу(строка, н);
Если символ<>символИсключения Тогда подстрока = подстрока + символ; Иначе Прервать; КонецЕсли;

КонецЦикла;

КонецЕсли;


Возврат подстрока;
КонецФункции

//возврат: при исключении возврат Неопределено
Функция __удалитьСимволСтрокиПоИндексу( строкаИсточник, индекс) Экспорт
длинаСтр = СтрДлина(строкаИсточник);
Если индекс>длинаСтр Тогда Возврат Неопределено; КонецЕсли;

левСтр = Лев(строкаИсточник, индекс -1 );
правСтр = Прав(строкаИсточник, длинаСтр - индекс);
стр = левСтр + правСтр;

Возврат стр;
КонецФункции

//возврат: многострочная строка
//
Функция __получитьМСтроку( строкаИсточник, строкаРазделитель, строкаИсключения=Неопределено, ПовторятьСтрокуРазделителя=Ложь ) Экспорт
стр = СтрЗаменить( строкаИсточник, строкаРазделитель, Символы.ПС);
резСтр = "";

Если Неопределено=строкаИсключения Тогда Возврат стр; КонецЕсли;

//исключение заданной строки из многострочной строки
колво = СтрЧислоСтрок(стр);
Для н=1 По колво Цикл
текСтр = СтрПолучитьСтроку(стр, н);
Если не ПовторятьСтрокуРазделителя и текСтр<>строкаИсключения Тогда __сформироватьПодстрокуМСтроки(резСтр, текСтр);
Если не __пустаяСтрока(текСтр) или текСтр<>строкаИсключения Тогда __сформироватьПодстрокуМСтроки(резСтр, текСтр); КонецЕсли;
КонецЕсли;

КонецЦикла;

Возврат резСтр;
КонецФункции

//раскладывает на подстроки
//возврат: массив подстрок
Функция __получитьСтрокуВМассив(строкаИсточник, строкаРазделитель, строкаИсключения=Неопределено, ПовторятьСтрокуРазделителя=Ложь) Экспорт
массив = Новый Массив;
стр = строкаИсточник;

ДлинаРазделителя = СтрДлина(строкаРазделитель);
Пока истина Цикл
Поз = Найти(Стр, строкаРазделитель);
Если Поз=0 Тогда
текСтр = Стр;
//
Если не ПовторятьСтрокуРазделителя и текСтр<>строкаИсключения Тогда массив.Добавить( текСтр );
Иначе
Если не __пустаяСтрока(текСтр) или текСтр<>строкаИсключения Тогда массив.Добавить( текСтр ); КонецЕсли;
КонецЕсли;
//
Возврат массив;
КонецЕсли;
текСтр = Лев(Стр, Поз-1);
//
Если не ПовторятьСтрокуРазделителя и текСтр<>строкаИсключения Тогда массив.Добавить( текСтр );
Иначе
Если не __пустаяСтрока(текСтр) или текСтр<>строкаИсключения Тогда массив.Добавить( текСтр ); КонецЕсли;
КонецЕсли;
//
Стр = Сред( Стр, Поз+ДлинаРазделителя );
КонецЦикла;

Возврат массив;
КонецФункции

Функция __этоМСтрока(строкаИсточник) Экспорт
Возврат ( Найти(строкаИсточник, Символы.ПС)<>0 );
КонецФункции
Функция __получитьМСтрокуВМассив(строкаИсточник, строкаИсключения=Неопределено)Экспорт
массив = Новый Массив;

колво = СтрЧислоСтрок(строкаИсточник);
Для н=1 По колво Цикл
текСтр = СтрПолучитьСтроку(строкаИсточник, н);
Если строкаИсключения<>Неопределено и текСтр<>строкаИсключения Тогда массив.Добавить( текСтр ); КонецЕсли;
КонецЦикла;

Возврат массив;
КонецФункции

Функция __получитьМСтрокуИзМассива(массивИсточник, строкаИсключения=Неопределено)Экспорт
стр = "";

Для каждого элемент Из массивИсточник Цикл
Если __этоСтрока(элемент) и строкаИсключения<>Неопределено и элемент<>строкаИсключения Тогда __сформироватьПодстрокуМСтроки(стр, элемент); КонецЕсли;
КонецЦикла;

Возврат стр;
КонецФункции

Функция __получитьСтрокуИзМассива(массивИсточник, строкаРазделитель="", строкаИсключения=Неопределено) Экспорт
стр = "";

былоВхождение = Ложь;
Для каждого элемент Из массивИсточник Цикл
Если __этоСтрока(элемент) и строкаИсключения<>Неопределено и элемент<>строкаИсключения Тогда стр = стр + элемент + строкаРазделитель; былоВхождение=Истина; КонецЕсли;
КонецЦикла;

Если былоВхождение Тогда __удалитьПодстрокуПоИндексу(стр, СтрДлина(стр)-СтрДлина(строкаРазделитель), СтрДлина(строкаРазделитель) ); КонецЕсли; //убираем лишний разделитель

Возврат стр;
КонецФункции

Процедура __сформироватьПодстрокуМСтроки( строкаИсточник, подСтрока )Экспорт
строкаИсточник = строкаИсточник + подСтрока + Символы.ПС;
КонецПроцедуры

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

Функция __естьПостфикс( строкаИсточник, Постфикс ) Экспорт

Если __пустаяСтрока(Постфикс) или __пустаяСтрока(строкаИсточник) или СтрДлина(Постфикс) > СтрДлина(строкаИсточник) Тогда Возврат ложь; КонецЕсли;

длинаСтр = СтрДлина(Постфикс);

Возврат Прав(строкаИсточник, длинаСтр)=Постфикс;

КонецФункции

Функция __получитьПодстроку(строкаИсточник, индексНачала, длинаПодстроки) Экспорт

Возврат Сред( строкаИсточник, индексНачала, длинаПодстроки);

КонецФункции

Функция __удалитьПодстроку(строкаИсточник, подстрока) Экспорт

строкаИсточник = СтрЗаменить( строкаИсточник, подстрока, "");

КонецФункции

Функция __удалитьПодстрокуПоИндексу(строкаИсточник, индексНачала, длинаПодстроки) Экспорт

строка11=""; строка21=""; строка12=""; строка22="";

__разделитьСтрокуПоИндексу(строкаИсточник, индексНачала, строка11, строка21);

__разделитьСтрокуПоИндексу(строкаИсточник, индексНачала + длинаПодстроки, строка12, строка22);

строкаИсточник = строка11 + строка22;

КонецФункции

Функция __вставитьПодстроку(строкаИсточник, подстрока, индескНачала) Экспорт

строка1=""; строка2="";

Если Неопределено =__разделитьСтрокуПоИндексу(строкаИсточник, индескНачала, строка1, строка2) Тогда Возврат Неопределено; КонецЕсли;

строкаИсточник = строка1 + подстрока + строка2;

Возврат Истина;

КонецФункции

//возврат: две части, строки

Функция __разделитьСтрокуПоИндексу( строкаИсточник, индескНачалаРазделения, строка1, строка2 ) Экспорт

Если индескНачалаРазделения > СтрДлина(строкаИсточник) Тогда Возврат Неопределено; КонецЕсли;

строка1 = Лев(строкаИсточник, индескНачалаРазделения);

строка2 = Прав(строкаИсточник, СтрДлина(строкаИсточник) - индескНачалаРазделения +1 );

Возврат Истина;

КонецФункции

//возврат: две части, строки

Функция __разделитьСтрокуПоПодстроке( строкаИсточник, ПодстрокаРазделения, строка1, строка2 ) Экспорт

Если СтрДлина(ПодстрокаРазделения) > СтрДлина(строкаИсточник) или СтрДлина(ПодстрокаРазделения) = (СтрДлина(строкаИсточник)+1) Тогда Возврат Неопределено; КонецЕсли;

индекс = __получитьИндексСтрокиПоСимволу(строкаИсточник, ПодстрокаРазделения);

строка1 = Лев(строкаИсточник, индекс);

строка2 = Прав(строкаИсточник, СтрДлина(строкаИсточник) - индекс - СтрДлина(ПодстрокаРазделения) +1 );

Возврат Истина;

КонецФункции

//возврат: при исключении возврат Неопределено

Функция __получитьСимволСтрокиПоИндексу( строкаИсточник, индекс) Экспорт

Возврат ?(индекс>СтрДлина(строкаИсточник), Неопределено, Сред(строкаИсточник, индекс, 1));

КонецФункции

//возврат: при исключении возврат Неопределено

Функция __получитьИндексСтрокиПоСимволу( строкаИсточник, символ) Экспорт

индекс = Найти(строкаИсточник, символ);

Возврат ?(индекс=0, Неопределено, индекс);

КонецФункции

//возврат: при исключении возврат Неопределено, иначе подстрока

Функция __получитьПодстрокуПоСимволуИсключению(строкаИсточник, индексНачалаСканирования, символИсключения) Экспорт

Если (индексНачалаСканирования+СтрДлина(символИсключения)) > СтрДлина(строкаИсточник) Тогда Возврат Неопределено; КонецЕсли;

строка = Прав(строкаИсточник, СтрДлина(строкаИсточник) - индексНачалаСканирования +1);

подстрока ="";

Если СтрДлина(символИсключения) > 1 Тогда

следСтрока = __получитьПодстроку(строка, 1, СтрДлина(символИсключения));

Пока не __пустаяСтрока(следСтрока) Цикл

Если следСтрока<>символИсключения Тогда подстрока = подстрока + следСтрока; Иначе Прервать; КонецЕсли;

__удалитьПодстрокуПоИндексу(строка, 1, СтрДлина(следСтрока) );

следСтрока = __получитьПодстроку(строка, 1, СтрДлина(символИсключения));

КонецЦикла;

Иначе

Для н=1 По СтрДлина(строка) Цикл

символ = __получитьСимволСтрокиПоИндексу(строка, н);

Если символ<>символИсключения Тогда подстрока = подстрока + символ; Иначе Прервать; КонецЕсли;

КонецЦикла;

КонецЕсли;

Возврат подстрока;

КонецФункции

//возврат: при исключении возврат Неопределено

Функция __удалитьСимволСтрокиПоИндексу( строкаИсточник, индекс) Экспорт

длинаСтр = СтрДлина(строкаИсточник);

Если индекс>длинаСтр Тогда Возврат Неопределено; КонецЕсли;

левСтр = Лев(строкаИсточник, индекс -1 );

правСтр = Прав(строкаИсточник, длинаСтр - индекс);

стр = левСтр + правСтр;

Возврат стр;

КонецФункции

//возврат: многострочная строка

Функция __получитьМСтроку( строкаИсточник, строкаРазделитель, строкаИсключения=Неопределено, ПовторятьСтрокуРазделителя=Ложь ) Экспорт

стр = СтрЗаменить( строкаИсточник, строкаРазделитель, Символы.ПС);

резСтр = "";

Если Неопределено=строкаИсключения Тогда Возврат стр; КонецЕсли;

//исключение заданной строки из многострочной строки

колво = СтрЧислоСтрок(стр);

Для н=1 По колво Цикл

текСтр = СтрПолучитьСтроку(стр, н);

Если не ПовторятьСтрокуРазделителя и текСтр<>строкаИсключения Тогда __сформироватьПодстрокуМСтроки(резСтр, текСтр);

Если не __пустаяСтрока(текСтр) или текСтр<>строкаИсключения Тогда __сформироватьПодстрокуМСтроки(резСтр, текСтр); КонецЕсли;

КонецЕсли;

КонецЦикла;

Возврат резСтр;

КонецФункции

//раскладывает на подстроки

//возврат: массив подстрок

Функция __получитьСтрокуВМассив(строкаИсточник, строкаРазделитель, строкаИсключения=Неопределено, ПовторятьСтрокуРазделителя=Ложь) Экспорт

массив = Новый Массив;

стр = строкаИсточник;

ДлинаРазделителя = СтрДлина(строкаРазделитель);

Пока истина Цикл

Поз = Найти(Стр, строкаРазделитель);

Если Поз=0 Тогда

текСтр = Стр;

Если не ПовторятьСтрокуРазделителя и текСтр<>строкаИсключения Тогда массив.Добавить( текСтр );

Иначе

Если не __пустаяСтрока(текСтр) или текСтр<>строкаИсключения Тогда массив.Добавить( текСтр ); КонецЕсли;

КонецЕсли;

Возврат массив;

КонецЕсли;

текСтр = Лев(Стр, Поз-1);

Если не ПовторятьСтрокуРазделителя и текСтр<>строкаИсключения Тогда массив.Добавить( текСтр );

Иначе

Если не __пустаяСтрока(текСтр) или текСтр<>строкаИсключения Тогда массив.Добавить( текСтр ); КонецЕсли;

КонецЕсли;

Стр = Сред( Стр, Поз+ДлинаРазделителя );

КонецЦикла;

Возврат массив;

КонецФункции

Функция __этоМСтрока(строкаИсточник) Экспорт

Возврат ( Найти(строкаИсточник, Символы.ПС)<>0 );

КонецФункции

Функция __получитьМСтрокуВМассив(строкаИсточник, строкаИсключения=Неопределено)Экспорт

массив = Новый Массив;

колво = СтрЧислоСтрок(строкаИсточник);

Для н=1 По колво Цикл

текСтр = СтрПолучитьСтроку(строкаИсточник, н);

Если строкаИсключения<>Неопределено и текСтр<>строкаИсключения Тогда массив.Добавить( текСтр ); КонецЕсли;

КонецЦикла;

Возврат массив;

КонецФункции

Функция __получитьМСтрокуИзМассива(массивИсточник, строкаИсключения=Неопределено)Экспорт

стр = "";

Для каждого элемент Из массивИсточник Цикл

Если __этоСтрока(элемент) и строкаИсключения<>Неопределено и элемент<>строкаИсключения Тогда __сформироватьПодстрокуМСтроки(стр, элемент); КонецЕсли;

КонецЦикла;

Возврат стр;

КонецФункции

Функция __получитьСтрокуИзМассива(массивИсточник, строкаРазделитель="", строкаИсключения=Неопределено) Экспорт

стр = "";

былоВхождение = Ложь;

Для каждого элемент Из массивИсточник Цикл

Если __этоСтрока(элемент) и строкаИсключения<>Неопределено и элемент<>строкаИсключения Тогда стр = стр + элемент + строкаРазделитель; былоВхождение=Истина; КонецЕсли;

КонецЦикла;

Если былоВхождение Тогда __удалитьПодстрокуПоИндексу(стр, СтрДлина(стр)-СтрДлина(строкаРазделитель), СтрДлина(строкаРазделитель) ); КонецЕсли; //убираем лишний разделитель

Возврат стр;

КонецФункции

Процедура __сформироватьПодстрокуМСтроки( строкаИсточник, подСтрока )Экспорт

строкаИсточник = строкаИсточник + подСтрока + Символы.ПС;

КонецПроцедуры

Если у Вас появились вопросы по статье или остались нерешенные проблемы обсудить их Вы можете на Форуме 1С Вопросы и ответы

Оцените статью:

(1 голосов, 5,00 из 5)

Загрузка...

Если Вы заметили ошибку, то выделите ее мышью и нажмите Ctrl+Enter

Отзывов нет

Добавить комментарий Отменить ответ

Для отправки комментария вам необходимо авторизоваться.

Некоторые функции для работы со строками 1С

Добавить комментарий Отменить ответ

Меню

Заходите в «Одноклассники»!

Регистрируйтесь в «Вконтакте»!

Темы форума

Рубрики

Это интересно:

Ответы на вопросы: