Импорт из txt

@Dabsidiya · Регистрация: 24.07.2017

Студворк — интернет-сервис помощи студентам

Есть текстовый файл с ключевыми словами
После данного слова идет текст
каждый такой случай разделен пустой строкой
Как перенести в access такой файл чтобы каждый такой случай был в отдельном поле?

Пример :
Начало
Программы 3D-графики вкупе с нейросетями достигли такого качества, что фейковое видео практически неотличимо от настоящего. Скоро нельзя будет сказать с уверенностью, что человек на экране телевизора — настоящий политик, а не компьютерная симуляция.

Основа : Теперь при обучении программы используются не только фотографии, но ещё видеоролики, так что обучение стало гораздо эффективнее. Для демонстрации технологии учёные выбрали известного персонажа — бывшего американского президента Барака Обаму. Это грамотный выбор, потому что в интернете огромное количество HD-видеоматериала с ним. Для обучения нейросети доступны миллионы кадров видео.

Конец.Нейросеть изучила во всех деталях особенности мимики Обамы: движения губ при каждом звуке, появление морщинок около глаз, изменения формы бровей и наклона головы. Мимику подопытного персонажа связали со звуками, которые он произносит: нейросеть обработала не только кадры видеороликов, но и звуковые дорожки к ним.
первые слова это ключевые

mobile · 28.07.2017, 10:05

Сообщение от Dabsidiya

Выводит ключевые слова, а не информацию под ключевыми словами.

Чтобы выводился текст, а не только ключевые слова, надо в коде в сообщении #6 заменить строку 23: rst(k) = w(j) на

Visual Basic
1
rst(k) = Replace(p(i), "|||", vbcrlf")

Поля Поле1, Поле2, Поле3 должны быть типа Memo или Длинный текст. Но не текстовыми

@Dabsidiya · 28.07.2017, 12:26 **[ТС]**

Большое спасибо,но не может найти ключевое слово Accessories

shanemac51 · 28.07.2017, 12:46

может вы поле в таблице обозвали по другому, а не Accessories

mobile · 28.07.2017, 12:54

Сообщение от Dabsidiya

не может найти ключевое слово Accessories

Потому что в присланном файле перед Accessories стоят разделители "|||", которых наверняка нет в оригинальном файле. Надо их удалить из текстового файла

И в прошлом сообщении я сделал описку - не должно быть кавычки после vbcrlf, зачеркните ее

Visual Basic
1
rst(k) = Replace(p(i), "|||", vbcrlf)

@Dabsidiya · 28.07.2017, 13:44 **[ТС]**

Сообщение от mobile

Потому что в присланном файле перед Accessories стоят разделители "|||", которых наверняка нет в оригинальном файле. Надо их удалить из текстового файла

Огромное спасибо за помощь,сама бы не справилась
Все работает)
Только можно как-то задать еще чтобы делало поле с именем.
Оно находится то в 6 то 7 строке
Можно просто и 6 и 7ю сразу

shanemac51 · 28.07.2017, 13:48

что-то я не пойму, что надо получить -- из текстовика 1 строку

zkod	Price	Accessories	Manufacturer
44	$100.00 (13%)	AMD Ryzen 5 1400 Quad-Core Processor (Up to 3.4GHZ) NVIDIA GeForce GTX 1050 Graphics with 2GB of GDDR5 Video Memory 8GB DDR4 2400MHz Memory 1TB 7200RPM SATA3 Hard Drive Windows 10 Home	One AMD Place P.O. Box 3453 Sunnyvale, CA 94088-3453

mobile · 28.07.2017, 23:21

Сообщение от Dabsidiya

можно как-то задать еще чтобы делало поле с именем.
Оно находится то в 6 то 7 строке
Можно просто и 6 и 7ю сразу

Не понял, как найти наименование. Хоть бы сказали какие слова надо искать в выложенном файле. Поэтому сделал так: в таблице должно еще одно поле Наименование (мемо). В это поле помещается все, что есть в файле до первого ключевого слова.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub keyword()
    Dim s, s0, s1, p, w, i, j, k
    Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("select * from Таблица1")
    
    'Читаем текстовый файл и собираем в переменную.
    'Строки разделяем набором символов "|||",чтобы не было случайных совпадений
    Open "C:\Users\5555\Desctop\00001.txt" For Input As #1
    Do While Not EOF(1)
        Line Input #1, s0
        s = s & "|||" & s0
    Loop
    Close #1
    
    s = "|||" & s
    w = Array("Price", "Accessories", "Manufacturer") 'Массив ключевых слов
    p = Split(s, "||||||")
    rst.AddNew
    For i = 0 To UBound(p) 'Проверка на соответствие ключевым словам
        For j = 0 To UBound(w)
            If w(j) = Left(p(i), Len(w(j))) Then
                k = k + 1
                rst(k) = Replace(p(i), "|||", vbCrLf)
            End If
        Next
        If Val(k) = 0 Then
            s1 = s1 & Replace(p(i), "|||", "")
        End If
    Next
    rst!Наименование = s1
    If k > 0 Then rst.Update 'Если есть хоть одно соответствие, пишем в таблицу
    
End Sub

Новые блоги и статьи Все статьи Все блоги /
Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .

@Dabsidiya 0 / 0 / 0 Регистрация: 24.07.2017 Сообщений: 11

	Импорт из txt 24.07.2017, 17:17. Показов 2175. Ответов 26 Метки нет (Все метки) Есть текстовый файл с ключевыми словами После данного слова идет текст каждый такой случай разделен пустой строкой Как перенести в access такой файл чтобы каждый такой случай был в отдельном поле? Пример : Начало Программы 3D-графики вкупе с нейросетями достигли такого качества, что фейковое видео практически неотличимо от настоящего. Скоро нельзя будет сказать с уверенностью, что человек на экране телевизора — настоящий политик, а не компьютерная симуляция. Основа : Теперь при обучении программы используются не только фотографии, но ещё видеоролики, так что обучение стало гораздо эффективнее. Для демонстрации технологии учёные выбрали известного персонажа — бывшего американского президента Барака Обаму. Это грамотный выбор, потому что в интернете огромное количество HD-видеоматериала с ним. Для обучения нейросети доступны миллионы кадров видео. Конец.Нейросеть изучила во всех деталях особенности мимики Обамы: движения губ при каждом звуке, появление морщинок около глаз, изменения формы бровей и наклона головы. Мимику подопытного персонажа связали со звуками, которые он произносит: нейросеть обработала не только кадры видеороликов, но и звуковые дорожки к ним. первые слова это ключевые 0

@Dabsidiya 0 / 0 / 0 Регистрация: 24.07.2017 Сообщений: 11
	28.07.2017, 12:26 [ТС]
	Большое спасибо,но не может найти ключевое слово Accessories Миниатюры 0

shanemac51 Модератор 12512 / 5086 / 814 Регистрация: 07.08.2010 Сообщений: 14,971 Записей в блоге: 4
	28.07.2017, 12:46
	может вы поле в таблице обозвали по другому, а не Accessories 1