批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖
先列出接下来的几道题,有时间依次琢磨(题目挑选自本论坛批处理新手练功区)
10,获取当前目录路径
11,判断目录或文件是否存在
12,把文本的首行和尾行相拼接
13,过滤掉重复的行,然后保存到另一个文本文件
14,输入两个字母,显示它们之间的所有字母
15,字符串中的大小写互换
16,计算字符串长度
17,检查《千字文》是否有重复字
18,在控制台输出闪电图形

TOP

第十,没啥好说的,用get-location,赋值到变量$a=get-location。

十一,批处理的if exist,powershell中有test-path,test-path还支持通配符
  1. if (test-path .\*.mp3){write-host "当前目录有MP3文件"}else{write-host "无"}
复制代码
12,把文本首行和尾行相拼接。
批处理1
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for /f "delims= " %%a in (a.txt) do (set/a num+=1&set !num!=%%a)
  4. ::对每一行依次赋值到数字序列
  5. echo !1!!%num%!
复制代码
批处理2
  1. @echo off
  2. set /p a=<a.txt
  3. ::获取首行
  4. for /f "delims=" %%i in (a.txt) do set b=%%i
  5. ::依次将行内容赋值到变量b,直到最后一行。
  6. echo %a%%b%
  7. pause>nul
复制代码
powershell
(get-content a.txt)[0,-1]  #文本内容视为数组,0是第一行,-1是最后一行。
  1. (get-content a.txt)[0]+(get-content a.txt)[-1] #用+连接第一行和最后一行。
复制代码

TOP

13,过滤掉重复的行,然后保存到另一个文本文件。假设有1.txt内容如下:
  1. 锄禾日当午
  2. 汗滴禾下土
  3. 锄禾日当午
  4. 锄禾日当午
  5. 谁知盘中餐
  6. 粒粒皆辛苦
  7. 白日依山尽
  8. 白日依山尽
  9. 白日依山尽
  10. 黄河入海流
  11. 粒粒皆辛苦
  12. 欲穷千里目
  13. 更上一层楼
  14. 更上一层楼
复制代码
批处理版:
  1. @echo off
  2. for /f "delims=" %%i in (1.txt) do (
  3.     if not defined %%i set %%i=1&echo;%%i>>2.txt
  4. )  
  5. pause
复制代码
powershell中有select-object,选择一个对象或一组对象的指定属性。它还可以从对象的数组中选择唯一对象,也可以从对象数组的开头或末尾选择指定个数的对象。
  1. get-content 1.txt|select-object -unique >2.txt
  2. # -unique ,从字符数组中选择唯一字符,即去除重复
复制代码
get-process | sort-object -property WS | select-object -Last 5
#此命令显示占用内存最多的五个进程。Sort-Object 用于按内存(工作集)使用量对进程排序,Select-Object 用于只选择所得到的对象数组的最后五个成员。

TOP

本帖最后由 for_flr 于 2021-11-29 10:54 编辑

14题,要求:
    输入任意两个字母,显示这两个字母中间的所有字母。
如:  输入 af 则显示英文字母a至f  如: a  b c d e f
随风前辈批处理如下
  1. @echo off
  2. echo 请按先后顺序输入两个字母 如:af ,不能输入 fa
  3. set /p input=
  4. cls
  5. for %%b in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (
  6. if /i "%input:~0,1%"=="%%b" set ok=ok
  7. if /i "%input:~1,1%"=="%%b" set ok=&echo %%b
  8. if defined ok echo %%b
  9. )
  10. echo.&pause&exit
复制代码
::从a到z逐字判断是否等于输入的两个字母。

TOP

本帖最后由 for_flr 于 2021-11-29 13:06 编辑

powershell
  1. $str="abcdefghijklmnopqrstuvwxyz"
  2. $input=read-host "请输入两个字母"
  3. $sp=$input.substring(0,1)+"|"+$input.substring(1,1)
  4. ($str -split "$sp")[1]
复制代码
#将输入的字母视作分隔符,把字母表分割成3段,显示第二段。
-split的分割用法:
"张三-23-男-法外狂徒" -split "-"
我好傻,第三行应该用.insert()或者.chars()

