ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выбрать фрагменты текста
17 сообщений из 17, страница 1 из 1
Выбрать фрагменты текста
    #39426638
BlackeAngel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BlackeAngel
Гость
Всем привет. Надо выбрать из файла фрагменты текста начинающиеся с "usage:", а вот чем заканчивается это как повезет. И весь фрагмент будет состоять из одного слова. Таких кусков в тексте полно. Например, usage: dd, usage: acpi и т.д.
Надо выбрать именно эти dd, acpi и т.д.
Как это сделать?
Исходный файл прилагаю.
...
Рейтинг: 0 / 0
24.03.2017, 16:06
| Ответить | Цитировать | Написать  
Выбрать фрагменты текста
    #39426691
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Внутри архива файл без расширения и явно не текстовый. Предлагается погадать на ромашке?
...
Рейтинг: 0 / 0
24.03.2017, 17:28
| Ответить | Цитировать | Написать  
Выбрать фрагменты текста
    #39426698
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
BlackeAngelНадо выбрать из файла фрагменты текстахотел дать ссылку на недавнюю тему, где решали аналогичную задачу
http://www.sql.ru/forum/1248427-a/probel-v-imeni-fayla
Внезапно обнаружил, что автор один и тот же...
Задумался.
...
Рейтинг: 0 / 0
24.03.2017, 17:32
| Ответить | Цитировать | Написать  
Выбрать фрагменты текста
    #39426715
BlackeAngel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BlackeAngel
Гость
Shocker.Pro,

А кто сказал что:
1. Будет просто
2. Что файл текстовый?
А поделки - файл глотает как текстовый или как бинарный без разницы. Как определить кусок?Регуляркам пользоваться?
...
Рейтинг: 0 / 0
24.03.2017, 17:45
| Ответить | Цитировать | Написать  
Выбрать фрагменты текста
    #39426719
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
А в какой кодировке, скажем, текст в этом бинарнике?BlackeAngelа вот чем заканчивается это как повезет.это для бинарного файла вообще прекрасно звучит
...
Рейтинг: 0 / 0
24.03.2017, 17:49
| Ответить | Цитировать | Написать  
Выбрать фрагменты текста
    #39426720
BlackeAngel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BlackeAngel
Гость
Shocker.ProВнутри архива файл без расширения и явно не текстовый. Предлагается погадать на ромашке?
Текст в нем есть? Есть. Нотпадом отлично открывается. Кривульки в расчет не берем, выуживаем то что похоже на нужное. Если, повторюсь, регуляркам, то каков шаблон будет? Ведь конца строки определенной нет, а в течении одной строки может встречаться несколько раз нужное.
Просто не знаю в какую сторону рыть.
...
Рейтинг: 0 / 0
24.03.2017, 17:49
| Ответить | Цитировать | Написать  
Выбрать фрагменты текста
    #39426724
BlackeAngel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BlackeAngel
Гость
Shocker.ProА в какой кодировке, скажем, текст в этом бинарнике?BlackeAngelа вот чем заканчивается это как повезет.это для бинарного файла вообще прекрасно звучит
Текст скорее всего в ансии. Ну сами посмотрите, где заканчивается "-", где "[" где еще чем-нибудь.
...
Рейтинг: 0 / 0
24.03.2017, 17:52
| Ответить | Цитировать | Написать  
Выбрать фрагменты текста
    #39426728
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
BlackeAngelНу сами посмотрите, где заканчивается "-", где "[" где еще чем-нибудь.так это мне надо или тебе? Определись, что ты считаешь концом слова.

Не знаю, как регулярки воспримут бинарник с хламом, надо пробовать
...
Рейтинг: 0 / 0
24.03.2017, 17:55
| Ответить | Цитировать | Написать  
Выбрать фрагменты текста
    #39426733
BlackeAngel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BlackeAngel
Гость
Shocker.ProBlackeAngelНу сами посмотрите, где заканчивается "-", где "[" где еще чем-нибудь.так это мне надо или тебе? Определись, что ты считаешь концом слова.

