VPF::Парсинг - Форум программистов

Frees

Дата 3.2.2006, 08:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 2
Всего: 54

Привет всем.

У меня есть большая сводная таблица мне нужно привести ее к нормальной форме,
одна из проблем при разбивке на отдельные таблицы это необходимость разбить одно поле на несколько, причем записи в ентом поле не всегда однородны.

Если у когонить есть наработки или идеи в этом вопросе поделитесь

--------------------

Кольцов Виктор Владимирович

Akina

Дата 3.2.2006, 09:56 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 13
Всего: 454

Полный список возможных шаблонов заполнения и алгоритм деления на части пожалуйста.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Frees

Дата 3.2.2006, 10:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 2
Всего: 54

вот типичные запис

>Роликовый радиальный однорядный
>Шариковый упорный одинарный
>Игольчатый без внутреннего кольца с сепаратором
>Игольчатый радиальный однорядный без внутреннего кольца и сепаратора

каждая характеристика должна находиться в разных столбцах

--------------------

Кольцов Виктор Владимирович

Akina

Дата 3.2.2006, 10:31 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 13
Всего: 454

Это ты что, семантический анализ захотел? не-е-е...

Придется руками потопать - набрать словарь лексем:

роликовый
шариковый
игольчатый
радиальный
упорный
однорядный
одинарный
без внутреннего кольца с сепаратором
без внутреннего кольца и сепаратора

и потом по вхождению выделять и раскидывать по столбцам. Есссно для лексем описАть номер столбца лексемы...

Т.е. типа:

Код


for i = 1 to Table.RowCount
  TempString = Table.Row(i)
  for j = 1 to ColumnCount
    Column(i,j) = ""
    for k = 1 to Vocabulary(j).RowCount
      if instr(TempString, Vocabulary(j,k)) > 0 then
        Column(i,j) = Vocabulary(j,k)
        TempString = Replace(TempString, Vocabulary(j,k), "")
      end if
    next k 
  next j
  if trim(TempString) <> "" then
    NewLexems(n) = trim(TempString)
    n=n+1
  end if
next i

Это сообщение отредактировал(а) Akina - 3.2.2006, 10:41

--------------------

Frees

Дата 3.2.2006, 10:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 2
Всего: 54

Akina спасибо за помощ smile

--------------------

Кольцов Виктор Владимирович

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| СУБД, общие вопросы \| Следующая тема »