——————————
根据24楼WHY前辈指点,可以简化为
  1. $s = 'abcdefghijklmnopqrstuvwxyz';
  2. $a = Read-Host '请输入两个字母';
  3. $s.Split($a)[1]
复制代码
而本人原答案中,
只知道-split 如果指定多个分隔符,应该用|符号隔开,如: "a|b"
所以用$sp=$input.substring(0,1)+"|"+$input.substring(1,1) 构建 a|b,徒增笑尔。

TOP

15题,字符串中大小写互换
批处理1
  1. @echo off
  2. set "letters= abcdefghijklmnopqrstuvwxyzZYXWVUTSRQPONMLKJIHGFEDCBA"
  3. for /l %%a in (1,1,26) do call set /a "_%%letters:~%%a,1%%=%%a"
  4. :input
  5. setlocal EnableDelayedExpansion
  6. echo 请输入:&set /p var=&if not defined var endlocal&goto:input
  7. :loop
  8. set char=!var:~%pi%,1!
  9. set /a sn=_!char! 2>nul||set sn=0
  10. if defined char (
  11.     if %sn% gtr 0 (
  12.         if "!char!"=="!letters:~%sn%,1!" (set str=!str!!letters:~-%sn%,1!) else (set str=!str!!letters:~%sn%,1!)
  13.     ) else (
  14.         set str=!str!!char!
  15.     )
  16.     set /a pi+=1
  17.     goto loop
  18. )
  19. echo=!str!
  20. pause&endlocal&goto input
复制代码
批处理2
  1. @echo off & setlocal enabledelayedexpansion
  2. (for %%a in (a_A b_B c_C d_D e_E f_F g_G h_H i_I j_J k_K l_L m_M n_N o_O p_P q_Q r_R s_S t_T u_U v_V w_W x_X y_Y z_Z A_a B_b C_c D_d E_e F_f G_g H_h I_i J_j K_k L_l M_m N_n O_o P_p Q_q R_r S_s T_t U_u V_v W_w X_x Y_y Z_z) do echo;%%a)>temp.txt
  3. :loop
  4. cls&echo;输入混杂大小写的字母串(不超过15位)&set /p var=
  5. for /l %%b in (0,1,15) do (
  6. set "zifu=!var:~%%b,1!"
  7. if "!zifu!"=="" pause>nul&goto loop
  8. for /f "tokens=2 delims=_" %%c in ('findstr /b "!zifu!" temp.txt') do set /p=%%c<nul
  9. )
  10. pause&goto loop
复制代码

TOP

本帖最后由 for_flr 于 2021-11-29 12:46 编辑

powershell
接触了foreach和split,字符串的.toupper()、.tolower()
那这题就太简单了
将字符串拆分成单子,逐字对比判断字符是大写还是小写,再转化
  1. $a="abcdABCD 123 XyZ"
  2. $a -split ""|foreach{if ($_ -ceq $_.tolower()){$na+=$_.toupper()}else{$na+=$_.tolower()}}
  3. $na
复制代码
powershell果然机具power!!
注: if 中的 eq代表等于,ceq代表等于且区分大小写

TOP

回复 20# for_flr
  1. $s = 'abcdefghijklmnopqrstuvwxyz';
  2. $a = Read-Host '请输入两个字母';
  3. $s.Split($a)[1]
复制代码
  1. $a = read-host "请输入两个字母";
  2. [char[]](([int]$a[0]+1)..([int]$a[1]-1));
复制代码
1

评分人数

    • for_flr: 妙啊!我咋这么死板技术 + 1

TOP

16计算字符串长度
批处理
  1. @echo off
  2. set str=123ABC上中下
  3. :loop
  4. set /a a+=1
  5. set str=%str:~0,-1%
  6. if "%str%"=="" (echo %a%&pause>nul ) else goto loop
复制代码
powershell
  1. $str="123ABC上中下"
  2. $str.length
复制代码

TOP

本帖最后由 for_flr 于 2021-11-29 14:37 编辑

