sjzong

第一题本来是要处理一个数的，对中间和末尾的0进行不同的标记，00123和123都被识别为一个数。既然兄问了，那么如果在头部就原样输出吧，例：输入  00110207600    输出  0011#2#76**
我看到这个题目，就有做出这个题目的冲动！所以就写出答案，望版主通过！

@echo off
setlocal enabledelayedexpansion
:accept
cls
set /p n=要替换数字串[0~9]是:
echo.%n%|findstr "^[0-9][0-9]*$">nul||goto accept
for /f "tokens=* delims=0" %%a in ("%n%") do (
  if "%%a" equ "" (echo 替换后的数字串是：%n%&pause>nul&goto accept) else (set b=%%a)
)
set num1=!n:%b%=!
set num2=
set num3=
:loop
if "!b:~-1!" neq "" (
  if "!b:~-1!" equ "0" (set num3=!num3!*&set b=!b:~0,-1!&goto loop) else (goto replace))
:replace
set num2=!b:0=#!
set num=!num1!!num2!!num3!
echo 替换后的数字串是：%num%
pause>nul&goto accept
复制代码

[ 本帖最后由 sjzong 于 2009-6-29 01:09 编辑 ]

sjzong

键盘输入一个高精度的正整数N，去掉其中任意S个数字后使剩下的数最小。
例如：N=175438, S=4 ,可以删去7,5,4,8,得到13。
原理：就是从左向右找到第一个i,使n>n[i+1]，如果找到了，就删第i个，否则删最后一位。

sjzong

@echo off
setlocal enabledelayedexpansion
:n
cls
set /p num=请输入一个正整数n=
echo.%num%|findstr "^[1-9][0-9]*$">nul||goto n
:m
set /p m=请输入删除的个数m:
echo.%m%|findstr "^[1-9][0-9]*$">nul||goto m
set/a count=0
:loop
if "!num:~%count%,1!" neq "" (set/a count+=1&goto loop)
if !m! gtr !count! echo 删除的位数过大&pause>nul&goto n
echo 正整数 n=!num! ，删掉 !m! 个数字
set/a count=0
:a
set/a b=0
:b
set/a b+=1
set/a c=!b!-1
if !num:~%b%! neq "" (
if "!num:~%c%,1!" gtr "!num:~%b%,1!" (
  set num=!num:~0,%c%!!num:~%b%!
  set/a count+=1
  if !count! neq !m! goto a
  ) else (goto b)
) else (
set num=!num:~0,%c%!
set/a count+=1
if !count! neq !m! goto a)
if "!num!" equ "" (echo 得到最小的数是：空) else (echo 得到最小的数是：!num!)
pause>nul&goto n
复制代码

keiamy

键盘输入一个高精度的正整数N，去掉其中任意S个数字后使剩下的数最小。
例如：N=175438, S=4 ,可以删去7,5 ...
sjzong 发表于 2009-6-28 23:30

像我這樣的新手也來做做練習吧﹗相信大伙們定會給予教導和指正的

@echo off&setlocal enabledelayedexpansion
set n=175438&set s=4
:lp
if defined n (
set ".%n:~,1%=%n:~,1%"
set "n=%n:~1%"
goto lp)
for /f "delims==." %%i in ('set.') do set x=!x!%%i
echo !x:~,-%s%!
pause
复制代码

taofan712

回复 2# lhjoanna


    按国家名字排序

@ECHO OFF
setlocal enabledelayedexpansion
for /f "tokens=1,2,3 delims=[] " %%a in (a.txt) do (
echo [%%c]%%a %%b )>>log.txt
sort log.txt>newa.txt & del /f /q log.txt
复制代码