:: Про сайт Клуба
test new
Joys
Автор

Сообщений: 3408
Откуда: Старая Русса
Дата регистрации: 25.06.2000
жирный
курсив
зачеркнуты
подчеркнутый
по центру

верх индекс
нижн индекс
  • лист
    ссылка
    код
    зеленыйкрасный
    синийсерый[/list]
    Ratings: 0 negative/0 positive
  • RE: test new f
    Joys
    Автор

    Сообщений: 3408
    Откуда: Старая Русса
    Дата регистрации: 25.06.2000
    /* as above, but backwards.  */
    unsigned char *php_base64_decode(const unsigned char *str, int length, int *ret_length) {
    	const unsigned char *current = str;
    	int ch, i = 0, j = 0, k;
    	/* this sucks for threaded environments */
    	static short reverse_table[256];
    	static int table_built;
    	unsigned char *result;
    
    	if (++table_built == 1) {
    		char *chp;
    		for(ch = 0; ch < 256; ch++) {
    			chp = strchr(base64_table, ch);
    			if(chp) {
    				reverse_table[ch] = chp - base64_table;
    			} else {
    				reverse_table[ch] = -1;
    			}
    		}
    	}
    Ratings: 0 negative/0 positive
    RE: test new f
    Aijik

    Сообщений: 2145
    Откуда: Ростов-на-Дону
    Дата регистрации: 08.01.2002
    Ну, тест так тест

    *!*	oTargetSheet - лист, куда копируем форматы
    *!*	oSource - диапазон, откуда копируем форматы
    *!* llChild - являются ли данные дочерними (дли исключения из обработки колонки критерия фильтра)
    
    IF llChild
       oTargetRange = oTargetSheet.UsedRange.OffSet(0,1) 
    ELSE
       oTargetRange = oTargetSheet.UsedRange
    ENDIF 
    
    
    lnNewColumns = 0
    
    
    WITH oExcel
    
            .CutCopyMode= .F.
    
    		&& Кол-во колонок в шаблоне
            lnTemplateColumnsCount = oSource.Columns.Count
    
    
            liTemplateColumns = 1
          
    
            DO WHILE liTemplateColumns <= lnTemplateColumnsCount
         
                    oColumn = oSource.Columns(liTemplateColumns)
    
                    && Является ли колонка объединенной
                    IF oColumn.Cells.MergeCells 
    
    				    lnMergedColumns = oColumn.Cells(1,1).MergeArea.Columns.Count - 1
                        oTargetRange.Columns(liTemplateColumns).Offset(0,1).Resize(1,lnMergedColumns).EntireColumn.Insert()
    
    
    	                liTemplateColumns = liTemplateColumns + lnMergedColumns
    
                        IF liTemplateColumns = lnTemplateColumnsCount  && Доп. колонки добавлялись к последней колонке данных                        
                             oTargetRange = oTargetRange.Resize(oTargetRange.Rows.Count, oTargetRange.Columns.Count+lnMergedColumns)    
    	  				     EXIT 
    					ENDIF
    										
                    ENDIF
    
                    liTemplateColumns = liTemplateColumns + 1
            ENDDO
    
    ENDWITH
    
    
    RETURN oTargetRange
    Ratings: 0 negative/0 positive
    RE: test new f
    Aijik

    Сообщений: 2145
    Откуда: Ростов-на-Дону
    Дата регистрации: 08.01.2002
    2 Joys

    1. Подсветки нет... не то нажал?
    2. Выявляется проблема с табуляциями из фокса. В оригинале фокс отображает вот так:

    IF liTemplateColumns = lnTemplateColumnsCount && Доп. колонки добавлялись к последней колонке данных
    ____oTargetRange = oTargetRange.Resize(oTargetRange.Rows.Count, oTargetRange.Columns.Count+lnMergedColumns)
    ____EXIT
    ENDIF

    ... т.е. ровно с равномерными отступами
    Загрузилось в разброс... Это лечится?
    Ratings: 0 negative/0 positive
    RE: test new
    Равиль

    Сообщений: 6459
    Откуда: Уфа
    Дата регистрации: 01.08.2003
    Всем привет !
    Пробую вставить гиперссылку:
    Фокс Клуб
    Ratings: 0 negative/0 positive


    Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

    On-line: 1 (Гостей: 1)

    © 2000-2022 Fox Club 
    Яндекс.Метрика