powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Импорт большого количества текстовых файлов в базу данных
14 сообщений из 14, страница 1 из 1
Импорт большого количества текстовых файлов в базу данных
    #39861307
Zafar Z
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Имеется более тысячи текстовых файлов, можно ли реализовать импорт в MS Access или в другую базу данных одним разом все эти файлы?

Файлы состоят из текста:

С:\DB\ 1.txt, 2.txt .... 1500.txt


И в результате должна формироваться база в нижеприведенной структуре :


ID(Integer)

1
2
3
*
1500

Поле 1(text)

данные состоящие из файла 1.txt
данные состоящие из файла 2.txt
данные состоящие из файла 3.txt
данные состоящие из файла *.txt
данные состоящие из файла 1500.txt

Можете также предложить готовые конвертеры для быстрой реализации данной задачи.
...
Рейтинг: 0 / 0
Импорт большого количества текстовых файлов в базу данных
    #39861341
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Покажите, как выглядят файлы изнутри, и как они должны после выглядеть в таблице (на примере 2-3 файлов).
...
Рейтинг: 0 / 0
Импорт большого количества текстовых файлов в базу данных
    #39861343
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Все файлы в одну папку и
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Set fso = CreateObject("Scripting.FileSystemObject")
        for i=1 to 1500
            Set txt = fso.OpenTextFile("путь к папке\" & i & ".txt", 1)
            'цикл по строкам txt 
                 Do While Not txt.AtEndOfStream
                     mytext = Trim(txt.ReadLine)
                    ' записываем значение стринга mytext куда нам надо
                  Loop
       next i
...
Рейтинг: 0 / 0
Импорт большого количества текстовых файлов в базу данных
    #39861357
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Serg197311Все файлы в одну папку
обычно действую по схеме
- файлы находятся в своих подкаталогах
- делаю сначала один файл тхт с дополнительным полем имяПорции
- импортирую в рабочую таблицу со структурой , где все поля -текстовые
- контроль на сдвиг(при нескольких полях) и /или допустимость значений
- иногда мелкая правка
- только после этого запись в основную таблицу

-----уж очень текстовики иногда бывают некорректными-----
таким же порядком делаю импорт из множества ексель - файлов
...
Рейтинг: 0 / 0
Импорт большого количества текстовых файлов в базу данных
    #39861364
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ПЕНСИОНЕРКАSerg197311Все файлы в одну папку
обычно действую по схеме
.........
А так и лучше еще
А вообще Akina правильно спросил - кто ж его знает что в тех файлах понаписано.... посмотреть надо сначала....
...
Рейтинг: 0 / 0
Импорт большого количества текстовых файлов в базу данных
    #39861417
Zafar Z
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Akina,
Даже если внутри этих файлов (html файлы) множество конечных строк (или переходных строк) мне надо импортировать один файл в одну запись в одной колонке !
...
Рейтинг: 0 / 0
Импорт большого количества текстовых файлов в базу данных
    #39861422
Zafar Z
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Serg197311,
Это макрос в MS Ассess? , или подскажите в каком языке его использовать?
...
Рейтинг: 0 / 0
Импорт большого количества текстовых файлов в базу данных
    #39861425
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Это кусок кода на VBA(Access,Excell etc.), построчно читающий текстовые файлы с именами от 1.txt до 1500.txt, помещенные в одну папку. Сам по себе работать не будет, его надо прикрутить к нужному месту.
...
Рейтинг: 0 / 0
Импорт большого количества текстовых файлов в базу данных
    #39861426
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Zafar Z , не понял... Вы хотите ВЕСЬ ФАЙЛ (все 25 килобайт) положить в поле таблицы, что ли? Ну тогда Serg197311 показа всё, что надо. В цикле: Open, ReadAll, Close, INSERT INTO текущего значения счётчика в ID и прочитанного текста в поле MEMO.
...
Рейтинг: 0 / 0
Импорт большого количества текстовых файлов в базу данных
    #39861430
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ух!!!! почитал файлик! И шо, прям так - в одну ячейку весь текст загнать и все?
...
Рейтинг: 0 / 0
Импорт большого количества текстовых файлов в базу данных
    #39861438
ROI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Zafar Z,

А сохранять-то HTML или текст из него?
...
Рейтинг: 0 / 0
Импорт большого количества текстовых файлов в базу данных
    #39861440
ROI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Zafar ZДаже если внутри этих файлов (html файлы)
Это как понять?
...
Рейтинг: 0 / 0
Импорт большого количества текстовых файлов в базу данных
    #39861459
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Zafar ZAkina,
Даже если внутри этих файлов (html файлы) множество конечных строк (или переходных строк) мне надо импортировать один файл в одну запись в одной колонке !

https://www.sql.ru/forum/actualfile.aspx?id=21970216] Приложенный файл (view_sanadhoview2882.html - 25Kb)
строк в файле много, но НТМ позволяет работать с одной строкой, сам разбивая файл на подстроки
авторПРАВИТЕЛЬСТВО РЕСПУБЛИКИ ТАДЖИКИСТАН

РЕШЕНИЯ

Об утверждении Государственной программы развития бюджета Республики Таджикистан на 2009-2018 годы

В соответствии со статьей 7 Закона Республики Таджикистан «О государственных прогнозах, концепциях, стратегиях и программах социально-экономического развития Республики Таджикистан» Правительство Республики Таджикистан постановляет:

...
...
председатель

Правительство Республики Таджикистан Эмомали Рахмон
поэтому читаем файл, объединяем подстроки через пробел и записываем результат обработки текущего файла в мемо-поле

Set fso = CreateObject("Scripting.FileSystemObject")
for i=1 to 1500
Set txt = fso.OpenTextFile("путь к папке\" & i & ".txt", 1)
stroka=""
'цикл по строкам txt
Do While Not txt.AtEndOfStream
mytext = Trim(txt.ReadLine)
stroka=stroka & mytext & " "
' записываем значение стринга mytext куда нам надо
Loop
'' а здесь записываем в таблицу

next i
...
Рейтинг: 0 / 0
Импорт большого количества текстовых файлов в базу данных
    #39861463
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Zafar Z,

хотя мемо - поле позволяет иметь внутри себя и служебные символы с кодами 7,10,11,13
...
Рейтинг: 0 / 0
14 сообщений из 14, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Импорт большого количества текстовых файлов в базу данных
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]