[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[文本处理] [已解决]批处理自动删除多余的答案,只保留一个答案。

1、目的:希望拖入文本,自动删除多余的答案,只保留一个答案。

2、材料:
原文本:
Author: Serg Belyaev

###########
##  .##@  #
# $ ...$  #
#  $#*##  #
#   $.  $ #
####   ####
###########
; Level 1
Title: level 1
Author: Serg Belyaev
Solution (pushes 38, moves 92, inlines 20, changes 14, steps 16 PMIS): rdLLLLullDRRRRRurDlllllllddrrRdrruLUdLLUUrRRRurrdLLLrrrddLUruLLrddLLdlUlluullddRRRllUluRRluR
Solution (pushes 42, moves 126, inlines 21, changes 12, steps 20 C): rdLLLLullDRRRRRurDlllllllddrrUdlluururrdLddlluRdrUUddRdrruLLLrrUdlluurRRRurrdLLrrddLLLdlUUdllulluRRluRdllddRRRdrUrrrruulDrdLLL

##########
##     ###
#  #.#$ ##
#  *..   #
## #*#$  #
##$@   ###
##     ###
##########
; Level 2
Title: level 2
Author: Serg Belyaev
Solution (pushes 24, moves 89, inlines 17, changes 14, steps 15 PMIS): dlUUURRRRllDuuurrDrDLLruullllDldRddrRuUdddrruUdLdlUlluuuurrrrdrdrdLuLLruullllddddrrrrUruL
Solution (pushes 26, moves 127, inlines 18, changes 11, steps 15 C): dlUUURRDullddrRuuuullDldRRlddrruUdddrruLdlUlluurrRRlllluurrrrDrDLLLrruullllddddrrrrUdlllluuuurrrrdrdLLrrrdLuluullllddddrrrrUruL

###########
###@ .  ###
#   #.#$  #
#   *.*   #
###$#.#$###
###   $   #
####  #   #
###########
; Level 3
Title: level 3
Author: Serg Belyaev
Solution (pushes 50, moves 154, inlines 27, changes 21, steps 23 PMIS): rrddddllUUddrrRRdrruLLLLuuRRDulluurrDDllLLddRdrUUUrrurrdLLLLddrRUdlluurRuullllDDRRUdddrruuLrddlluUllulldRRRRddllUdrrrrdrruLLLLuulLulldRRddRdrUrruuLrurrdLL
Solution (pushes 52, moves 218, inlines 28, changes 17, steps 28 C): rrddLLrrRRllddllUUddrrRRdrruLLLLuurrDullllddRdrUUdlluurRddrRdrruLLLLuullddRdrUlluurruurrDDDuuullddllddrrrRuuuullllDDuurrrrddddllUUUdddrruuLrddlluUllulldRRRRddllUdrruulLddrrrrdrruLLLLuullddRdrUlluuulldRRddrrrruuLrurrdLL


希望生成的文本:
Author: Serg Belyaev

###########
##  .##@  #
# $ ...$  #
#  $#*##  #
#   $.  $ #
####   ####
###########
; Level 1
Title: level 1
Author: Serg Belyaev
Solution (pushes 38, moves 92, inlines 20, changes 14, steps 16 PMIS): rdLLLLullDRRRRRurDlllllllddrrRdrruLUdLLUUrRRRurrdLLLrrrddLUruLLrddLLdlUlluullddRRRllUluRRluR

##########
##     ###
#  #.#$ ##
#  *..   #
## #*#$  #
##$@   ###
##     ###
##########
; Level 2
Title: level 2
Author: Serg Belyaev
Solution (pushes 24, moves 89, inlines 17, changes 14, steps 15 PMIS): dlUUURRRRllDuuurrDrDLLruullllDldRddrRuUdddrruUdLdlUlluuuurrrrdrdrdLuLLruullllddddrrrrUruL

###########
###@ .  ###
#   #.#$  #
#   *.*   #
###$#.#$###
###   $   #
####  #   #
###########
; Level 3
Title: level 3
Author: Serg Belyaev
Solution (pushes 50, moves 154, inlines 27, changes 21, steps 23 PMIS): rrddddllUUddrrRRdrruLLLLuuRRDulluurrDDllLLddRdrUUUrrurrdLLLLddrRUdlluurRuullllDDRRUdddrruuLrddlluUllulldRRRRddllUdrrrrdrruLLLLuulLulldRRddRdrUrruuLrurrdLL


3、我的代码
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for /f "delims=" %%i in (%~nx1)do (
  4. set m=%%i
  5. if defined z (echo.)else echo !m!
  6. if "!m:~0,8!" == "Solution" (set z=%%i)else set z=
  7. )>>%~n1-2.txt
  8. endlocal
  9. pause
  10. goto:eof
复制代码
运行结果:

Author: Serg Belyaev
###########
##  .##@  #
# $ ...$  #
#  $#*##  #
#   $.  $ #
####   ####
###########
Title: level 1
Author: Serg Belyaev
Solution (pushes 38, moves 92, inlines 20, changes 14, steps 16 PMIS): rdLLLLullDRRRRRurDlllllllddrrRdrruLUdLLUUrRRRurrdLLLrrrddLUruLLrddLLdlUlluullddRRRllUluRRluR


##     ###
#  #.#$ ##
#  *..   #
## #*#$  #
##$@   ###
##     ###
##########
Title: level 2
Author: Serg Belyaev
Solution (pushes 24, moves 89, inlines 17, changes 14, steps 15 PMIS): dlUUURRRRllDuuurrDrDLLruullllDldRddrRuUdddrruUdLdlUlluuuurrrrdrdrdLuLLruullllddddrrrrUruL


###@ .  ###
#   #.#$  #
#   *.*   #
###$#.#$###
###   $   #
####  #   #
###########
Title: level 3
Author: Serg Belyaev
Solution (pushes 50, moves 154, inlines 27, changes 21, steps 23 PMIS): rrddddllUUddrrRRdrruLLLLuuRRDulluurrDDllLLddRdrUUUrrurrdLLLLddrRUdlluurRuullllDDRRUdddrruuLrddlluUllulldRRRRddllUdrrrrdrruLLLLuulLulldRRddRdrUrruuLrurrdLL

每组第一行怎样都丢掉了?错在什么地方,请高手指教。谢谢!
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

RE: 希望自动删除多余的答案,只保留一个答案。

本帖最后由 pan528 于 2017-2-9 12:52 编辑

回复 2# WHY

谢谢回贴!
但问题如故。

“:”行丢掉不重要。

是图形的第一行丢掉了!

如:

######
#    #
#$##.#
## ##.##
#  @$. #
# $    #
###  ###
  ####  

运行后,变成:

#    #
#$##.#
## ##.##
#  @$. #
# $    #
###  ###
  ####  

你看错在哪里?

TOP

回复 3# WHY

这个代码OK!谢谢!

TOP

回复 6# WHY

谢谢回帖!

但,这两个代码都没有通过测试。

TOP

返回列表