Автор: dimpase
Дата сообщения: 09.10.2008 11:13
Еще вопросик можно?
Почему когда у меня программа возвращается к маркеру буквы меняются обратно на досовские,я понял почему,как это исправить??
Код: @echo off
setlocal
::Маркер для использование goto
:vvod
::Очищаем Экрвн
CLS
::Шаблон ВВода
echo "‚ўҐ¤ЁвҐ зҐаҐ§ § Їпвго : €¬п,” ¬Ё«Ёп, ЋвзҐбвў®, „ЁаҐЄжЁп, Ґ«.ђ Ў., Ґ«.ў-гва., Ґ«.¬®Ў., ѓ®а®¤"
::Приглашение для ввода данных
set /p "input= ‚ў®¤ : "
::Объявление использования лат.букв для записи в файл
chcp 1251
::Присвоение ввода пользователя переменной input
set a_in=%input%
::Запись данных введ.пользователем в txt файл
echo %a_in%>>FIO.txt
::Приглашение для создания еще одной записи
set /p "input1=ᮧ¤ вм ҐйҐ ЇҐаҐ¬Ґ--го?[Y]N:"
::Если введено y то переходим к маркеру vvod
if /i "%input1%"=="y" goto vvod
::Присвоение
for /f "tokens=1,2,3,4,5,6,7,8 delims=," %%i in (FIO.txt) do (
set I_name=%%i
set F_name=%%j
set O_name=%%k
set Dir_name=%%l
set Phone_work=%%m
set Phone_in=%%n
set Phone_mob=%%o
set City_name=%%p
call:write
)
goto:eof
::Запись в html из txt
:write
set /a see+=1
echo ^<TR^>^<TD^> %I_name%^</TD^>^<TD^> %F_name%^</TD^>^<TD^>%O_name%^</TD^>^<TD^>%Dir_name%^</TD^>^<TD^>%Phone_work%^</TD^>^<TD^>%Phone_in%^</TD^>^<TD^>%Phone_mob%^</TD^>^<TD^>%City_name%^</TD^>^</TR^> >>html.html
pause