[已解决]批处理如何实现多行变一行？

wangdao6699 · 发表于 2015-4-12 14:43:21

本帖最后由 wangdao6699 于 2015-4-12 18:33 编辑

记事本内容如：

110:18
aaannnb

60:20

333369888
bat236

252.36.85
04 7A 68 65 6E 90 00

结果：

N行变成一行，以 | 作为分隔符

110:18|aaannnb|60:20|333369888|bat236|252.36.85|04 7A 68 65 6E 90 00

bailong360 · 发表于 2015-4-12 15:02:58

@echo off
setlocal enabledelayedexpansion
(for /f "useback delims=" %%i in ("Your.txt") do <nul set /p=!str!&set "str=%%i|"
<nul set /p=!str:~0,-1!)>$New.txt

复制代码

wangdao6699 · 发表于 2015-4-12 16:44:18

回复 2# bailong360

测试了一组出现结果竟是：36.93 |36.94 |36.98 |36.99|36.103
分隔符 | 前有空格

测试数据：

36.93
36.94
36.98
36.99
36.103

522235677 · 发表于 2015-4-12 18:04:34

回复 3# wangdao6699

@echo off & setlocal enabledelayedexpansion
(for /f "delims=" %%a in (1.txt) do (
if not "!str!"=="" <nul set /p=^|
set str=%%a
<nul set /p=!str: =!
))>new.txt
pause

复制代码

你的文本本来带有空格的

wangdao6699 · 发表于 2015-4-12 18:30:41

本帖最后由 wangdao6699 于 2015-4-12 18:32 编辑

回复 2# bailong360

代码不错

pcl_test · 发表于 2015-4-12 18:35:21

来个VBS

Dim fso,File1,File2
Set fso = CreateObject("Scripting.FileSystemObject")
Set File1= fso.OpenTextFile(".\测试.txt", 1 , True)
Set File2 = fso.CreateTextFile(".\结果.txt", 2 ,True)
Do While File1.AtEndOfStream <> True
strtmp = Trim(File1.ReadLine)
If Len(strtmp) > 0 Then str=str&strtmp&"|"
loop
File2.Write Left(str,Len(str)-1)
File1.Close
File2.Close
MsgBox "完成！"

复制代码

wangdao6699 · 发表于 2015-4-12 19:21:08

回复 6# pcl_test

感谢您分享，代码有效，学习了

		自动登录	找回密码
密码			注册

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

[文本处理] [已解决]批处理如何实现多行变一行？

评分

评分

评分