bat处理文本，如何保留所有空行

nfans

需求：
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
   
6. 
   
7.     Const HKLM = &H80000002
   
8. 
   
9.     Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
   
10. 
    
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
    
18. 
    
19.     Set WshShell = WScript.CreateObject("WScript.Shell")
    
20. 
    
21.     If IsNull(InstallLocation) Then
    
22.             WshShell.Popup "软件未安装！", 5, "错误", 0
    
23.             WScript.Quit
    
24.     End If
    
25. 
    
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
    
36. 
    
37.     Set objFSO = CreateObject("Scripting.FileSystemObject")
    
38. 
    
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
    
62. 
    
63.     WshShell.Popup "超级字符串批量替换工具 v4.2.5 破解补丁" & vbnewline & vbnewline & "制作：ChiShingChan  编程语言：VBScript",10,"完成",0
    
64. 
    
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

复制代码

newyun

@echo off
setlocal enabledelayedexpansion

set input_file=a.txt
set output_file=output.txt

for /f "tokens=*" %%a in (%input_file%) do (
    set line=%%a
    echo !line:~4!>> %output_file%
)
del a.txt /q
move output.txt a.txt

nfans

newyun 发表于 2023-11-22 14:42
@echo off
setlocal enabledelayedexpansion

你好，这个代码会删除所有行首的空字符，不是指定数量，并且也会删除所有空行

newyun

我测试过是删除前4。比如原a.txt是
11111111  11111111  
22222222  22222222  
33222233  33333333  
42222444  44444444  
11222211  11111111  
22222222  22222222  
33222233  
44222244  
删除完后是

1111  11111111  
2222  22222222  
3333  33333333  
4444  44444444  
1111  11111111  
2222  22222222  
3333  
4444  

nfans

首楼代码测试结果参照： b.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
   
6. Const HKLM = &H80000002
   
7. Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
   
8. If OSA = "64-bit" Then
   
9.         oReg.GetStringValue HKLM,"SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\XReplace","UninstallString",UninstallString
   
10.         If Not IsNull(UninstallString) Then InstallLocation = Replace(UninstallString,"uninstall","XReplace")
    
11. Else
    
12.         oReg.GetStringValue HKLM,"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\XReplace","UninstallString",UninstallString
    
13.         If Not IsNull(UninstallString) Then InstallLocation = Replace(UninstallString,"uninstall","XReplace")
    
14. End If
    
15. Set WshShell = WScript.CreateObject("WScript.Shell")
    
16. If IsNull(InstallLocation) Then
    
17.         WshShell.Popup "软件未安装！", 5, "错误", 0
    
18.         WScript.Quit
    
19. End If
    
20. Name = Array("XReplace.exe")
    
21. Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,(Debug)}!\\.\root\cimv2")
    
22. Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process")
    
23. For Each objProcess In colProcessList
    
24.         For Each Process In Name
    
25.                 If LCase(objProcess.Name) = LCase(Process) Then
    
26.                         objProcess.Terminate()
    
27.                 End If
    
28.         Next
    
29. Next
    
30. Set objFSO = CreateObject("Scripting.FileSystemObject")
    
31. If objFSO.FileExists(InstallLocation) Then
    
32.         Set ado_stream = CreateObject("ADODB.Stream")
    
33.         ado_stream.Type = 1
    
34.         ado_stream.open
    
35.         ado_stream.LoadFromFile InstallLocation
    
36.         ado_stream.position = 215133
    
37.         ado_stream.Write HexToByte("E9B701000090")
    
38.         ado_stream.position = 256771
    
39.         ado_stream.Write HexToByte("E9CE02000090")
    
40.         ado_stream.position = 277094
    
41.         ado_stream.Write HexToByte("01")
    
42.         ado_stream.position = 313599
    
43.         ado_stream.Write HexToByte("B80100")
    
44.         ado_stream.position = 313855
    
45.         ado_stream.Write HexToByte("B80100")
    
46.         ado_stream.position = 314442
    
47.         ado_stream.Write HexToByte("B80100")
    
48.         ado_stream.position = 314901
    
49.         ado_stream.Write HexToByte("B80100")
    
50.         ado_stream.SaveToFile InstallLocation, 2
    
51.         ado_stream.Close
    
52.         Set ado_stream = Nothing
    
53. End If
    
54. WshShell.Popup "超级字符串批量替换工具 v4.2.5 破解补丁" & vbnewline & vbnewline & "制作：ChiShingChan  编程语言：VBScript",10,"完成",0
    
55. Function HexToByte(hexStr)
    
56.         Set xmldom = Wscript.CreateObject("Microsoft.XMLDOM")
    
57.         Set byteObj= xmldom.createElement("byteObj")
    
58.         byteObj.dataType = "bin.hex"
    
59.         byteObj.nodeTypedValue = hexStr
    
60.         HexToByte=byteObj.nodeTypedValue
    
61. End Function
    
62. 
    

复制代码

nfans

newyun 发表于 2023-11-22 15:03
我测试过是删除前4。比如原a.txt是
11111111  11111111  
22222222  22222222  

前面表述不清，主要是删行首若干空格，并同时保留空行

szwp

ChiShingChan在论坛的，可以用VBS来完成这个题目。

newyun

@echo off
setlocal enabledelayedexpansion

set "inputFile=a.txt"
set "outputFile=b.txt"

if not exist %inputFile% (
echo File %inputFile% does not exist.
exit /b 1
)

for /f "tokens=*" %%a in (%inputFile%) do (
set "line=%%a"
set "line=!line:~0,1!!line:~1!"
echo !line! >> %outputFile%
)
del /q a.txt
move b.txt a.txt

Zap

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

复制代码

nfans

szwp 发表于 2023-11-22 15:15
ChiShingChan在论坛的，可以用VBS来完成这个题目。

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

szwp

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

这个功能需要flash

nfans

newyun 发表于 2023-11-22 15:28
@echo off
setlocal enabledelayedexpansion

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

空格与空行别弄混了

newyun

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

newyun 发表于 2023-11-22 15:42
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}\\.\root\cimv2")
Set col ...

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

nathan6498

学习学习

rbwrbw

高手如云

ppll2030

你代码的第三行，改成

1. (for /f "tokens=1* delims=:" %%h in ('findstr /n .* %fn%')do (

复制代码

nfans

感谢各位朋友热心帮助测试，综合使用9、17、18楼代码仍有明显bug，有条件请用 Beyond Compare 比对测试。

Zap

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

Zap 发表于 2023-11-22 17:16

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

nttwqz

vscode打开
选中那几行，shift+Tab，搞定！

Zap

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

你原文本就多空格

yyz2191958

进来学习

fzp070

观摩学习，感谢各位大佬解题！
我其实也有个想要的功能，就是删除所有空行(非空格)，一直没研究成功。

junyee

折腾啥。
windows 处理空行和换行都麻烦。

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

hfxiang

如果接受第3方工具sed（下载： http://bcn.bathome.net/tool/4.9/sed.exe ）就比较简单（空格数，下例为{4}，可根据需要修改）:
sed -r -i.bak "s/^ {4}//" a.txt

nfans

Zap 发表于 2023-11-22 17:43
你原文本就多空格

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

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

szwp

http://bbs.wuyou.net/forum.php?m ... &fromuid=225195

是要附件里的效果么？

nfans

szwp 发表于 2023-11-23 10:39
http://bbs.wuyou.net/forum.php?mod=redirect&goto=findpost&ptid=420811&pid=4075512&fromuid=225195

...

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