Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Извлечение из txt - того что стоит справа от ключевого слова - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Извлечение из txt - того что стоит справа от ключевого слова (Макросы/Sub)
Извлечение из txt - того что стоит справа от ключевого слова
yl3d Дата: Вторник, 12.06.2018, 14:38 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 58
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Помогите с решением задачи.

Имеется в общем - текстовый файл "Файл данных.txt", в котором находятся ключевые слова… затем двоеточие… затем какое-то численное или текстовое значение.

Например "текст 5:122" или "третье слово:копирование 1" .
Так вот - макрос экселя должен влезть в этот текстовый документ, отыскать искомое слово и выдать результатом - то что стоит по правую сторону от этого искомого слова после двоеточия.
То есть по ключевому слову "третье слово" он выдаст результат "копирование 1"
А если он не найдет целевого слова - то ничего не выдаст "".

Как макросом или пользовательской функцией - извлекать из данного текстового документа - то содержимое, которое написано по правую сторону от ключевого слова после двоеточия ?
К сообщению приложен файл: 4512642.rar(8.2 Kb)
 
Ответить
СообщениеПомогите с решением задачи.

Имеется в общем - текстовый файл "Файл данных.txt", в котором находятся ключевые слова… затем двоеточие… затем какое-то численное или текстовое значение.

Например "текст 5:122" или "третье слово:копирование 1" .
Так вот - макрос экселя должен влезть в этот текстовый документ, отыскать искомое слово и выдать результатом - то что стоит по правую сторону от этого искомого слова после двоеточия.
То есть по ключевому слову "третье слово" он выдаст результат "копирование 1"
А если он не найдет целевого слова - то ничего не выдаст "".

Как макросом или пользовательской функцией - извлекать из данного текстового документа - то содержимое, которое написано по правую сторону от ключевого слова после двоеточия ?

Автор - yl3d
Дата добавления - 12.06.2018 в 14:38
StoTisteg Дата: Вторник, 12.06.2018, 14:43 | Сообщение № 2
Группа: Авторы
Ранг: Ветеран
Сообщений: 879
Репутация: 73 ±
Замечаний: 0% ±

Excel 2010
Непонятно, при чём тут Эксель - эта задача прекрасно решается регулярными выражениями в любом текстовом редакторе, который их поддерживает, Notepad++, например.


Проверь всё. ThisWorkbook.Save. On Error Resume Next.
 
Ответить
СообщениеНепонятно, при чём тут Эксель - эта задача прекрасно решается регулярными выражениями в любом текстовом редакторе, который их поддерживает, Notepad++, например.

Автор - StoTisteg
Дата добавления - 12.06.2018 в 14:43
StoTisteg Дата: Вторник, 12.06.2018, 14:51 | Сообщение № 3
Группа: Авторы
Ранг: Ветеран
Сообщений: 879
Репутация: 73 ±
Замечаний: 0% ±

Excel 2010
Где-то так:
\r\n[а-я,ё,А-Я,Ё]: меняем на
\r\n


Проверь всё. ThisWorkbook.Save. On Error Resume Next.
 
Ответить
СообщениеГде-то так:
\r\n[а-я,ё,А-Я,Ё]: меняем на
\r\n

Автор - StoTisteg
Дата добавления - 12.06.2018 в 14:51
StoTisteg Дата: Вторник, 12.06.2018, 14:54 | Сообщение № 4
Группа: Авторы
Ранг: Ветеран
Сообщений: 879
Репутация: 73 ±
Замечаний: 0% ±

Excel 2010
А просто средствами Экселя - открываем файл, выставляем : разделителем, удаляем первый столбец.


Проверь всё. ThisWorkbook.Save. On Error Resume Next.
 
Ответить
СообщениеА просто средствами Экселя - открываем файл, выставляем : разделителем, удаляем первый столбец.

Автор - StoTisteg
Дата добавления - 12.06.2018 в 14:54
yl3d Дата: Вторник, 12.06.2018, 15:01 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 58
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Вопрос звучал так:

Как макросом или пользовательской функцией - извлекать из данного текстового документа - то содержимое, которое написано по правую сторону от ключевого слова после двоеточия ?
 
Ответить
СообщениеВопрос звучал так:

Как макросом или пользовательской функцией - извлекать из данного текстового документа - то содержимое, которое написано по правую сторону от ключевого слова после двоеточия ?

Автор - yl3d
Дата добавления - 12.06.2018 в 15:01
StoTisteg Дата: Вторник, 12.06.2018, 15:12 | Сообщение № 6
Группа: Авторы
Ранг: Ветеран
Сообщений: 879
Репутация: 73 ±
Замечаний: 0% ±

