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

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

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

    Сообщений: 3509
    Откуда: Старая Русса
    Дата регистрации: 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
    Равиль

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


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

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

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