|
12.03.2011, 22:00 | #1 |
Administrator
|
получилось что-то вроде такого:
Цитата:
F.TEXTMODE(TRUE);
F.OPEN(FileName); F1.CREATE(NewFileName); F1.TEXTMODE(TRUE); F1.WRITEMODE(TRUE); REPEAT CLEAR(fString); F.READ(fString); IF TRIM(fString) = 'FIELDGROUPS' THEN _LineCounter := 3; IF _LineCounter = 0 THEN F1.WRITE(fString) ELSE _LineCounter -=1; UNTIL F.POS = F.LEN; F.CLOSE; F1.CLOSE; TRIM: EXIT(DELCHR(str,'=',' ')); |
|
29.03.2011, 23:42 | #2 |
Участник
|
Если правильно понял, пользуете две версии навика 2009 и 5 сразу причем база одна.
Удовлетворите любопытство, ради чего полезли в 2009 ? Неужто ролевой интерфейс таки соблазнил ? Мое устойчивое ИМХО, что чем больше Microsoft запускает свои ручонки в Nav тем меньше действительно полезных вещей там появляется. Зато устойчиво тянут к покупке других своих продуктов. Обрезали родную базу, тянут за уши к С#.... |
|