设为首页收藏本站
开启辅助访问 切换到宽版

无忧启动论坛

 找回密码
 注册
搜索
无忧启动论坛»论坛 › ::启动制作:: › 综合讨论区 › bat处理文本，如何保留所有空行
系统gho:最纯净好用系统下载站投放广告、加入VIP会员，请联系 微信:wuyouceo
12下一页
返回列表 发新帖
查看: 3544|回复: 43
打印 上一主题 下一主题

[求助] bat处理文本，如何保留所有空行

  [复制链接]
nfans
跳转到指定楼层
1#
发表于 2023-11-22 13:48:11 | 只看该作者 |只看大图 回帖奖励 |正序浏览 |阅读模式
加入VIP会员，获无忧币，赠积分，送勋章，下载无限制，获论坛最高级会员权限 !
本帖最后由 nfans 于 2023-11-22 15:25 编辑

需求：
1，删除a.txt中行首4个空格（所有行：行首指定数量）
2，同时保留原文件中所有空行（所有空行不做处理）

本人对批处理是门外汉，利用百度来的代码已实现删指定数量行首字符，但同时也会删除所有空行，求助如何在此基础上兼顾保留空行。

因不能上传附件，还请复制文本测试，在此感谢各位大神！

初测批处理代码：

  1. @echo off
  2. set fn=a.txt
  3. (for /f "usebackq delims=" %%i in ("%fn%")do (
  4. echo;%%i>con
  5. set "h=%%i"
  6. setlocal enabledelayedexpansion
  7. echo;!h:~4!
  8. endlocal))>b.txt
  9. pause
复制代码
待测示例文本如下：a.txt
  1.     Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
  2.     Set colItems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
  3.     For Each objItem in colItems
  4.             OSA = objItem.OSArchitecture
  5.     Next

  7.     Const HKLM = &H80000002

  9.     Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

  11.     If OSA = "64-bit" Then
  12.             oReg.GetStringValue HKLM,"SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\XReplace","UninstallString",UninstallString
  13.             If Not IsNull(UninstallString) Then InstallLocation = Replace(UninstallString,"uninstall","XReplace")
  14.     Else
  15.             oReg.GetStringValue HKLM,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\XReplace","UninstallString",UninstallString
  16.             If Not IsNull(UninstallString) Then InstallLocation = Replace(UninstallString,"uninstall","XReplace")
  17.     End If

  19.     Set WshShell = WScript.CreateObject("WScript.Shell")

  21.     If IsNull(InstallLocation) Then
  22.             WshShell.Popup "软件未安装！", 5, "错误", 0
  23.             WScript.Quit
  24.     End If

  26.     Name = Array("XReplace.exe")
  27.     Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,(Debug)}!\\.\root\cimv2")
  28.     Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process")
  29.     For Each objProcess In colProcessList
  30.             For Each Process In Name
  31.                     If LCase(objProcess.Name) = LCase(Process) Then
  32.                             objProcess.Terminate()
  33.                     End If
  34.             Next
  35.     Next

  37.     Set objFSO = CreateObject("Scripting.FileSystemObject")

  39.     If objFSO.FileExists(InstallLocation) Then
  40.             Set ado_stream = CreateObject("ADODB.Stream")
  41.             ado_stream.Type = 1
  42.             ado_stream.open
  43.             ado_stream.LoadFromFile InstallLocation
  44.             ado_stream.position = 215133
  45.             ado_stream.Write HexToByte("E9B701000090")
  46.             ado_stream.position = 256771
  47.             ado_stream.Write HexToByte("E9CE02000090")
  48.             ado_stream.position = 277094
  49.             ado_stream.Write HexToByte("01")
  50.             ado_stream.position = 313599
  51.             ado_stream.Write HexToByte("B80100")
  52.             ado_stream.position = 313855
  53.             ado_stream.Write HexToByte("B80100")
  54.             ado_stream.position = 314442
  55.             ado_stream.Write HexToByte("B80100")
  56.             ado_stream.position = 314901
  57.             ado_stream.Write HexToByte("B80100")
  58.             ado_stream.SaveToFile InstallLocation, 2
  59.             ado_stream.Close
  60.             Set ado_stream = Nothing
  61.     End If

  63.     WshShell.Popup "超级字符串批量替换工具 v4.2.5 破解补丁" & vbnewline & vbnewline & "制作：ChiShingChan  编程语言：VBScript",10,"完成",0

  65.     Function HexToByte(hexStr)
  66.             Set xmldom = Wscript.CreateObject("Microsoft.XMLDOM")
  67.             Set byteObj= xmldom.createElement("byteObj")
  68.             byteObj.dataType = "bin.hex"
  69.             byteObj.nodeTypedValue = hexStr
  70.             HexToByte=byteObj.nodeTypedValue
  71.     End Function
