Я не знаю «стандартного» поиска и замены, но это будет работать точно так же. Вы когда-нибудь запускали VBScript против одной из ваших моделей? Если нет, дайте мне знать, но если это так, попробуйте один из них:
для концептуальной модели:
Set mdl=ActiveModel
FOR EACH TAB IN MDL.Entities
IF (not tab.isShortcut) THEN
FOR EACH COL IN TAB.ATTRIBUTES
IF COL.DATATYPE = "TXT" THEN
COL.DATATYPE = "VA20"
END IF
NEXT
END IF
NEXT
По сути, он будет смотреть на все атрибуты всех ваших сущностей, и если тип данных - «TXT» (текст), он изменит его на «VA20» (переменный символ (20)).
Для физической модели:
Set mdl=ActiveModel
FOR EACH TAB IN MDL.Tables
IF (not tab.isShortcut) THEN
FOR EACH COL IN TAB.COLUMNS
IF COL.DATATYPE = "TEXT" THEN
COL.DATATYPE = "NVARCHAR(20)"
END IF
NEXT
END IF
NEXT