VPF::[.BAT]Как сделать счетчик в цикле??

xStorm

Дата 24.12.2007, 22:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 30
Регистрация: 25.4.2007

Репутация: нет
Всего: нет

Код


...
:endif2
FOR %%f IN (%z%) DO (
  set d=0
  FOR /F "tokens=*" %%i in (%%f) do (
    set /a d=d+1
    if "%%i"=="%string%" (
    echo %%f contains %%i at %d% line >> %2 
    )
  )
)
goto :eof
...

Счетчик d не работает, я вообше не понимаю откуда значение берется в нем.
Мне надо подсчитать на какой строке по номеру строка совпадает с введенной.
Как мне этот тупой счетчик внутри цикла организовать?

SoWa

Дата 25.12.2007, 09:06 (ссылка)

(нет голосов)

Загрузка ...

Харекришна

Профиль
Группа: Комодератор
Сообщений: 2422
Регистрация: 18.10.2004

Репутация: 3
Всего: 74

Ох давно я этим не занимался.

4 и 6 строки.
В четвертой вроде не хватает перед переменной %
В шестой присваивание думаю надо так делать: d >& d+1

--------------------

Всем добра smile

xStorm

Дата 25.12.2007, 19:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 30
Регистрация: 25.4.2007

Репутация: нет
Всего: нет

не варик, не пашет нифига

Akina

Дата 25.12.2007, 19:24 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20580
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 17
Всего: 454

Цитата(xStorm @ 24.12.2007, 23:34

)

Счетчик d не работает, я вообше не понимаю откуда значение берется в нем.

Он работает... но вот одна фигня какая - эти изменения не видны внутри For... запустите вот это:

Код


@echo off
set a=1
echo 1: a=%a%
for %%b in (1, 2, 3) do (
  echo 2: a=%a%
  set /A a += 1
)
echo 3: a=%a%
echo Done.

Для обхода этой проблемы запустите CMD с ключом /V:ON ( значение этого ключа посмотрите в справке CMD /? ) и испытайте вот этот батник:

Код


@echo off
set a=1
echo 1: a=%a%
for %%b in (1, 2, 3) do (
  echo 2: a=!a!
  set /A a += 1
)
echo 3: a=%a%
echo Done.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

xStorm

Дата 28.12.2007, 18:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 30
Регистрация: 25.4.2007

Репутация: нет
Всего: нет

Красавчик! Помогло, всё пашет теперь. Вот результат кому интересно:

Код


@echo off
if /%1 == /  goto :SyntaxError
if /%2 == /  goto :SyntaxError

if "%1" == "1"  (
  set /P string=Enter String: 
  goto :Search_ONE
  goto :eof
)
if "%1" == "2" (
  set /P string=Enter String: 
  goto :Search_TWO
  goto :eof
)
goto :SyntaxError

:Search_ONE
  set z=*.*
  goto :endif2

:Search_TWO
  set z=*.bat *.txt
  goto :endif2

:endif2

FOR %%f IN (%z%) DO (
  set d=0
  FOR /F "tokens=*" %%i in (%%f) do (
    set /A d += 1
    if "%%i"=="%string%" (
    echo %%f contains %%i at !d! line >> %2
    )
  )
)
goto :eof
:SyntaxError
echo Usage: batfile (1 or 2), (output file name)

Код


robert.txt contains hello world at 1 line 
robert.txt contains hello world at 5 line 
haha.bat contains hello world at 4 line 
hhss.txt contains hello world at 7 line

Akina

Дата 28.12.2007, 18:25 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20580
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 17
Всего: 454

Цитата(xStorm @ 28.12.2007, 19:06

)

if /%1 == / goto :SyntaxError
if /%2 == / goto :SyntaxError

А зачем проверять первый параметр? если второй пуст - не пофиг ли, есть там первый или нет...

--------------------

123456FD

Дата 21.9.2008, 23:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 21.9.2008

Репутация: нет
Всего: нет

Помогите, никак не могу сделать тест рабочим. Не считает кол-во ответов в итоге.

:test
cls
type a:\TEST\main.txt
set q=%1
pause