Excel 2010
пользовательской функцией
UDF для регэкспов
Регэксп я Вам написал, Оптимизацию под вырванную из контекста задачу делайте сами.


Проверь всё. ThisWorkbook.Save. On Error Resume Next.

Сообщение отредактировал StoTisteg - Вторник, 12.06.2018, 15:13
 
Ответить
Сообщение
пользовательской функцией
UDF для регэкспов
Регэксп я Вам написал, Оптимизацию под вырванную из контекста задачу делайте сами.

Автор - StoTisteg
Дата добавления - 12.06.2018 в 15:12
yl3d Дата: Вторник, 12.06.2018, 15:13 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 58
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
StoTisteg, вопрос был про извлечение текста - из текстового файла, а не из другой ячейки.
 
Ответить
СообщениеStoTisteg, вопрос был про извлечение текста - из текстового файла, а не из другой ячейки.

Автор - yl3d
Дата добавления - 12.06.2018 в 15:13
StoTisteg Дата: Вторник, 12.06.2018, 15:16 | Сообщение № 8
Группа: Авторы
Ранг: Ветеран
Сообщений: 879
Репутация: 73 ±
Замечаний: 0% ±

Excel 2010
Оптимизацию под вырванную из контекста задачу делайте сами


Проверь всё. ThisWorkbook.Save. On Error Resume Next.
 
Ответить
Сообщение
Оптимизацию под вырванную из контекста задачу делайте сами

Автор - StoTisteg
Дата добавления - 12.06.2018 в 15:16
StoTisteg Дата: Вторник, 12.06.2018, 15:17 | Сообщение № 9
Группа: Авторы
Ранг: Ветеран
Сообщений: 879
Репутация: 73 ±
Замечаний: 0% ±

Excel 2010
Или Вам подсказать, как работать с фойлом последовательного доступа?


Проверь всё. ThisWorkbook.Save. On Error Resume Next.
 
Ответить
СообщениеИли Вам подсказать, как работать с фойлом последовательного доступа?

Автор - StoTisteg
Дата добавления - 12.06.2018 в 15:17
yl3d Дата: Вторник, 12.06.2018, 15:18 | Сообщение № 10
Группа: Пользователи
Ранг: Участник
Сообщений: 58
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
StoTisteg, я имею ввиду, что ваш ответ не имеет никакого отношения к моему вопросу.
Большая к вам просьба уйти из моей темы.
 
Ответить
СообщениеStoTisteg, я имею ввиду, что ваш ответ не имеет никакого отношения к моему вопросу.
Большая к вам просьба уйти из моей темы.

Автор - yl3d
Дата добавления - 12.06.2018 в 15:18
StoTisteg Дата: Вторник, 12.06.2018, 15:24 | Сообщение № 11
Группа: Авторы
Ранг: Ветеран
Сообщений: 879
Репутация: 73 ±
Замечаний: 0% ±

Excel 2010
yl3d, отношение к теме эта UDF имеет самое непосредственное. Давайте так. Или Вы спрашиваете, как Вам сделать то, что надо (на этот вопрос ответ дан), или ставите задачу, не похожую на студенческую лабораторку. Решать за Вас элементарные задачки за Ваш зачёт не интересно, особенно при таком стиле общения, будто Вы мой директор, а написание за Вас макросов у меня в трудовом соглашении прописано.


Проверь всё. ThisWorkbook.Save. On Error Resume Next.
 
Ответить
Сообщениеyl3d, отношение к теме эта UDF имеет самое непосредственное. Давайте так. Или Вы спрашиваете, как Вам сделать то, что надо (на этот вопрос ответ дан), или ставите задачу, не похожую на студенческую лабораторку. Решать за Вас элементарные задачки за Ваш зачёт не интересно, особенно при таком стиле общения, будто Вы мой директор, а написание за Вас макросов у меня в трудовом соглашении прописано.

Автор - StoTisteg
Дата добавления - 12.06.2018 в 15:24
yl3d Дата: Вторник, 12.06.2018, 15:39 | Сообщение № 12
Группа: Пользователи
Ранг: Участник
Сообщений: 58
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
StoTisteg, большое спасибо - от вас ничего не требуется - можете мимо проходить.
 
Ответить
СообщениеStoTisteg, большое спасибо - от вас ничего не требуется - можете мимо проходить.

Автор - yl3d
Дата добавления - 12.06.2018 в 15:39
yl3d Дата: Вторник, 12.06.2018, 15:40 | Сообщение № 13
Группа: Пользователи
Ранг: Участник
Сообщений: 58
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Помогите с решением задачи.

