jian123ch

第三题

@echo off
set stra="bbs bathome.net"
for /f "tokens=1,2,3 delims=. " %%i in (%stra%) do echo %%i & echo %%j & echo .%%k 
复制代码

第四题

@echo off
setlocal enabledelayedexpansion
@type test.txt
echo.
echo -----------------
for /f "tokens=1-3" %%i in (test.txt) do set /a stra=%%j & echo !stra!
pause >nul
复制代码

第B1题

@echo off
set stra="床前明月光   疑是地上霜   举头望明月   低头思故乡"
echo 原文内容：
echo %stra:"=%
echo -------------------------------
echo 分行显示：
for /f "tokens=1-4" %%i in (%stra%) do echo %%i & echo %%j & echo %%k & echo %%l
pause >nul
复制代码

第B2题

@echo off
for /r c:\ %%i in (*mplay*.*) do set /p=路径名:%%~pi 文件名:%%~ni 扩展名:%%~xi<nul & echo.
pause >nul
复制代码

第B3题

@echo off
setlocal enabledelayedexpansion
echo 数列中的各元素为：
for /l %%i in (100,-2,0) do (
  set /p=%%i <nul
  set /a stra=!stra!+%%i
)
echo.
echo ------------------------------------------------
echo 数列中的各元素和:
echo !stra!
pause >nul
复制代码

第B4题

@echo off
setlocal enabledelayedexpansion
set stra="“穿了裙子，不等于说可以。”加拿大**的“如果不想被强奸，就不要把自己打扮得像**”言论引发了世界性的**。7月31日，继

加拿大、美国、英国、澳大利亚、巴西、荷兰、韩国之后，印度新德里也举行了“**大**”。"
for /f "tokens=3 delims=。" %%i in (%stra%) do (
  set strb=%%i && set strb=!strb:“=! && set strb=!strb:”=! && set strb=!strb:~-8! && echo !strb!
)
pause >nul
复制代码

第B5题

@echo off
setlocal enabledelayedexpansion
set /p=本机的IP地址为:<nul
for /f "tokens=1,2 delims=:" %%i in ('ipconfig') do (
  set stra=%%i && set stra=!stra:. =! && set stra=!stra: =! && set strb=!stra:~0,2!
  if !strb! equ IP echo %%j
)
pause >nul
复制代码