谢谢分享

谢谢分享

进来学习

学习学习

学习学习

nttwqz 发表于 2023-11-22 17:37
vscode打开
选中那几行，shift+Tab，搞定！

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

观摩学习

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

...

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

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

是要附件里的效果么？

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

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

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

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

进来学习

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

你原文本就多空格

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

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

复制代码

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

楼上已有最佳答案

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

复制代码

你代码的第三行，改成

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

复制代码

高手如云

学习学习

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

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

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所以中文乱码了。你注意下就行了

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

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

空格与空行别弄混了

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

这个功能需要flash

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

复制代码