Имеется текстовый файл "Файл данных.txt", в котором находятся ключевые слова… затем двоеточие… затем какое-то численное или текстовое значение.

Например "текст 5:122" или "третье слово:копирование 1" .

Как заставить макрос экселя влезть в этот текстовый документ, отыскать искомое слово и выдать результатом - то что стоит по правую сторону от этого искомого слова после двоеточия?
То есть по ключевому слову "третье слово" он выдаст результат "копирование 1"
А если он не найдет целевого слова - то ничего не выдаст "".
К сообщению приложен файл: 9629618.rar(8.2 Kb)


Сообщение отредактировал yl3d - Вторник, 12.06.2018, 15:45
 
Ответить
СообщениеПомогите с решением задачи.

Имеется текстовый файл "Файл данных.txt", в котором находятся ключевые слова… затем двоеточие… затем какое-то численное или текстовое значение.

Например "текст 5:122" или "третье слово:копирование 1" .

Как заставить макрос экселя влезть в этот текстовый документ, отыскать искомое слово и выдать результатом - то что стоит по правую сторону от этого искомого слова после двоеточия?
То есть по ключевому слову "третье слово" он выдаст результат "копирование 1"
А если он не найдет целевого слова - то ничего не выдаст "".

Автор - yl3d
Дата добавления - 12.06.2018 в 15:40
boa Дата: Вторник, 12.06.2018, 15:52 | Сообщение № 14
Группа: Проверенные
Ранг: Участник
Сообщений: 55
Репутация: 7 ±
Замечаний: 0% ±

2013, 2016
yl3d,
положите в папку с текстовым файлом файл
Schema.ini

[Файл данных.txt]
Format=:
ColNameHeader=False
MaxScanRows=200

а потом подключите свой текстовик в Excel
Меню "Данные" -> "из текстового/CSV файла"
к полученной таблице подлукапьтесь (ф-ция ВПР)и получите нужное значение.
К сообщению приложен файл: 4512642.7z(11.6 Kb)




Сообщение отредактировал boa - Вторник, 12.06.2018, 15:53
 
Ответить
Сообщениеyl3d,
положите в папку с текстовым файлом файл
Schema.ini

[Файл данных.txt]
Format=:
ColNameHeader=False
MaxScanRows=200

а потом подключите свой текстовик в Excel
Меню "Данные" -> "из текстового/CSV файла"
к полученной таблице подлукапьтесь (ф-ция ВПР)и получите нужное значение.

Автор - boa
Дата добавления - 12.06.2018 в 15:52
yl3d Дата: Вторник, 12.06.2018, 16:03 | Сообщение № 15
Группа: Пользователи
Ранг: Участник
Сообщений: 58
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
boa, что-то не получается.
Все вроде бы подключил - появилась таблица с разделителем ":"
Но при пересчете - эта таблица не обновляется.
Она как бы - однократно срабатывает и все.
В настройках можно максимум - подключить автообновление через фиксированное время или при открытии файла.

Я почему спрашивал про макрос - потому что макрос можно повесить на пересчет листа.


Сообщение отредактировал yl3d - Вторник, 12.06.2018, 16:10
 
Ответить
Сообщениеboa, что-то не получается.
Все вроде бы подключил - появилась таблица с разделителем ":"
Но при пересчете - эта таблица не обновляется.
Она как бы - однократно срабатывает и все.
В настройках можно максимум - подключить автообновление через фиксированное время или при открытии файла.

Я почему спрашивал про макрос - потому что макрос можно повесить на пересчет листа.

Автор - yl3d
Дата добавления - 12.06.2018 в 16:03
boa Дата: Вторник, 12.06.2018, 16:13 | Сообщение № 16
Группа: Проверенные
Ранг: Участник
Сообщений: 55
Репутация: 7 ±
Замечаний: 0% ±

2013, 2016
yl3d, правой кнопкой мыши по таблице и нажать "Обновить"
или меню "Данные" -> "обновить все"




Сообщение отредактировал boa - Вторник, 12.06.2018, 17:03
 
Ответить
Сообщениеyl3d, правой кнопкой мыши по таблице и нажать "Обновить"
или меню "Данные" -> "обновить все"

Автор - boa
Дата добавления - 12.06.2018 в 16:13
yl3d Дата: Вторник, 12.06.2018, 16:16 | Сообщение № 17
Группа: Пользователи
Ранг: Участник
Сообщений: 58
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
boa, все я разобрался.
Огромное спасибо.
 
Ответить
Сообщениеboa, все я разобрался.
Огромное спасибо.

Автор - yl3d
Дата добавления - 12.06.2018 в 16:16
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Извлечение из txt - того что стоит справа от ключевого слова (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!