复制代码




回复

使用道具 举报

37#
发表于 2024-4-18 09:13:17 | 只看该作者
谢谢分享
回复

使用道具 举报

36#
发表于 2024-4-16 01:20:23 来自手机 | 只看该作者
谢谢分享
回复

使用道具 举报

35#
发表于 2024-2-8 20:05:45 | 只看该作者
进来学习
回复

使用道具 举报

lxn0871
34#
发表于 2024-2-8 19:40:48 | 只看该作者
学习学习
回复

使用道具 举报

33#
发表于 2024-2-8 10:48:34 | 只看该作者
学习学习
回复

使用道具 举报

huqiu2
32#
发表于 2023-11-24 20:17:20 | 只看该作者
nttwqz 发表于 2023-11-22 17:37
vscode打开
选中那几行，shift+Tab，搞定！

百度  VBS代码在线格式化美化工具 就搞定了，bat太费劲了
回复

使用道具 举报

cao8mm
31#
发表于 2023-11-23 11:38:44 | 只看该作者
观摩学习
回复

使用道具 举报

nfans
30#
 楼主| 发表于 2023-11-23 10:57:12 | 只看该作者
szwp 发表于 2023-11-23 10:39
http://bbs.wuyou.net/forum.php?mod=redirect&goto=findpost&ptid=420811&pid=4075512&fromuid=225195

...

是的，当是随便从论坛扒了一个代码复制出来
回复

使用道具 举报

szwp
29#
发表于 2023-11-23 10:39:02 | 只看该作者
http://bbs.wuyou.net/forum.php?m ... &fromuid=225195

是要附件里的效果么？

点评

nfans
是的，当是随便从论坛扒了一个代码复制出来  详情 回复 发表于 2023-11-23 10:57
回复

使用道具 举报

nfans
28#
 楼主| 发表于 2023-11-23 09:59:33 | 只看该作者
Zap 发表于 2023-11-22 17:43
你原文本就多空格

a.txt红色竖线前面4个空格，处理后的b.txt前几行处理是正确的，后面还剩余一个空格，

PS: 论坛代码控件会自动给粘贴的内容行首增加4个空格
另外，这个批处理对空行保留的处理是否具有通用性？如果是指定行处理那不如用27楼朋友提到的方法处理了，当然也欢迎愿意研究批处理的朋友继续。


回复

使用道具 举报

hfxiang
27#
发表于 2023-11-23 09:16:54 | 只看该作者
如果接受第3方工具sed（下载： http://bcn.bathome.net/tool/4.9/sed.exe ）就比较简单（空格数，下例为{4}，可根据需要修改）:
sed -r -i.bak "s/^ {4}//" a.txt

评分

参与人数 1无忧币 +5 收起 理由
nfans + 5 很给力! 超牛，输出结果完美！

查看全部评分

回复

使用道具 举报

junyee
26#
发表于 2023-11-23 07:55:51 | 只看该作者
折腾啥。
windows 处理空行和换行都麻烦。

正则 "^    " 替换成 ""  不就行了。

回复

使用道具 举报

fzp070
25#
发表于 2023-11-23 00:54:49 | 只看该作者
观摩学习，感谢各位大佬解题！
我其实也有个想要的功能，就是删除所有空行(非空格)，一直没研究成功。
回复

使用道具 举报

24#
发表于 2023-11-22 17:54:06 | 只看该作者
进来学习
回复

使用道具 举报

Zap
23#
发表于 2023-11-22 17:43:56 | 只看该作者
nfans 发表于 2023-11-22 17:31
报告各位大佬，目标越来越接近，此处从11行起开始原本对齐的变得没对齐了

你原文本就多空格

点评

