Вывод части строки из файла

@Badger · Регистрация: 25.06.2012

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

Привет всем!
Есть файл, с неопределенным количеством (списком) человек, из которого нужно выбрать номер человека и дату, о которой скажу дальше, т.к. в списке куча других дат. Каждый список с данными разделен пустой строкой. Все бы ничего, но колонки в файле могут достигать много тысяч и как выбрать из этих тысяч определенный отрезок с датой я не знаю.
Первых 9 строк в файле можно пропустить.
формат файла таков:

Code
1
2
3
4
5
6
7
8
9
10
11
...первые 9 строк упущены.
$U,U=0000,R=0000,B=0000,N=25,A=11,S=2,L=0,I=1,F="Фамилия Имя Отчество",
 H={D=01\01\2013,A=10,U=001,R=0000,N=25,I=000,
  E={O=50,M={LS[N=25]:(S=2,F="Фамилия Имя Отчество",I=000000,P=000,V=2,K=171,M=2,R=04\05\1968,.............,NZ[OP=1000,D=20\12\2012]=(DO=21\01\2013,....)
 H={D=29\01\2013,A=11,U=101,R=0000,N=25,I=1}
 
:: Данные нового человека
$U,U=0000,R=0000,B=0000,N=25,A=11,S=2,L=0,I=1,F="Фамилия Имя Отчество",
 H={D=01\01\2013,A=10,U=001,R=0000,N=25,I=000,
  E={O=50,M={LS[N=25]:(S=2,F="Фамилия Имя Отчество",I=000000,P=000,V=2,K=171,M=2,R=04\05\1968,.............,NZ[OP=1000,D=20\12\2012]=(DO=21\01\2013,....)
 H={D=29\01\2013,A=11,U=101,R=0000,N=25,I=1}

Порядок и количество данных к сожалению не определено, единственное это разделитель всех параметров - запятая.
И еще я написал в 4 строки данные одного человека, все это может быть и в одной строке (очень длинной

)
Номер человека это N=25, нужно брать только из первой строки данных (или в начале);
Интересующая меня дата находится в параметре do=, т.е. DO=21\01\2013 (может повторяться несколько раз).
Короче не знаю реально ли это сделать.

@Eva Rosalene · 05.02.2013, 13:29

Ни фига себе... Не, это сразу так не сделаешь, надо долго разбираться и курить...
Если что, можно попробовать через С++

@Badger · 05.02.2013, 13:34 **[ТС]**

Я тоже офигел от поставленной задачи... По этому все равно на чем это получится реализовать.
Ах да, забыл добавить, кол-во параметров, разделенных запятой тоже может быть разным, что то может быть, а чего то и нет. В этом наверное и заключается вся сложность.

@Eva Rosalene · 05.02.2013, 14:28

алгоритм такой:
читаем строчки, когда находим параметр, разделяем через запятую, вложенным циклом разделяем через =;найдя N=X начинаем искать DO=X и F=X. Затем ищем новый N. При отсутствии чего-то одного ничего не выводим. Только как это реализовать...

Добавлено через 3 минуты
Блин, там ещё ж и одно имя токена для разных параметров...
Это надолго, чувак. )

Добавлено через 37 минут

Версия 1

Bash
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
34
35
36
37
38
39
40
@echo off
setlocal enabledelayedexpansion
set file=file.txt
chcp 1251>nul
for /f "usebackq tokens=*" %%a IN ("!file!") DO (
  set strings=%%~a
  set string=!strings:,NZ=xyu!
  set stringb=!string:,N=~!
  set NC=
  for /f "usebackq tokens=1* delims=~" %%A IN ('!stringb!') DO (
   for /f "usebackq tokens=1* delims=," %%C IN ('%%B') DO (set NC=%%~C)
  )
  if not "!NC!"=="" (set NC1=!NC:~1!)
  set stringb=!string:,F=~!
  set FC=
  for /f "usebackq tokens=1* delims=~" %%A IN ('!stringb!') DO (
   for /f "usebackq tokens=1* delims=," %%C IN ('%%B') DO (set FC=%%~C)
  )
  if not "!FC!"=="" (set FC1=!FC:~1!) 
  set stringb=!string:,DO=~!
  set DOC=
  for /f "usebackq tokens=1* delims=~" %%A IN ('!stringb!') DO (
   for /f "usebackq tokens=1* delims=," %%C IN ('%%B') DO (set DOC=%%~C)
  )
  if not "!DOC!"=="" (set DOC1=!DOC:~1!) 
  set stringb=!string:^(DO=~!
  set DOC=
  for /f "usebackq tokens=1* delims=~" %%A IN ('!stringb!') DO (
   for /f "usebackq tokens=1* delims=," %%C IN ('%%B') DO (set DOC=%%~C)
  )
  if not "!DOC!"=="" (set DOC1=!DOC:~1!)
  if not "!NC1!"=="" (
   if not "!FC1!"=="" (
    if not "!DOC1!"=="" (
     echo !NC1! - !FC1! - !DOC1!&set NC1=&set FC1=&set DOC1=
    )
   )
  )
)
pause>nul

Ха, всё

Добавлено через 5 минут

Версия 2

Bash
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
@echo off
setlocal enabledelayedexpansion
set file=file.txt
chcp 1251>nul
for /f "usebackq tokens=*" %%a IN ("!file!") DO (
  set strings=%%~a
  set string=!strings:,NZ=xyu!
  set stringb=!string:,N=~!
  set NC=
  for /f "usebackq tokens=1* delims=~" %%A IN ('!stringb!') DO (
   for /f "usebackq tokens=1* delims=," %%C IN ('%%B') DO (set NC=%%~C)
  )
  if not "!NC!"=="" (
   if "!NC1!"=="" (
    set NC1=!NC:~1!
   )
  )
  set stringb=!string:,F=~!
  set FC=
  for /f "usebackq tokens=1* delims=~" %%A IN ('!stringb!') DO (
   for /f "usebackq tokens=1* delims=," %%C IN ('%%B') DO (set FC=%%~C)
  )
  if not "!FC!"=="" (
   if "!FC1!"=="" (
    set FC1=!FC:~1!
   )
  )
  set stringb=!string:,DO=~!
  set DOC=
  for /f "usebackq tokens=1* delims=~" %%A IN ('!stringb!') DO (
   for /f "usebackq tokens=1* delims=," %%C IN ('%%B') DO (set DOC=%%~C)
  )
  if not "!DOC!"=="" (
   if "!DOC1!"=="" (
    set DOC1=!DOC:~1!
   )
  ) 
  set stringb=!string:^(DO=~!
  set DOC=
  for /f "usebackq tokens=1* delims=~" %%A IN ('!stringb!') DO (
   for /f "usebackq tokens=1* delims=," %%C IN ('%%B') DO (set DOC=%%~C)
  )
  if not "!DOC!"=="" (
   if "!DOC1!"=="" (
    set DOC1=!DOC:~1!
   )
  )
  if not "!NC1!"=="" (
   if not "!FC1!"=="" (
    if not "!DOC1!"=="" (
     echo !NC1! - !FC1! - !DOC1!&set NC1=&set FC1=&set DOC1=
    )
   )
  )
)
pause>nul

Добавлено через 56 секунд
Проверь обе

@Badger · 05.02.2013, 14:42 **[ТС]**

Кроме как - ОГО!!!
Ничего не могу сказать, спасибо.
Но в оригинальном файле есть глюки:

@Badger · 05.02.2013, 14:45 **[ТС]**

Это протестировано со вторым примером, у первого было больше недочетов.
Но учесть с тем, что я думал это выполнить маловероятно, супер.

@Eva Rosalene · 05.02.2013, 14:56

В 7 строке убери ","

Добавлено через 3 минуты
Значит, есть еще что-то, начинающееся на N
Есть еще один способ, пришел в голову, как обойти ложные токены, но я сижу с телефона

@Badger · 05.02.2013, 15:09 **[ТС]**

Разбираюсь в коде...
Интересная замена

Bash
1
set string=!strings:NZ=xyu!

@Eva Rosalene · 05.02.2013, 15:12

Почти релиз, ты только проверь))

Bash
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
@echo off
setlocal enabledelayedexpansion
set file=file.txt
chcp 1251>nul
for /f "usebackq tokens=*" %%a IN ("!file!") DO (
  set strings=%%~a
  set string=!strings:,NZ=xyu!
  set stringb=!string:,N=~!
  set NC=
  for /f "usebackq tokens=1* delims=~" %%A IN ('!stringb!') DO (
   for /f "usebackq tokens=1* delims=," %%C IN ('%%B') DO (set NC=%%~C)
  )
  if not "!NC!"=="" (
   if "!NC1!"=="" (
    if "!NC:~0,1!"=="=" (
    set NC1=!NC:~1!
    )
   )
  )
  set stringb=!string:,F=~!
  set FC=
  for /f "usebackq tokens=1* delims=~" %%A IN ('!stringb!') DO (
   for /f "usebackq tokens=1* delims=," %%C IN ('%%B') DO (set FC=%%~C)
  )
  if not "!FC!"=="" (
   if "!FC1!"=="" (
    if "!FC:~0,1!"=="=" (
    set FC1=!FC:~1!
    )
   )
  )
  set stringb=!string:,DO=~!
  set DOC=
  for /f "usebackq tokens=1* delims=~" %%A IN ('!stringb!') DO (
   for /f "usebackq tokens=1* delims=," %%C IN ('%%B') DO (set DOC=%%~C)
  )
  if not "!DOC!"=="" (
   if "!DOC1!"=="" (
    if "!DOC:~0,1!"=="=" (
    set DOC1=!DOC:~1!
    )
   )
  )
  set stringb=!string:^(DO=~!
  set DOC=
  for /f "usebackq tokens=1* delims=~" %%A IN ('!stringb!') DO (
   for /f "usebackq tokens=1* delims=," %%C IN ('%%B') DO (set DOC=%%~C)
  )
  if not "!DOC!"=="" (
   if "!DOC1!"=="" (
    if "!DOC:~0,1!"=="=" (
    set DOC1=!DOC:~1!
    )
   )
  )
  if not "!NC1!"=="" (
   if not "!FC1!"=="" (
    if not "!DOC1!"=="" (
     echo !NC1! - !FC1! - !DOC1!&set NC1=&set FC1=&set DOC1=
    )
   )
  )
)
pause>nul

Добавлено через 1 минуту

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

Интересная замена

Метко и в тему. Он мне в первый раз всю малину испортил.В последнем коде (который не Версия 2, а Почти релиз) можно и без нее обойтись

@Badger · 05.02.2013, 15:28 **[ТС]**

В последней версии идет сдвиг номера или фио.
т.е. ФИО уже следующего человека, а номер взят с предыдущего.

@Eva Rosalene · 05.02.2013, 16:24

Хм, в почти релизе бага: если в строке сначала есть токен ",ns" то токены ",n" игнорируются

Добавлено через 2 минуты
Со сдвигом интересно, номер же в конце вывода обнуляется.

Добавлено через 8 минут

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

Со сдвигом интересно, номер же в конце вывода обнуляется.

Так, пофиксил.

Добавлено через 43 секунды
Ой, выложить забыл xD

Ещё один выход в свет

Bash
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
@echo off
setlocal enabledelayedexpansion
set file=file.txt
chcp 1251>nul
for /f "usebackq tokens=*" %%a IN ("!file!") DO (
  set strings=%%~a
  set string=!strings:,NZ=xyu!
  set stringb=!string:,N=~!
  if "!string:~0,1!"=="$" (set NC1=&set FC1=&set DOC1=)
  set NC=
  for /f "usebackq tokens=1* delims=~" %%A IN ('!stringb!') DO (
   for /f "usebackq tokens=1* delims=," %%C IN ('%%B') DO (set NC=%%~C)
  )
  if not "!NC!"=="" (
   if "!NC1!"=="" (
    if "!NC:~0,1!"=="=" (
    set NC1=!NC:~1!
    )
   )
  )
  set stringb=!string:,F=~!
  set FC=
  for /f "usebackq tokens=1* delims=~" %%A IN ('!stringb!') DO (
   for /f "usebackq tokens=1* delims=," %%C IN ('%%B') DO (set FC=%%~C)
  )
  if not "!FC!"=="" (
   if "!FC1!"=="" (
    if "!FC:~0,1!"=="=" (
    set FC1=!FC:~1!
    )
   )
  )
  set stringb=!string:,DO=~!
  set DOC=
  for /f "usebackq tokens=1* delims=~" %%A IN ('!stringb!') DO (
   for /f "usebackq tokens=1* delims=," %%C IN ('%%B') DO (set DOC=%%~C)
  )
  if not "!DOC!"=="" (
   if "!DOC1!"=="" (
    if "!DOC:~0,1!"=="=" (
    set DOC1=!DOC:~1!
    )
   )
  )
  set stringb=!string:^(DO=~!
  set DOC=
  for /f "usebackq tokens=1* delims=~" %%A IN ('!stringb!') DO (
   for /f "usebackq tokens=1* delims=," %%C IN ('%%B') DO (set DOC=%%~C)
  )
  if not "!DOC!"=="" (
   if "!DOC1!"=="" (
    if "!DOC:~0,1!"=="=" (
    set DOC1=!DOC:~1!
    )
   )
  )
  if not "!NC1!"=="" (
   if not "!FC1!"=="" (
    if not "!DOC1!"=="" (
     echo !NC1! - !FC1! - !DOC1!&set NC1=&set FC1=&set DOC1=
    )
   )
  )
)
pause>nul

Добавлено через 4 минуты
Хм, а вдруг там решать формат вывода данных сменить...
Это будет ЭPIC FAIL

Добавлено через 36 минут

Финал, пре-релиз, ищи баги

Bash
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
@echo off
setlocal enabledelayedexpansion
set file=file.txt
set filetmp=file.tmp.txt
set filetmp2=file.tmp2.txt
if exist "!filetmp!" (erase "!filetmp!")
<nul set /p xxccbb=>"!filetmp2!"
copy "!file!" "!filetmp!">nul
:again
set finded=0
set counter=0
for /f "usebackq tokens=1* delims==" %%a IN ("!filetmp!") DO (
 echo.%%a_%%b>>"!filetmp2!"
 if not "%%b"=="" (set finded=1)
)
copy "!filetmp2!" "!filetmp!">nul
<nul set /p xxccbb=>"!filetmp2!"
if "!finded!"=="1" (goto :again)
chcp 1251>nul
for /f "usebackq tokens=*" %%a IN ("!filetmp!") DO (
  set string=%%~a
  set stringb=!string:,N_=~!
  if "!string:~0,1!"=="$" (set NC1=&set FC1=&set DOC1=)
  set NC=
  for /f "usebackq tokens=1* delims=~" %%A IN ('!stringb!') DO (
   for /f "usebackq tokens=1* delims=," %%C IN ('%%B') DO (set NC=%%~C)
  )
  if not "!NC!"=="" (
   if "!NC1!"=="" (
    set NC1=!NC!
   )
  )
  set stringb=!string:,F_=~!
  set FC=
  for /f "usebackq tokens=1* delims=~" %%A IN ('!stringb!') DO (
   for /f "usebackq tokens=1* delims=," %%C IN ('%%B') DO (set FC=%%~C)
  )
  if not "!FC!"=="" (
   if "!FC1!"=="" (
    set FC1=!FC!
   )
  )
  set stringb=!string:,DO_=~!
  set DOC=
  for /f "usebackq tokens=1* delims=~" %%A IN ('!stringb!') DO (
   for /f "usebackq tokens=1* delims=," %%C IN ('%%B') DO (set DOC=%%~C)
  )
  if not "!DOC!"=="" (
   if "!DOC1!"=="" (
    set DOC1=!DOC:~1!
   )
  )
  set stringb=!string:^(DO_=~!
  set DOC=
  for /f "usebackq tokens=1* delims=~" %%A IN ('!stringb!') DO (
   for /f "usebackq tokens=1* delims=," %%C IN ('%%B') DO (set DOC=%%~C)
  )
  if not "!DOC!"=="" (
   if "!DOC1!"=="" (
    set DOC1=!DOC!
   )
  )
  if not "!NC1!"=="" (
   if not "!FC1!"=="" (
    if not "!DOC1!"=="" (
     echo !NC1! - !FC1! - !DOC1!&set NC1=&set FC1=&set DOC1=
    )
   )
  )
)
erase "!filetmp!"
erase "!filetmp2!"
pause>nul

Вроде читает всё по маслу. Только дольше, за счёт использования темп-файлов.

@Badger · 05.02.2013, 16:44 **[ТС]**

Огромнейшее спасибо! Выручил.
Вроде бы без багов, выкладываю пару исходных файлов, из которых все это достается.
ФИО и еще некоторые данные естественно изменены

...решил выложить, когда все уже готово )))

@Eva Rosalene · 05.02.2013, 16:58

Бедный Николай Сигизмундович.

@Badger · 11.02.2013, 15:23 **[ТС]**

А за что мне отспасибились то ?)

Dragokas · 11.02.2013, 15:37

Да, я не в теме. На Вашем "боевом" примере будет проще понять, что тут насочиняли.
Чаще ведь как делают, забрал код и даже не знаешь помогло человеку или нет. Это я вообще - из наблюдений говорю.

@Badger · 11.02.2013, 15:41 **[ТС]**

Ну... В этой теме последний "Финал, пре-релиз" от FraidZZ и есть готовым решением.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Eva Rosalene Модератор 5241 / 2115 / 416 Регистрация: 06.01.2013 Сообщений: 4,846
	05.02.2013, 13:29
	Ни фига себе... Не, это сразу так не сделаешь, надо долго разбираться и курить... Если что, можно попробовать через С++ 0

@Badger 94 / 94 / 4 Регистрация: 25.06.2012 Сообщений: 278
	05.02.2013, 13:34 [ТС]
	Я тоже офигел от поставленной задачи... По этому все равно на чем это получится реализовать. Ах да, забыл добавить, кол-во параметров, разделенных запятой тоже может быть разным, что то может быть, а чего то и нет. В этом наверное и заключается вся сложность. 0

@Badger 94 / 94 / 4 Регистрация: 25.06.2012 Сообщений: 278
	05.02.2013, 14:42 [ТС]
	Кроме как - ОГО!!! Ничего не могу сказать, спасибо. Но в оригинальном файле есть глюки: Миниатюры 0

@Badger 94 / 94 / 4 Регистрация: 25.06.2012 Сообщений: 278
	05.02.2013, 14:45 [ТС]
	Это протестировано со вторым примером, у первого было больше недочетов. Но учесть с тем, что я думал это выполнить маловероятно, супер. 0

@Eva Rosalene Модератор 5241 / 2115 / 416 Регистрация: 06.01.2013 Сообщений: 4,846
	05.02.2013, 14:56
	В 7 строке убери "," Добавлено через 3 минуты Значит, есть еще что-то, начинающееся на N Есть еще один способ, пришел в голову, как обойти ложные токены, но я сижу с телефона 0

@Badger 94 / 94 / 4 Регистрация: 25.06.2012 Сообщений: 278
	05.02.2013, 15:28 [ТС]
	В последней версии идет сдвиг номера или фио. т.е. ФИО уже следующего человека, а номер взят с предыдущего. 0

@Eva Rosalene Модератор 5241 / 2115 / 416 Регистрация: 06.01.2013 Сообщений: 4,846
	05.02.2013, 16:58
	Бедный Николай Сигизмундович. 0

@Badger 94 / 94 / 4 Регистрация: 25.06.2012 Сообщений: 278
	11.02.2013, 15:23 [ТС]
	А за что мне отспасибились то ?) 0

Dragokas 18031 / 7734 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	11.02.2013, 15:37
	Да, я не в теме. На Вашем "боевом" примере будет проще понять, что тут насочиняли. Чаще ведь как делают, забрал код и даже не знаешь помогло человеку или нет. Это я вообще - из наблюдений говорю. 0

@Badger 94 / 94 / 4 Регистрация: 25.06.2012 Сообщений: 278
	11.02.2013, 15:41 [ТС]
	Ну... В этой теме последний "Финал, пре-релиз" от FraidZZ и есть готовым решением. 0