Перенести текст в Базу данных

[demiancz]

Люди. Подскажите пожалуйста как перенести текст в базу данных Access.
Например имеем базу данных с полями key1, Фамилия, Год рождения и имеем текстовый файл, например spisok.txt. В этом текстовом файле в строку написано:
<Иванов Иван Иванович><24.05.1964>
<Семенов Сергей Николаевич><15.01.1972>
и т. д.
Вот нужно перенести Иванов Иван Иванович в поле Фамилия БД, а 24.05.1964 в поле Год рождения. И т. д.
Помогите пожалуйста!!!

[demiancz]

перенос текста я уже нашел. Подскажите пожалуйста как теперь мне поудалять в текстовом файле ненужные символы "<" ">" ну и т.д. и вставить между ФИО и годом рождения запятую чтобы получить возможность импортировать в БД Access

[Valio]

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

Например убирать '<' и '>', или сформировать абсолютно любую структуру.

К примеру можно сформировать фаил с новой структурой:

insert into table_name (id, fam, god) values('Иванов Иван Иванович','24.05.1964');
insert into table_name (id, fam, god) values('Семенов Сергей Николаевич','15.01.1972');

Кароче скажи как написать новые запросы и сформировать эти запросы не составит труда.

[demiancz]

Думаю былобы хорошо что бы просто убирать '<' и '>' Тоесть чтобы была одна строка
Пример:
До нажатия на кнопку текст <Иванов Иван Иванович><24.05.1964>
После
Иванов Иван Иванович 24.05.1964

только чтобы между ними пробел был вместо "><"

[Serge_Bliznykov]

ну и что смущает?
Читаете текстовый файл (например, через TStringLis.LoadFromFile)
построчно
парсите и через ADOQuery, используя SQL с параметрами (insert into ) заносите данные в БД.


Добавлено
упс...
Пока писал, уже тему раскрыли..

[Valio]

Всё просто )

Function FormerS(S : String) : String;
Var
  i : Integer;
  N : String;
Begin
N := '';
Insert(' ', S, Pos('><', S));
For i := 1 To Length(S) Do
  Begin
    If (S[i] = '<') Or (S[i] = '>') Then Continue;
    N := N + S[i];
  End;
Result := N;
End;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var
  AOld, ANew : TextFile;
  P : String;
Begin
If FileExists(Edit1.Text) = True Then
  Begin
    AssignFile(ANew, 'out.txt');
    AssignFile(AOld, Edit1.Text);
    Rewrite(ANew);
    Reset(AOld);
    While Not Eof(AOld) Do
      Begin
        Readln(AOld, P);
        Writeln(ANew, FormerS(P));
      End;
    CloseFile(AOld);
    CloseFile(ANew);
  End
Else
  Begin
    ShowMessage('Фаил базы [' + Edit1.Text + '] не найден.');
  End;
End;

[Serge_Bliznykov]

demiancz
Если список не секретный, возьмите список (если он большой - достаточно несколько десятков строк, хотя, можете и весь список взять, это не проблема), возьмите пустую БД с таблицей с нужной структурой, запакуйте эти файлы в архив и архив прикрепите к сообщению на форуме.

Если же содержимое списка не для широкого круга зрителей (мы же не хотим нарушить закон о защите персональных данных?! ) - тогда возьмите несколько строк, забейте реальные данные на что-нибудь абстрактное, только обязательно сохраните структуру (т.е. там, где буквы, должны быть буквы, где цифры - цифры, где знаки препинания - там знаки препинания.

Думаю, что смогу написать Вам готовый код.

[demiancz]

Вот файл. Нужно чтобы в базу данных отбирало в одно поле ссылку, во второе название фильма.

[demiancz]

Все. Походу сам начинаю понимать. Выспаться просто надо.

[Serge_Bliznykov]

demiancz
ну и отлично. Удачи.

Обратите внимание, что текстовый файл у Вас в Unicode (UTF-16)
Его в Delphi версии < 2009 надо правильно прочитать.
вот, рекомендую, от GunSmoker полезная статеечка + компонент:
Работа с текстовыми файлами в любой кодировке из Delphi до 2009


а ещё лучше - пишите под .NET (например, на C#) - там такой формат "родной"...