nfans
a.txt红色竖线前面4个空格，处理后的b.txt前几行处理是正确的，后面还剩余一个空格， 刚复制下来才发现论坛代码控件会自动给粘贴的内容行首增加4个空格 另外，这个批处理对空行保留的处理是否具有通用性？如果是  详情 回复 发表于 2023-11-23 09:59
回复

使用道具 举报

nttwqz
22#
发表于 2023-11-22 17:37:04 | 只看该作者
vscode打开
选中那几行，shift+Tab，搞定！

点评

huqiu2
百度 VBS代码在线格式化美化工具 就搞定了，bat太费劲了  详情 回复 发表于 2023-11-24 20:17
回复

使用道具 举报

nfans
21#
 楼主| 发表于 2023-11-22 17:31:04 | 只看该作者
Zap 发表于 2023-11-22 17:16

报告各位大佬，目标越来越接近，此处从11行起开始原本对齐的变得没对齐了


回复

使用道具 举报

Zap
20#
发表于 2023-11-22 17:16:45 | 只看该作者
  1. @echo off
  2. ::删所有行首4字符并保留其它空行到b.txt
  3. (for /f "delims=" %%i in ('findstr /n .* a.txt')do (
  4.         set "t=%%i"
  5.     setlocal enabledelayedexpansion
  6.     set x=!t:*:=!
  7.         echo=!t:~6!
  8.     endlocal
  9. ))>"b.txt"
  10. pause
复制代码

点评

nfans
报告各位大佬，目标越来越接近，此处从11行起开始原本对齐的变得没对齐了 [attachimg]534776[/attachimg]  详情 回复 发表于 2023-11-22 17:31
回复

使用道具 举报

nfans
19#
 楼主| 发表于 2023-11-22 16:27:19 | 只看该作者
感谢各位朋友热心帮助测试，综合使用9、17、18楼代码仍有明显bug，有条件请用 Beyond Compare 比对测试。
回复

使用道具 举报

smss
18#
发表于 2023-11-22 16:07:10 | 只看该作者
楼上已有最佳答案
  1. @echo off&setlocal enabledelayedexpansion
  2. ::删所有行首4字符并保留其它空行到b.txt
  3. (for /f "delims=" %%i in ('findstr /n .* a.txt')do set "t=%%i"&echo=!t:~6!)>b.txt
  4. pause
复制代码
回复

使用道具 举报

17#
发表于 2023-11-22 16:01:16 | 只看该作者
你代码的第三行，改成
  1. (for /f "tokens=1* delims=:" %%h in ('findstr /n .* %fn%')do (
复制代码
回复

使用道具 举报

rbwrbw
16#
发表于 2023-11-22 15:57:26 | 只看该作者
高手如云
回复

使用道具 举报

15#
发表于 2023-11-22 15:55:24 | 只看该作者
学习学习
回复

使用道具 举报

szwp
14#
发表于 2023-11-22 15:49:05 | 只看该作者
newyun 发表于 2023-11-22 15:42
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}\\.\root\cimv2")
Set col ...

先用findstr /n给原文件加行号，再去掉，就能留空行了。
在9楼基础上改改试试。
回复

使用道具 举报

newyun
13#
发表于 2023-11-22 15:42:25 | 只看该作者
nfans 发表于 2023-11-22 15:39
是删所有行行首，并保留空格，请注意审题，所以结果还不正确

空格与空行别弄混了

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
For Each objItem in colItems
OSA = objItem.OSArchitecture
Next
Const HKLM = &H80000002
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}StdRegProv")
If OSA = "64-bit" Then
oReg.GetStringValue HKLM,"SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\XReplace","UninstallString",UninstallString
If Not IsNull(UninstallString) Then InstallLocation = Replace(UninstallString,"uninstall","XReplace")
Else
oReg.GetStringValue HKLM,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\XReplace","UninstallString",UninstallString
If Not IsNull(UninstallString) Then InstallLocation = Replace(UninstallString,"uninstall","XReplace")
End If
Set WshShell = WScript.CreateObject("WScript.Shell")
If IsNull(InstallLocation) Then
WshShell.Popup "杞欢鏈畨瑁咃紒", 5, "閿欒", 0
WScript.Quit
End If
Name = Array("XReplace.exe")
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,(Debug)}\\.\root\cimv2")
Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process")
For Each objProcess In colProcessList
For Each Process In Name
If LCase(objProcess.Name) = LCase(Process) Then
objProcess.Terminate()
End If
Next
Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(InstallLocation) Then
Set ado_stream = CreateObject("ADODB.Stream")
ado_stream.Type = 1
ado_stream.open
ado_stream.LoadFromFile InstallLocation
ado_stream.position = 215133
ado_stream.Write HexToByte("E9B701000090")
ado_stream.position = 256771
ado_stream.Write HexToByte("E9CE02000090")
ado_stream.position = 277094
ado_stream.Write HexToByte("01")
ado_stream.position = 313599
ado_stream.Write HexToByte("B80100")
ado_stream.position = 313855
ado_stream.Write HexToByte("B80100")
ado_stream.position = 314442
ado_stream.Write HexToByte("B80100")
ado_stream.position = 314901
ado_stream.Write HexToByte("B80100")
ado_stream.SaveToFile InstallLocation, 2
ado_stream.Close
Set ado_stream = Nothing
End If
WshShell.Popup "瓒呯骇瀛楃涓叉壒閲忔浛鎹㈠伐鍏?v4.2.5 鐮磋В琛ヤ竵" & vbnewline & vbnewline & "鍒朵綔锛欳hiShingChan  缂栫▼璇█锛歏BScript",10,"瀹屾垚",0
Function HexToByte(hexStr)
Set xmldom = Wscript.CreateObject("Microsoft.XMLDOM")
Set byteObj= xmldom.createElement("byteObj")
byteObj.dataType = "bin.hex"
byteObj.nodeTypedValue = hexStr
HexToByte=byteObj.nodeTypedValue
End Function
这是 测试过来的结果，会把空行也处理掉，我想不出更好的办法了。我没转成ANSI所以中文乱码了。你注意下就行了

