返回列表 发帖
回复 15# 881966

不提供出错信息,又不提供样本,让大家怎么帮你解决问题?你认为的“复制文本”就行,根本不是你想的那样,我既然发出来代码,能测试的我都测试过了,使用正常的
bat小白,请多指教!谢谢!

TOP

本帖最后由 881966 于 2023-2-18 20:04 编辑

回复 16# 77七


    链接:https://pan.baidu.com/s/1hBw23ogZBNkwqplvrWr60g
提取码:1234

用14楼的代码

TOP

链接:https://pan.baidu.com/s/1W2FliVB36ZhutCqVA56G0g
提取码:1234

这是5楼代码

TOP

链接:https://pan.baidu.com/s/1GMbCqSYFM6KcCXfJQO47Pw
提取码:1234

这是10楼代码

TOP

链接:https://pan.baidu.com/s/1LWaWO1WtfaI9uOSMhprHng
提取码:1234

这是3楼代码

TOP

链接:https://pan.baidu.com/s/1ED_7kc5ASOuj8PLNoo0TaQ
提取码:1234

这是4楼代码

TOP

回复 13# 881966


如果需要上传文件,可以用阿里云盘或百度网盘。

如果需要上传截图,可以找个图床,例如:
http://bbs.bathome.net/thread-60985-1-1.html
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 22# Batcher


    谢谢管理

今天好像异常,上传百度盘了


麻烦大家了:handshake

TOP

@echo off
cd.>b.txt
for /f "delims=" %%i in ('type "a.txt" ^| findstr /n .*') do (
        set "str=%%i"
        setlocal enabledelayedexpansion
        set "str=!str:*:=!"
        if "!str!" equ "" (
                >>b.txt echo,!str!
        )
        if not "!str!" equ "" (
                set n=
                for /f "delims=" %%c in ("!str!") do (
                        set "str3=%%c"
                )
                for /f "delims=" %%b in ('type "b.txt"') do (
                        if "!str3!" equ "%%b" (
                                set n=1
                        )
                )
                if not defined n (
                        >>b.txt echo,!str!
                )
        )
        endlocal
)
pauseCOPY

水平有限,想不出完美办法,只能折中,使用前手动替换全文中的"!"为其它字符,使用此代码后替换回"!",方可基本解决你的问题。
或者直接使用代码,特殊情况下会出错。
1

评分人数

bat小白,请多指教!谢谢!

TOP

@if(0)==(0) echo off
cd /d "%~dp0"
type a.txt | cscript //nologo //e:jscript "%~f0" > b.txt
pause & exit
@end
var map = {}
while(!WSH.StdIn.AtEndOfStream){
    var s = WSH.StdIn.ReadLine();
    if(s == ''){
        WSH.Echo(s);
    } else if(!map.hasOwnProperty(s)){
        map[s] = true;
        WSH.Echo(s);
    }
}COPY
1

评分人数

TOP

回复 24# 77七


    再次感谢 ,让你费心了,

TOP

回复 25# WHY


    谢谢坛友的帮助

TOP

@echo off
powershell "$Hash = @{};(GC '.\a.txt').Where({if (!$Hash.Contains($_)){$Hash.Add($_,++$i)}});($Hash.GetEnumerator()| Sort Value).Key"
pauseCOPY
1

评分人数

TOP

返回列表