17,检查千字文是否有重复字,且统计千字文文字数量,且将四字词语逆序输出
http://www.bathome.net/thread-12590-1-2.html
批处理代码不贴了,都在帖子里。
(题目作者很鸡贼,在txt末尾加了两个空行,其中一个空行里有个空格键.)

TOP

第17,关于千字文的3个问题,
1,统计千字文数量,不含空格,共一千字。
  1. Get-Content 千字文.txt|foreach {$num+=($_.replace(" ","")).length}
  2. $num
  3. #去除每一行的空格后,累加文字长度
复制代码
坐等更效率的处理方式
2四字词语倒序输出
  1. get-content 千字文.txt|foreach {$new+=$_.split()}
  2. ($new)[-1..-$new.count]
  3. #将千字文逐行分成6个四字词语,累计存到变量new里,$new.count=588(含空行588行)
  4. #最后用数组的[-1..-588]形式,完成倒序输出
复制代码
视觉效果不理想,有空白行干扰
3,统计文中的重复字,暂无满意办法...

TOP

本帖最后由 for_flr 于 2021-11-29 15:39 编辑

18,输出类似的闪电图形
  1. @echo off&setlocal enabledelayedexpansion
  2. for /l %%a in (1 1 11) do set "空格=!空格! "&set "星号=!星号!*"
  3. for /l %%a in (1 1 10) do echo !空格:~%%a!!空格:~%%a!!星号:~,%%a!
  4. for /l %%a in (10 -1 1) do echo !空格:~-%%a!!星号:~-%%a!
  5. pause
复制代码
powershell
  1. $a="*"
  2. for ($i=40;$i -ge 20;$i-=2){"{0,$i}" -f $a;$a=$a+"*"}
  3. for ($i=30;$i -ge 8;$i-=2){"{0,$i}" -f $a;$a=$a.remove(0,1)}
复制代码

TOP

回复 8# for_flr


    bathome写成hathome,新手看不懂容易误会,纠正下

TOP

回复 28# 心远先生


    已改正,谢谢提醒。
另,借本楼贴出[system.io.path]的学习记录。
坛友提问:如何使用Powershell 将一个文件复制10份,文件名加后缀从1递增到10,如a.txt,复制出a1.txt,a2.txt到a10.txt
  1. $a="a.txt"
  2. for ($i=1;$i -le 10;$i++){copy $a (dir $a).name.insert(1,$i)}
复制代码
这样写不通用,搜索了一会儿,看到[system.io.path]::getxxx的用法,记录如下:
  1. $filename="test.mp3"
  2. $n=10
  3. $fn=[system.io.path]::getfilenamewithoutextension($filename)
  4. $fx=[system.io.path]::getextension($filename)
  5. for ($i=1;$i -le $n;$i++){copy-item $filename $fn$i$fx}
复制代码
  1. [system.io.path]::getfilename() #获取文件名
  2. [system.io.path]::getfilenamewithoutextension() #获取文件名,不含后缀
  3. [system.io.path]::getextension() #获取文件后缀名
  4. [system.io.path]::getfullpath() #获取全路径且带文件全名
  5. [system.io.path]::getdirectoryname() #获取文件父目录名   (括号里的文件名需要带绝对路径)
  6. [system.io.path]::getpathroot() #获取文件所在盘符        (括号里的文件名需要带绝对路径)
复制代码
不知道这种用法叫什么名字,不知道还有没有其他的,希望路过的大佬补充一下

TOP

练一道题,第19,把每行中等于8个字符的字符串提取出来,其他行过滤掉。
示例文本 a.txt
  1. 12345678 abc cde
  2. 批处理之家
  3. 一二三四五六七八  abcdefgh
  4. 新手练功区欢迎大家
复制代码
其实字符串长度题目重复了,这里主要是套用两个foreach循环,练一练:
  1. $file=1.txt
  2. get-content $file|foreach{
  3.     foreach ($s in $_.split()) {
  4.     if ($s.length -eq 8) {$s}
  5.     }
  6. }
复制代码

TOP

返回列表