点评

szwp
先用findstr /n给原文件加行号，再去掉，就能留空行了。 在9楼基础上改改试试。  详情 回复 发表于 2023-11-22 15:49
回复

使用道具 举报

nfans
12#
 楼主| 发表于 2023-11-22 15:39:54 | 只看该作者
newyun 发表于 2023-11-22 15:28
@echo off
setlocal enabledelayedexpansion

是删所有行行首，并保留空格，请注意审题，所以结果还不正确

空格与空行别弄混了

点评

newyun
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}\\.\root\cimv2") Set colItems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem") For Each objItem in colItems  详情 回复 发表于 2023-11-22 15:42
回复

使用道具 举报

szwp
11#
发表于 2023-11-22 15:34:39 | 只看该作者
nfans 发表于 2023-11-22 15:32
原需求就是来自于论坛这个代码插件不能使用，试了多个浏览器都没搞定……
图片能上传却不能上传txt是何 ...

这个功能需要flash

点评

nfans
啊，感谢！我试试  发表于 2023-11-22 15:42
回复

使用道具 举报

nfans
10#
 楼主| 发表于 2023-11-22 15:32:42 | 只看该作者
szwp 发表于 2023-11-22 15:15
ChiShingChan在论坛的，可以用VBS来完成这个题目。

原需求就是来自于论坛这个代码插件不能使用，试了多个浏览器都没搞定……
图片能上传却不能上传txt是何解？





点评

nfans
1，插件问题修复了flash仍是不行，不折腾插件了。 2，搜索了一下发现能传图片不能传txt等等是论坛规则调整，需要更高会员级别了。  发表于 2023-11-22 16:45
szwp
这个功能需要flash  详情 回复 发表于 2023-11-22 15:34
回复

使用道具 举报

Zap
9#
发表于 2023-11-22 15:28:59 | 只看该作者
  1. @echo off&setlocal enabledelayedexpansion&set n=0
  2. ::删除行首4个字符保留其它空行到b.txt
  3. (for /f "delims=" %%a in ('findstr /n .* a.txt') do (
  4.         set "t=%%a"
  5.     if !n!==0 (echo=!t:~6!)else echo=!t:~2!
  6.     set /a n+=1
  7. ))> b.txt
  8. pause
复制代码

评分

参与人数 1无忧币 +5 收起 理由
smss + 5 很给力!

查看全部评分

回复

使用道具 举报

12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|捐助支持|无忧启动 ( 闽ICP备05002490号-1 )

闽公网安备 35020302032614号

GMT+8, 2024-11-22 22:40

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表