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

  • Автор темы SOFTOBZOR.ru
  • Дата начала
Статус
Закрыто для дальнейших ответов.
S

SOFTOBZOR.ru

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

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

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

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

DNT

Постоялец форума
Lotus team
12.10.2005
590
2
#3
Не понятно в чём вопрос. Как работать с файлом? Или как создавать новые документы?
Если и то и другое то примерно вот так:

...

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".
 
Статус
Закрыто для дальнейших ответов.