|
|
发表于 2025-8-31 11:51:35
|
显示全部楼层
本帖最后由 aloha20200628 于 2025-8-31 11:59 编辑
回复 24# chishingchan
订正了22楼代码如下,应该可以了,再试试...
- @echo off &setlocal enabledelayedexpansion &chcp 65001>nul
- for /f "tokens=2 delims= " %%v in ('chcp') do if "%%v"=="936" (set "c=default") else set "c=utf8"
- powershell "gc 1.txt|%%{$a=$_.split(' ');if($a[1] -eq ''){$a[0]+' '}}">#.$
- (for /f "tokens=1,2* delims= " %%a in (1.txt) do (
- set/a "n+=1" &set "v2=" &set "_v2=" &set/p "v2="
- if "%%c"=="" (set "v3=%%a %%b") else (set "v3=%%a %%b %%c")
- if !n! equ 3 (echo,65001 !v3!) else (
- for /l %%n in (1,1,5) do if not defined _v2 for /f "tokens=1-2 delims= " %%x in ("!v2!") do if /i "%%a"=="%%x" (set "_v2=%%y") else (set/p "v2=")
- if not defined v2 (echo,!v3!) else (if "%%c"=="" (echo,%%a !_v2!) else echo,%%a !_v2! %%c) )
- ))<2.txt >3.txt
- for %%v in (#.$) do if %%~zv gtr 0 powershell "$l=[io.file]::readalltext('3.txt',[text.encoding]::!c!).trim();gc '#.$'|%%{$v=$_.replace(' ',' ');$l=$l.replace($_,$v);};[io.file]::writeAlltext('3.txt',$l,[text.encoding]::!c!)"
- del /q "#.$" &pause&exit/b
复制代码 |
|