[文本处理] 【练习】批处理实现英文歌词居中

523066680

[Promise don't come easy]
I should have known all along.
There was something wrong.
I just never read between the lines.
Then I woke up one day and found you on your way.
Leaving nothing but my heart behind.
What can I do to make it up to you.
Promises don't come easy.
But tell me if there's a way to bring you back home to stay.
Well I'd promises anything to you.
I've been walkin' around with my head hanging down.
Wondrin' what I'm gonna do.
'Cause when you walked out that door.

歌词内容如上，要求：

以cmd界面默认的80字符为一行，对歌词的每一样进行居中显示。
（batman以前给俺出的题，不知道他发过没？）

[ 本帖最后由 523066680 于 2009-10-7 17:35 编辑 ]

523066680

哈哈 我太天真了 有个@

netbenton

re 17楼

你试过了吗？

523066680

1.从6楼的以前的帖看到了netbenton 用两边添加空格到80位为止的办法。学习了。
2.netbenton此次给的set 截取办法，没有考虑字符串内部的空格可能被替换。

[ 本帖最后由 523066680 于 2009-10-13 08:12 编辑 ]

随风

汗，发帖才看到和 netbenton 的思路一样的 ^_^

随风

:不用判断字符数
:

@echo off&setlocal enabledelayedexpansion
for /l %%a in (1 1 20) do set "k=    !k!"
for /f "tokens=* delims= " %%a in (a.txt) do (
   set "str=%%a%k%"
   set "str=!str:~0,79!"
   set "str=!str:*%%a=!"
   if "!str:~0,1!"==" " (set str=!str:  = !) else set "str="
   echo !str!%%a
) 
pause
复制代码

keen

来个VBS的:

'给本VBS取名为test.vbs
'运行此VBS的方式：
'在CMD下输入：cscript //nologo test.vbs
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("a.txt", 1)
DO Until objTextFile.AtEndOfStream
    strLine = objTextFile.ReadLine
    intCha = (80 - Len(strLine))\2
    strSpace = Space(intCha)
    WSH.StdOut.WriteLine strSpace & strLine
Loop
复制代码

netbenton

@echo off
set "sp=                                                                                        " 80个空格
for /f "delims=" %%a in (abc.txt) do (
        set p=%sp%@#%%a
        setlocal enabledelayedexpansion
        set p=!p:~-81!
        for /f "tokens=1 delims=@" %%b in ("!p:  = !") do endlocal&echo;%%b%%a
)
::可以处理for /f 能读取到的任何半角字符
复制代码

[ 本帖最后由 netbenton 于 2009-10-12 21:21 编辑 ]

基拉freedom

这只是一种想法 只要把标志符提前就好了
或者把-80 改为更大的 然后 用set的时候多截取空格就可以了

Seter

原帖由 基拉freedom 于 2009-10-7 20:13 发表
恩
如果添加的空格前有一个字符
比如set p=t                                                                   %%a&set p=!p:~-80!
set p=!p:t  = !判断是不是会简单一点 没试过

不会吧...!p:~-80!截取时t不是爆炸了么...那么!p:t  = !怎么被替换?

Batcher

建议大家时不时地就去复习一下“代码咨询&讨论版块批处理出题帖汇总整理”
http://bbs.bathome.net/thread-5417-1-1.html

温故而知新

基拉freedom

恩
如果添加的空格前有一个字符
比如

set p=t                                                                   %%a&set p=!p:~-80!
set p=!p:t  = !
复制代码

判断是不是会简单一点 没试过

terse

单字节 总一边多一格 ~

523066680

哦 刚刚我还没细看~  差一些~
以前做的时候是

strx+80空格
选前80个字符
把strx替换掉，剩下的是后面的空格
echo,%剩下的空格/2%%strx%

看到了netbenton那个，意料之外~

[ 本帖最后由 523066680 于 2009-10-7 18:32 编辑 ]

Seter

哈哈,不过不能有两个空格...我想想有没更好的办法
http://bbs.bathome.net/viewthrea ... hlight=%BE%D3%D6%D0
sed高手..findstr高手..