标题: 怎样把文件按要求分行 [打印本页]
作者: zouzhxi 时间: 2007-1-21 11:31 标题: 怎样把文件按要求分行
怎么样把下面的字分成一字一行,在每一行前面加一个空格.
| Quote: | |
|
作者: pengfei 时间: 2007-1-21 11:58
@echo off
setlocal enabledelayedexpansion
for /f "tokens=*" %%i in (test.txt) do call :go %%i
start "" result.txt
exit
:go
set num=0
set x=%*
:_go
>>result.txt echo !x:~%num%,1!
set /a num+=1
if not "!x:~%num%,1!"=="" goto :_go
goto :eof
作者: jmz573515 时间: 2007-1-21 12:04
set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
set file=fso.opentextfile("a.txt",1)
i=56789
do while file.AtEndOfStream <> True
yz=file.read(1)
s=s & " "& yz &" "& i& vbcrlf
i=i+1
loop
file.close
set file=fso.createtextfile("OUT.txt",true)
file.write s
file.close
Ws.run "notepad.exe OUT.TXT"
[ Last edited by jmz573515 on 2007-1-29 at 07:15 PM ]set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
set file=fso.opentextfile("a.txt",1)
i=56789
do while file.AtEndOfStream <> True
yz=file.read(1)
s=s & " "& yz &" "& i& vbcrlf
i=i+1
loop
file.close
set file=fso.createtextfile("OUT.txt",true)
file.write s
file.close
Ws.run "notepad.exe OUT.TXT"
作者: dikex 时间: 2007-1-21 12:07
将你些文字复制到file.txt文件里面
setlocal ENABLEDELAYEDEXPANSION
for /f "delims=" %%a in (file.txt) do (
set str1=%%a
for /l %%i in (0,1,10000) do (
if "!str1:~%%i,1!"=="" exit
echo+ !str1:~%%i,1!>>aa.txt
)
)
1改0for /f "delims=" %%a in (file.txt) do (
set str1=%%a
for /l %%i in (0,1,10000) do (
if "!str1:~%%i,1!"=="" exit
echo+ !str1:~%%i,1!>>aa.txt
)
)
[ Last edited by dikex on 2007-1-22 at 07:53 PM ]
作者: namejm 时间: 2007-1-21 12:12
不启用变量延迟功能，在不考虑特殊字符的情况下，可以使用如下代码：
@echo off
echo.
echo 正在处理数据，请耐心等待...
cd.>result.txt
set num=56789
for /f "delims=" %%i in (test.txt) do set str=%%i
:intercept
if not "%str%"=="" (
>>result.txt call echo %str:~0,1% %%num%%
set /a num+=1
set str=%str:~1%
goto intercept
)
start result.txt
呵呵，还要求每行前面有一个空格，补上。echo.
echo 正在处理数据，请耐心等待...
cd.>result.txt
set num=56789
for /f "delims=" %%i in (test.txt) do set str=%%i
:intercept
if not "%str%"=="" (
>>result.txt call echo %str:~0,1% %%num%%
set /a num+=1
set str=%str:~1%
goto intercept
)
start result.txt
[ Last edited by namejm on 2007-1-22 at 09:19 AM ]
作者: mulinsen 时间: 2007-1-21 12:40
4楼, 5楼很不错的代码...
4楼直接嵌套循环, 速度快代码简洁. 5楼name兄代码速度很快, 考虑的情况为所有字符都在一行, 另外, 如果文件内容过多, 可能一个环境变量无法容纳下所有字符, 未经测试, 呵~
作者: namejm 时间: 2007-1-21 12:55
5楼的代码仅针对楼主所提供的文本。仔细观察那段字符，其实处于同一行上，所以就偷了一下懒。其实要处理多行内容也是可以的，添上一个 call 语句就可以了。最近不怎么喜欢启用变量延迟，换成call来处理，为的是避免把文件中含有的感叹号过滤掉。
4楼的代码通过计数来做也挺不错的，把终止值设置为大大超过变量所能接收的范围的10000，避免了处理不彻底的bug。但是这个代码还有一个小bug：把第一个字符抛弃了。解决办法是：把for /l 的初值设置为0。
[ Last edited by namejm on 2007-1-20 at 11:58 PM ]
作者: zouzhxi 时间: 2007-1-21 13:18
其实我发的是GB2312里的一部份文字，它们都在同一行的。好，4楼5楼的代码实在是太好了。
作者: namejm 时间: 2007-1-21 13:21
3楼的vbs代码才是最快的。
作者: dikex 时间: 2007-1-21 23:51
| Quote: | |
|
太大意了了，道行不够啊
另外看来要学学VBS了
作者: zouzhxi 时间: 2007-1-22 21:33
可是我要的就是BAT的呀...
上回打错字了,不是加空格,而是加上序号在后面加上如
(空格)啊(空格)56789
(空格)阿(空格)56790
....
从56789开始
作者: namejm 时间: 2007-1-22 22:21
5楼代码已经更新，添加了序号列。
作者: huzixuan 时间: 2007-1-22 23:21
@echo off
setlocal ENABLEDELAYEDEXPANSION
for /f "delims=*" %%i in ('type file.txt') do call :do "%%i"
:do
set a=0
set b="%1"
:test
if not "!b:~%a%,1!"=="" (echo !b:~%a%,1!>>bb.txt
set /a a+=1
goto test
)
为什么这样写会出现 “” “” ？？？
"
"
啊
阿
埃
挨
哎
唉
哀
皑
癌
蔼
作者: lxmxn 时间: 2007-1-23 07:13
我也来灌灌水 ^_^
@echo off&Setlocal EnableDelayedExpansion
set file=%random%.txt
set/p=<nul>%file%
set b=15789
for /f "delims=" %%a in (note.txt) do (
set str=%%a
set a=0
call :loop !str!
)
start %file%
goto :eof
:loop
set str1=%1
if "!str1:~%a%,1!"=="" (goto :eof) else (>>%file% echo= !str1:~%a%,1! %b%
set/a a+=1&set/a b+=1
goto loop)
set file=%random%.txt
set/p=<nul>%file%
set b=15789
for /f "delims=" %%a in (note.txt) do (
set str=%%a
set a=0
call :loop !str!
)
start %file%
goto :eof
:loop
set str1=%1
if "!str1:~%a%,1!"=="" (goto :eof) else (>>%file% echo= !str1:~%a%,1! %b%
set/a a+=1&set/a b+=1
goto loop)
作者: redtek 时间: 2007-1-31 06:49
欣赏～～