NiOl,
1. more :) ;
2. отключение интерпретации спецсимволов строки;
3. угу, и отбросить всё что оказалось справа первого вхождения.
4. yes.
читать дальше »
вариант с учетом копеек:
Код:
@Echo Off
Set Chars=abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя
For /F "Usebackq Tokens=2* Delims= " %%P In ("%~n0.txt") Do If Not %%P_==_ If Not %%Q_==_ (
For /F "Tokens=1,2 Delims=.," %%A In ("%%P") Do Set H=%%A& Set L=%%B& Set "ch=%%Q"& Call :CALC)
GoTo :NEXT
:CALC
Set H=%H: =%& Set L=%L%00
Set H=%H:'=%& Set L=%L:~0,2%
Set /A L=1%L%%%100
Set /A C=%H%00+%L%
Call Set "b=%%Chars:%ch:~0,1%=%ch:~0,1%%%"
If %Chars%==%b% (Set /A T+=C,W+=C) Else Set /A T+=C,S+=C
GoTo :EOF
:NEXT
Set S= %S:~0,-2%.%S:~-2%
Set S=%S:~-11%
Set W= %W:~0,-2%.%W:~-2%
Set W=%W:~-11%
Set T= %T:~0,-2%.%T:~-2%
Set T=%T:~-11%
Echo Spares: %S%
Echo Service:%W%
Echo ===================
Echo Total: %T%
