Нужно поменять Owner Name в файлах tps

[kreator]

Много файлов, да и ещё у клиентов. Есть какая-то идея упростить работу? Или писать тупой конвертер?

[Губин Игорь]

Тупо писать...

[finsoftrz]

Можно тупой шаблон...

[Губин Игорь]

Можно тупой шаблон...

Шаблон дольше писать, если файлов меньше полусотни. Пример: конвертер, который генерит словарь, полон глюков.

[finsoftrz]

От опыта зависит. Пишешь конвертер на один файл, затем превращаешь его в шаблон.

[Губин Игорь]

От опыта зависит. Пишешь конвертер на один файл, затем превращаешь его в шаблон.

"Какой ты умный, это что-то!"

Там же надо проходить по всем переменным и генерить в зависимости от типа... :=: или = не во всех случаях помогает.

Не помню, кажется глюк с присвоением GROUP в рантайме исправили, но не проверял.

[Губин Игорь]

Как вариант, можно попробовать через WHO/WHAT и т.п., но надо смотреть.

[finsoftrz]

Он же овнера хотел поменять только. Задаёшь в промптах старого и нового, натравливаешь на словарь. Структура не меняется. Если с изменением структуры, то могут быть нюансы, если какие заумные вещи использовать. Если только базовые типы данных, то вообще никаких проблем. У меня лет 20 подобной автоматический конвертор работает, включая подъем структуры на несколько версий вперед.

[Губин Игорь]

Задаёшь в промптах старого и нового, натравливаешь на словарь.

Я написал, что для нормального конвертера, универсального, надо пройтись по куче условий и отладить.

Потому и проще, если файлов меньше пары десятков - пройтись ручками.

[gopstop2007]

Пользуюсь такой конструкцией для создании копии любого файла

Код: Выделить всё

   Fields.Init
   
   sourceRec &= pFm_.File{PROP:Record}
   targetRec &= pFm2_.File{PROP:Record}
   LOOP F = 1 TO 999
      IF WHO(targetRec,F) = '' THEN BREAK END
      Fields.AddPair(WHAT(targetRec,F),WHAT(sourceRec,F))
   END
!    LOCK(pFM2_.File)
    STREAM(pFM2_.File)
    SET(pFM_.File)
    Loop while pFM_.Next() = Level:Benign     
        CLEAR(targetRec)
        Fields.AssignRightToLeft()

!        ADD(pFM2_.File)
        IF ~pFM2_.Insert() = Level:Benign
             Message('Ошибка: '& ERRORCODE() &' : '& ERRORFILE(),'Ошибка')
             BREAK
        END
    END
    FLUSH(pFM2_.File)
!    UNLOCK(pFM2_.File)
   Fields.Kill

[kreator]

gopstop2007, а можно поподробнее про конструкцию для копии файла. Файлов, которые нужно конвертить, порядка 300. Хотелось бы автоматизации. Шаблон писать пока не представляю как. Хотел на основе стандартного механизма для одного файла размножить на остальные.

[Губин Игорь]

gopstop2007, а можно поподробнее про конструкцию для копии файла. Файлов, которые нужно конвертить, порядка 300. Хотелось бы автоматизации. Шаблон писать пока не представляю как. Хотел на основе стандартного механизма для одного файла размножить на остальные.

Самое сложное - правильно обрабатывать "сложные" поля. В принципе, всё можно сделать через примитивное присвоение, кроме BLOB

[gopstop2007]

gopstop2007, а можно поподробнее про конструкцию для копии файла. Файлов, которые нужно конвертить, порядка 300. Хотелось бы автоматизации. Шаблон писать пока не представляю как. Хотел на основе стандартного механизма для одного файла размножить на остальные.

Наваял простой пример из своего проекта, упростил (там использовались файлы odbc, memory, tps), оставил только tps.
Просьба к админу бросьте в FAQ.
Пример на C10 ABC

gopstop2007, а можно поподробнее про конструкцию для копии файла. Файлов, которые нужно конвертить, порядка 300. Хотелось бы автоматизации. Шаблон писать пока не представляю как. Хотел на основе стандартного механизма для одного файла размножить на остальные.

Самое сложное - правильно обрабатывать "сложные" поля. В принципе, всё можно сделать через примитивное присвоение, кроме BLOB

С простым присвоением были проблемы, а с BLOB не пробовал )

[Губин Игорь]

да, виноват. Не работал с ABC и не знаком с их библиотеками классов (тут FieldPairsClass).

НО!

The FieldPairsClass has the disadvantage of not handling arrays (because the FieldPairsClass relies on the ANY datatype which only accepts references to simple datatypes). See the Language Reference for more information on the ANY datatype.

Недостаток FieldPairsClass в том, что он не обрабатывает массивы (потому что FieldPairsClass полагается на тип данных ANY, который принимает только ссылки на простые типы данных). Подробнее о типе данных ANY см. в Справочнике по языку.

И, не стал копать, но, похоже, он не обрабатывает Memo и Blob, т.е. то, что вне Record