Переключение на Главную Страницу Страницы: 1 ОтправитьПечать
Обычная тема Маленький скрипт TextConversion (число прочтений - 3033 )
trdm
1c++ power user
qt1l developer
1c++ moderator
Отсутствует



Сообщений: 2343
Местоположение: г. Ростов-на-Дону
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Маленький скрипт TextConversion
06. Июля 2006 :: 16:08
Печать  
Примочка для текста запроса:
Код
Выбрать все
	|SELECT
	|СчетСтроки.IDDOC [Ссылка $Документ.Счет]
	|, СчетСтроки.LINENO_ НомерСтроки
	|, $СчетСтроки.Товар [Товар as $Неопределенный]
	|, $СчетСтроки.Количество * $СчетСтроки.Коэффициент Количество
	|, 0 as Отгружено
	|, 0 as Остатки
	|
	|FROM
	|$ДокументСтроки.Счет AS СчетСтроки
	|WHERE (	СчетСтроки.IDDOC = :ВыбДокумент )
 


можно с пом макросов StringTab и StringUnTab из TextConversion.vbs оттабулировать текст
за "|" например так:
Код
Выбрать все
	|SELECT
	|	СчетСтроки.IDDOC [Ссылка $Документ.Счет]
	|	, СчетСтроки.LINENO_ НомерСтроки
	|	, $СчетСтроки.Товар [Товар as $Неопределенный]
	|	, $СчетСтроки.Количество * $СчетСтроки.Коэффициент Количество
	|	, 0 as Отгружено
	|	, 0 as Остатки
	|
	|FROM
	|	$ДокументСтроки.Счет AS СчетСтроки
	|WHERE (	СчетСтроки.IDDOC = :ВыбДокумент )
 


Табулируем просто заменой "|" на "|"+СимволТабуляции
в обратную сторону соотв. заменим "|"+СимволТабуляции на просто "|"

Тут же:
TranslitLatRu - Переводит строку "gecnm ,eltn RHENJ" в "Пусть будет КРУТО"
TranslitRuLat - действует обратно TranslitLatRu

MakeRangeAsString - Преобразует выделенный текст, в многосточную сторку. Добавляет "|" к началу строки и заменяет одиночную кавычку на двойную.

MakeUpperCase - строка В ВЕРХНИЙ РЕГИСТР
MakeLoverCase - В нижний регистр
MakeLoToUpAndUpToLo - нижний в ВЕРХНИЙ а ВЕРХНИЙ в нижний
« Последняя редакция: 07. Июля 2006 :: 11:08 - trdm »  

TextConversion.zip ( 1 KB | Загрузки )
Наверх
IP записан
 
Ломастер
YaBB Newbies
*
Отсутствует


А как бы это...

Сообщений: 9
Местоположение: Красноярск
Зарегистрирован: 25. Мая 2011
Пол: Мужской
Re: Маленький скрипт TextConversion
Ответ #1 - 26. Мая 2011 :: 00:20
Печать  
Спасибо  за MakeRangeAsString - Преобразует выделенный текст, в многосточную сторку. Добавляет "|" к началу строки и заменяет одиночную кавычку на двойную.
Улыбка
  
Наверх
 
IP записан
 
Переключение на Главную Страницу Страницы: 1
ОтправитьПечать