for flooders
:: Главная :: Решения :: Статьи :: Сайт М. Дроздова :: Файловый архив :: Книга по VFP 9 :: Русский Help Online :: OFF-LINE Форум
   Лисоводы   всех   стран,  объединяйтесь !!!  

Список Форумов  :: Про сайт Клуба
  

test new
Joys
Автор

Сообщений: 3308
Откуда: Старая Русса
Дата: 12.09.03 19:33:09
жирный
курсив
зачеркнуты
подчеркнутый
по центру

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

  • RE: test new f
    Joys
    Автор

    Сообщений: 3308
    Откуда: Старая Русса
    Дата: 12.09.03 23:06:05
    /* 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
    Откуда: Ростов-на-Дону
    Дата: 15.09.03 08:45:55
    Ну, тест так тест

    *!*	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
    Откуда: Ростов-на-Дону
    Дата: 15.09.03 08:50:04
    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
    Равиль

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



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

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

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