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

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

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

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

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

Так в коде будет?
Код: vbnet
1.
"^(usage:) (.+?)[\s]$"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.03.2017, 23:47
    #39426880
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выбрать фрагменты текста
^ и $ - это начало и конец строки, там точно есть строки?
первые круглые и квадратные скобки тоже лишние
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.03.2017, 00:01
    #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, 11:55
    #39426963
Alibek B
Alibek B
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выбрать фрагменты текста
Этот хлам только в мусор.
Даже регулярные выражения в этой задаче не столь глупы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.03.2017, 13:32
    #39427015
BlackeAngel
BlackeAngel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выбрать фрагменты текста
Alibek B.,

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

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


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