Не знаю, как регулярки воспримут бинарник с хламом, надо пробовать
Вам надо посмотреть, чтобы понять.
Еще надо смотреть как скушает это все хозяйство.
Хлам можно убрать перебором. Это не беда. То что потом останется, вот беда. И это будет текст.
...
Рейтинг: 0 / 0
24.03.2017, 18:02
| Ответить | Цитировать | Написать  
Выбрать фрагменты текста
    #39426739
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
BlackeAngelВам надо посмотретьВам надо взять меня на работу, чтобы можно было говорить, что мне надо делать.

А пока предлагаю поэкспериментировать самостоятельно, направление задано, появятся конкретные проблемы - пиши.
...
Рейтинг: 0 / 0
24.03.2017, 18:12
| Ответить | Цитировать | Написать  
Выбрать фрагменты текста
    #39426813
BlackeAngel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BlackeAngel
Гость
Shocker.Pro,
Примерный шаблон такой "usage: что-там " последний символ какой есть это пробел, он ограничивает наше слово.
То есть такой шаблон получился:
usage:пробелЧто-тоПробел

Так в коде будет?
Код: vbnet
1.
"^(usage:) (.+?)[\s]$"
...
Рейтинг: 0 / 0
24.03.2017, 20:31
| Ответить | Цитировать | Написать  
Выбрать фрагменты текста
    #39426880
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
^ и $ - это начало и конец строки, там точно есть строки?
первые круглые и квадратные скобки тоже лишние
...
Рейтинг: 0 / 0
24.03.2017, 23:47
| Ответить | Цитировать | Написать  
Выбрать фрагменты текста
    #39426882
BlackeAngel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BlackeAngel
Гость
Shocker.Pro,
Все там нашлось. Пришлось костылями работать. Вот так вот
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
F = FreeFile
Open App.Path & "\toybox" For Binary Access Read As #F
l = LOF(F)
m = String(l, vbNullChar)
Get F, , m
Close #F
'чистим мусор
For i = 0 To 32
    If i <> 10 Or i <> 13 Then
        m = Replace(m, Chr(i), " ")
    End If
Next i
 m = Replace(m, " usage: ", vbLf)
 S = Split(m, vbLf)
 ReDim arr5(UBound(S))
 For i = 1 To UBound(S)
  If InStr(S(i), " ") > 0 Then
    arr5(i) = Left(S(i), InStr(S(i), " "))
  End If
 Next
...
Рейтинг: 0 / 0
25.03.2017, 00:01
| Ответить | Цитировать | Написать  
Выбрать фрагменты текста
    #39426963
Alibek B
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alibek B
Участник
Этот хлам только в мусор.
Даже регулярные выражения в этой задаче не столь глупы.
...
Рейтинг: 0 / 0
25.03.2017, 11:55
| Ответить | Цитировать | Написать  
Выбрать фрагменты текста
    #39427015
BlackeAngel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BlackeAngel
Гость
Alibek B.,

Ваше решение в студию в таком случае
...
Рейтинг: 0 / 0
25.03.2017, 13:32
| Ответить | Цитировать | Написать  
Выбрать фрагменты текста
    #39427035
Alibek B
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alibek B
Участник
Все нужное можно сделать с помощью InStr.
Причем это будет и быстрее любого другого способа.
...
Рейтинг: 0 / 0
25.03.2017, 14:56
| Ответить | Цитировать | Написать  
Выбрать фрагменты текста
    #39427121
BlackeAngel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BlackeAngel
Гость
Alibek B.,

Оч интересно. Покажите как.
...
Рейтинг: 0 / 0
25.03.2017, 21:20
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выбрать фрагменты текста
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=39426963&tid=2155307]:
 0ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 58ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 317ms
total:  460ms
созд. / загр.: 460ms
x
x
Закрыть


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