Re: [GeSHi-devel] GeSHI and language-file with national character

[Kirill K. <kra...@gm...>]

Benny Baumann wrote:
> Hi,
> 
> If the UTF8 version of your language file renders correctly and keywords
> are properly detected all should be fine and the language file working.
> 
> If no output is returned check the error code GeSHi returns. If no error
> is returned provide me of a copy of that language file and an example
> input for me to test.
Nothing in errors.
Anyone from http://irc1c.ru/pastebin/
for example http://irc1c.ru/576/
//*******************************************
Процедура Сформировать()
	датад = '25.05.2009' ;
	СпрСтелс = СоздатьОбъект("Справочник.Контрагенты");
	спрСтел  = СоздатьОбъект("Справочник.Контрагенты");
	//---проверка контров
	если спрСтелс.НайтиПоРеквизиту("idd","10051650106154616",1) = 1 Тогда
		Сообщить("Контрагент - "+СпрСтелс.ТекущийЭлемент().Наименование+"
найден!!!");
	КонецЕсли;	
	если спрСтел.НайтиПоРеквизиту("idd","10060530047494768",1) = 1 Тогда
		Сообщить("Контрагент - "+СпрСтел.ТекущийЭлемент().Наименование+"
найден!!!");
	КонецЕсли;		
	
	
	Если  спрСтелс.НайтиПоРеквизиту("idd","10051650106154616",1) = 0 Тогда
		Сообщить("не найден Контрагент - стэлс(10051650106154616)!!!");
	КонецЕсли;	
	
	имяСтелс     = спрСтелс.Наименование;
	иннСтелс     = спрСтелс.ИНН;
	КппСтелс     = спрСтелс.КПП;
	АдресЮСтелс  = спрСтелс.ЮридическийАдрес;
	ардесФСтелс  = спрСтелс.ПочтовыйАдрес;
	иддСтелс     = спрСтелс.IDD;
	
	
	стл = СпрСтел.НайтиПоРеквизиту("idd","10060530047494768",1);
	спрСтел.ВыбратьЭлементы();
	Пока спрСтел.ПолучитьЭлемент() = 1 Цикл
		Если спрСтел.IDD = "10060530047494768" Тогда
			спрСтел.ИспользоватьДату(датаД);
			спрСтел.ТекущийЭлемент().ЮридическийАдрес.Установить(датад,АдресЮСтелс);
			спрСтел.ТекущийЭлемент().ПочтовыйАдрес.Установить(датад,ардесФСтелс);
			спрСтел.Записать();
		КонецЕсли;
	КонецЦикла;
	
	
	Если  СпрСтел.НайтиПоРеквизиту("idd","10060530047494768",1) =1 Тогда
		
		
		спрСтел.ИспользоватьДату(датаД);
		спрСтел.Наименование     = "Стэлс ООО";
		спрСтел.ПолноеНазвание   = "Стэлс ООО";
		спрСтел.ИНН              = иннСтелс;
		спрСтел.КПП              = КппСтелс;
	//	спрСтел.ЮридическийАдрес = АдресЮСтелс;
	//	спрСтел.ПочтовыйАдрес    = ардесФСтелс;
		спрСтел.IDD              = иддСтелс;
		спрСтел.записать();

		
		Если СпрСтелс.НайтиПоНаименованию("не испСтэлс ООО") = 1 Тогда
			
			спрСтелс.ИспользоватьДату(датаД);
			СпрСтелс.IDD = "10060530047494768";
			СпрСтелс.Наименование   = "не испСтэл ООО";
			СпрСтелс.ПолноеНазвание = "Стэл ООО";
			СпрСтелс.Записать();
			
		КонецЕсли;	
		
	Иначе
		Сообщить("не найден Контрагент - Стэл(10060530047494768)!!!");
//		Возврат;
	КонецЕсли;
	
	Сообщить("процедура завершенна!");
	
КонецПроцедуры

On this site work on perl highlight work. I want add like this to php.