:q1
cls
type a:\TEST\q1.txt
a:\qask [25;1H
if errorlevel 52 goto q2
if errorlevel 51 goto q2
if errorlevel 50 goto q2
if errorlevel 49 goto q1t
goto q1

:q1t
set q=%q%%1
goto q2

:q2
cls
type a:\TEST\q2.txt
a:\qask [25;1H

if errorlevel 52 goto q3
if errorlevel 51 goto q3
if errorlevel 50 goto q3
if errorlevel 49 goto q2t
goto q2

:q2t
set q=%q%%1
goto q3

:q3
cls
type a:\TEST\q3.txt
a:\qask [25;1H

if errorlevel 52 goto q4
if errorlevel 51 goto q4
if errorlevel 50 goto q4
if errorlevel 49 goto q3t
goto q3
:q3t
set q=%q%%1
goto q4

:q4
cls
type a:\TEST\q4.txt
a:\qask [25;1H

if errorlevel 52 goto q5
if errorlevel 51 goto q5
if errorlevel 50 goto q5
if errorlevel 49 goto q4t
goto q4
:q4t
set q=%q%%1
goto q5

:q5
cls
type a:\TEST\q5.txt
a:\qask [25;1H
if errorlevel 52 goto q6
if errorlevel 51 goto q6
if errorlevel 50 goto q6
if errorlevel 49 goto q5t
goto q5

:q5t
set q=%q%1
goto q6

:q6
cls
type a:\TEST\q6.txt
a:\qask [25;1H
if errorlevel 52 goto q7
if errorlevel 51 goto q7
if errorlevel 50 goto q6t
if errorlevel 49 goto q7
goto q6
:q6t
set q=%q%1
goto q7

:q7
cls
type a:\TEST\q7.txt
a:\qask [25;1H

if errorlevel 52 goto q8
if errorlevel 51 goto q8
if errorlevel 50 goto q7t
if errorlevel 49 goto q8
goto q7

:q7t
set q=%q%1
goto q8

:q8
cls
type a:\TEST\q8.txt
a:\qask [25;1H

if errorlevel 52 goto q9
if errorlevel 51 goto q9
if errorlevel 50 goto q8t
if errorlevel 49 goto q9
goto q8

:q8t
set q=%q%1
goto q9

:q9
cls
type a:\TEST\q9.txt
a:\qask [25;1H

if errorlevel 52 goto q10
if errorlevel 51 goto q10
if errorlevel 50 goto q9t
if errorlevel 49 goto q10
goto q9

:q9t
set q=%q%1
goto q10

:q10
cls
type a:\TEST\q10.txt
a:\qask [25;1H

if errorlevel 52 goto q11
if errorlevel 51 goto q11
if errorlevel 50 goto q10t
if errorlevel 49 goto q11
goto q10
:q10t
set q=%q%1
goto q11

:q11
cls
type a:\TEST\q11.txt
a:\qask [25;1H

if errorlevel 52 goto q12
if errorlevel 51 goto q11t
if errorlevel 50 goto q12
if errorlevel 49 goto q12
goto q11

:q11t
set q=%q%1
goto q12

:q12
cls
type a:\TEST\q12.txt
a:\qask [25;1H

if errorlevel 52 goto q13
if errorlevel 51 goto q12t
if errorlevel 50 goto q13
if errorlevel 49 goto q13
goto q12

:q12t
set q=%q%1
goto q13

:q13
cls
type a:\TEST\q13.txt
a:\qask [25;1H

if errorlevel 52 goto q14
if errorlevel 51 goto q13t
if errorlevel 50 goto q14
if errorlevel 49 goto q14
goto q13

:q13t
set q=%q%1
goto q14

:q14
cls
type a:\TEST\q14.txt
a:\qask [25;1H

if errorlevel 52 goto q15
if errorlevel 51 goto q14t
if errorlevel 50 goto q15
if errorlevel 49 goto q15
goto q14

:q14t
set q=%q%1
goto q15

:q15
cls
type a:\TEST\q15.txt
a:\qask [25;1H

if errorlevel 52 goto res
if errorlevel 51 goto q15t
if errorlevel 50 goto res
if errorlevel 49 goto res
goto q15

:q15t
set q=%q%1
goto res

:res
cls
type a:\TEST\res.txt
if /%q%==/111111111111111 echo [37m 15 Їа ўЁ«мле ®вўҐв®ў
if /%q%==/11111111111111 echo [37m 14 Їа ўЁ«мле ®вўҐв®ў
if /%q%==/1111111111111 echo [37m 13 Їа ўЁ«мле ®вўҐв®ў
if /%q%==/111111111111 echo [37m 12 Їа ўЁ«мле ®вўҐв®ў
if /%q%==/11111111111 echo [37m 11 Їа ўЁ«мле ®вўҐв®ў
if /%q%==/1111111111 echo [37m 10 Їа ўЁ«мле ®вўҐв®ў
if /%q%==/111111111  echo [37m 9 Їа ўЁ«мле ®вўҐв®ў
if /%q%==/11111111   echo [37m 8 Їа ўЁ«мле ®вўҐв®ў
if /%q%==/1111111    echo [37m 7 Їа ўЁ«мле ®вўҐв®ў
if /%q%==/111111     echo [37m 6 Їа ўЁ«мле ®вўҐв®ў
if /%q%==/11111      echo [37m 5 Їа ўЁ«мле ®вўҐв®ў
if /%q%==/1111       echo [37m 4 Їа ўЁ«мле ®вўҐв
if /%q%==/111        echo [37m 3 Їа ўЁ«мле ®вўҐв
if /%q%==/11         echo [37m 2 Їа ўЁ«мле ®вўҐв
if /%q%==/1          echo [37m 1 Їа ўЁ«мл© ®вўҐв
if /%q%==/           echo [37m ЌҐв Їа ўЁ«мле ®вўҐв®ў

pause
goto start

В чём сдесь ошибка? ВЫРУЧАЙТЕ!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »