Экспорт данных из текстового файла

Тема в разделе "Lotus - Программирование", создана пользователем SOFTOBZOR.ru, 5 окт 2006.

Статус темы:
Закрыта.
  1. SOFTOBZOR.ru

    SOFTOBZOR.ru Гость

    Люди добрые, наверняка кто-то сталкивался с подобной необходимостью.
    Есть БД в нее нужно затолкать кучу значений из текстового файла
    И соответственно создать новые документы по этим значениям.

    Структура текстовика:

    Москва
    Питер
    Пенза
    ....
    ....

    Как прикрутить кнопку и пропихнуть все в БД, что бы для каждого значения создался свой док, может ли ктонибудь поделится примерчиком для размышления.
     
  2. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Обычный импорт не пойдет ?
     
  3. DNT

    DNT Постоялец форума
    Lotus team

    Регистрация:
    12 окт 2005
    Сообщения:
    592
    Симпатии:
    7
    Не понятно в чём вопрос. Как работать с файлом? Или как создавать новые документы?
    Если и то и другое то примерно вот так:

    ...

    file = Workspace.OpenFileDialog( False, "File List", "Text document|*.txt", "c:")

    If Trim(file(0)) = "" Then
    Messagebox "Файл не выбран.",0+16,"Error"
    Exit Sub
    End If

    fileNum% = Freefile()
    Open Cstr(file(0)) For Input As fileNum%
    Do While Not Eof(fileNum%)
    Line Input #fileNum%, ln$
    Set Doc = New NotesDocument (DB)
    Doc.Form = "Имя формы"
    Doc.City = ln$
    Call Doc.Save(True, True)
    Loop
    Close fileNum%
    ...
    Вот и всё.
    Форма "Имя формы" у тебя конечно должна быть в базе, в ней поле "City".
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей