Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » 2010 - [решено] удалить из строчки числа, где более 4 цифр

Ответить
Настройки темы
2010 - [решено] удалить из строчки числа, где более 4 цифр

Старожил


Сообщения: 251
Благодарности: 0


Конфигурация

Профиль | Отправить PM | Цитировать


Вложения
Тип файла: xlsx testing.xlsx
(9.5 Kb, 2 просмотров)
есть txt файл, он разделен таблуляцией
его путь С:/ мойфайл.txt
его содержимое,я прикрепил.
В поле id
id
какая то фраза
*2108609 fsfhsfghsgfhjdfsdh
3420159 rgyaeghpiudarsfghpuashg 900г
2030918 Пhsapsgiju[aeri 180г
2013077 a[osdig[aodifg[ad

из строчек, где у чисел больше чем 4 цифр удалять такие числа из строчки

т.е на выходе
id
какая то фраза
fsfhsfghsgfhjdfsdh
rgyaeghpiudarsfghpuashg 900г
Пhsapsgiju[aeri 180г
a[osdig[aodifg[ad

Как это сделать средствами VBA? там много строчек.

Отправлено: 15:52, 13-10-2018

 

Ветеран


Contributor


Сообщения: 23118
Благодарности: 6731

Профиль | Отправить PM | Цитировать


Цитата kontox:
его содержимое,я прикрепил. »
Вы прикрепили файл *.xlsx, а не *.txt.

Цитата kontox:
средствами VBA? »
Зачем именно VBA? Я бы работал непосредственно с текстовым файлом посредством WSH.

В любом случае, и там, и там код будет практически идентичен. На VBA для приложенной Рабочей книги:
Код: Выделить весь код
Option Explicit

Sub Sample()
    Dim objRange As Range

    With CreateObject("VBScript.RegExp")
        .Pattern = "\d{5,}"
        .Global = True
        
        For Each objRange In Intersect(ThisWorkbook.Worksheets.Item("Лист1").UsedRange.Offset(1, 0), ThisWorkbook.Worksheets.Item("Лист1").Columns("G"))
            objRange.Value = .Replace(objRange.Value, "")
        Next objRange
    End With
End Sub

Последний раз редактировалось Iska, 14-10-2018 в 18:14. Причина: Поправил некорреткно скопированную кириллицу в имени Рабочего листа: Ëèñò1 → Лист1

Это сообщение посчитали полезным следующие участники:

Отправлено: 20:10, 13-10-2018 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Старожил


Сообщения: 251
Благодарности: 0

Профиль | Отправить PM | Цитировать


Iska, все ок)

Отправлено: 15:59, 14-10-2018 | #3



Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » 2010 - [решено] удалить из строчки числа, где более 4 цифр

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Любой язык - [решено] Удалить (перенести) все папки, кроме начинающихся с цифры (цифр) Wrongbee Скриптовые языки администрирования Windows 5 04-05-2018 16:50
Интерфейс - Как отключить бесполезные строчки из подречной менюшки? sssjajjasa Microsoft Windows 8 и 8.1 2 24-07-2013 15:06
[решено] Посыл строчки из текстового файла и удаление ее socap AutoIt 0 07-02-2012 08:02
CMD/BAT - [решено] Убрать строчки с pause из батника game_Racer Скриптовые языки администрирования Windows 3 18-06-2011 16:27
CMD/BAT - [решено] удалить строчки из файла a.txt spilberg Скриптовые языки администрирования Windows 19 20-07-2009 17:49




 
Переход