Question

批处理怎么对文本字符串去重然后再拼接

D盘目录下有一个很多文本文件（.txt），内容如下：
"111111111111111111111111#a1"
"111111111111111111111111#b1"
"111111111111111111111111#c1"
"111111111111111111111111#d1"

现在想做一个批处理，把该文件夹下的所有文本内容进行去重，拼接，达到类似如下效果
111111111111111111111111#a1b1c1d1
并输出为一个新的文本文档

求问大神该怎么做？
我设置了一个字符“#”，批处理文件在第二行搜索到这个字符的时候，就把这一行在“#”之后的字符串截取出来，放到第一行尾部，并删除第二行，类似循环操作

若以下回答无法解决问题，邀请你更新回答

Answer 1

1、“目录下有一个很多文本文件”，这到底是一个文件，还是很多文件，俺语文不好，求解释啊！（根据下文，似乎有N个TXT文件）
2、所有txt都是"111111111111111111111111#a1"这种格式？每个文件只有这么一行还是有N行？
3、“把该文件夹下的所有文本内容进行去重，拼接，并输出为一个新的文本文档”，是把N个TXT的内容全合并到一个新文件中？

追问

1，N个文件
2，所有txt都是这种格式：前面一大串一样的字符，只有后面不一样
3，每一个文件对应输出一个新文件，即输出N个新文件

追答

 Set fso = WScript.CreateObject("Scripting.Filesystemobject")

Set fdr = fso.GetFolder(".")'当前文件夹

Set fs = fdr.Files

for Each f in fs

If LCase(Right(f.Name,4))=".txt" Then'判断后缀是否为.txt

Set ftxt=fso.OpenTextFile(f.Name,1)

rs=ftxt.ReadLine'从源文件读入第一行,rs为最终拼合起来的总字符串

do until ftxt.AtEndOfStream'读取源文件剩下内容

strline=ftxt.ReadLine'从源文件读入一行

strarr=Split(strline,"#",-1)'以#为分隔符，将该行字符串分割成包含两个元素的数组，—

rs=rs&strarr(1)'strarr(1)即为要拼接的字符串

Loop

ftxt.Close

Set fnew=fso.CreateTextFile("new_"&f.name,1)'新建文件，文件名前面加上new_

fnew.Write(rs)

fnew.Close

End If

Next

追问

提示“此时不应有each”
在第七行那里

追答

for each……next是vbs自带的语句结构，出这种错误说明整个脚本的语句乱掉了
可能是你复制时有问题
你再检查下
把多余的换行去掉，真正的代码有18行
也可以上个图

追问

追答

亲，不带这么耍人的，出现这个说明至少有一行没有#号……

解决方法有两个，一个是在最开头加一句

On Error Resume next

不过这么做没人知道到底会生成个什么样的文件……

第二种是提前判断读入的行中是否有#号：

Set fso = WScript.CreateObject("Scripting.Filesystemobject") 
Set fdr = fso.GetFolder(".")'当前文件夹 
Set fs = fdr.Files
for Each f in fs
If LCase(Right(f.Name,4))=".txt" Then'判断后缀是否为.txt 
Set ftxt=fso.OpenTextFile(f.Name,1) 
rs=ftxt.ReadLine'从源文件读入第一行,rs为最终拼合起来的总字符串 
do until ftxt.AtEndOfStream'读取源文件剩下内容 
strline=ftxt.ReadLine'从源文件读入一行
If InStr(1,strline,"#",1)>0 then'判断读入的行中是否有#号
strarr=Split(strline,"#",-1)'以#为分隔符，将该行字符串分割成包含两个元素的数组 
rs=rs&strarr(1)'strarr(1)即为要拼接的字符串
End If
Loop 
ftxt.Close 
Set fnew=fso.CreateTextFile("new_"&f.name,1)'新建文件，文件名前面加上new_ 
fnew.Write(rs) 
fnew.Close 
End If 
Next

追问

好吧，之前我的文本数据有问题，习惯性在最后一行按了Enter，导致多出来一个空行

但是改了以后，能生成出一个新文件new_XXX.txt，可是这个文件没内容，是空的，以下是错误提示（我是复制你提供的第二种方法运行的）：

行：17
字符：1
错误：无效的过程调用或参数
代码：800A0005

追答

你再像昨天那样截个图吧。
先把绿字去掉，要不然图片太宽了，在手机上看得累

追问

追答

好奇怪 没发现什么问题……
这样，文件夹里别放太多txt文件，
你把17行换成
msgbox rs
看看对话框里的内容对不对

唉 人呢 一天了 还没动静 好歹出来冒个泡吧

追问

之前我目录下只放了一个txt文件

现在把17行改成msgbox rs之后还是不行，点击了之后先跳出一个乱码的字，然后才出错误提示，如下两张图

追答

还是麻烦你把那个txt发给我吧 我造了N个txt都没出现你这种错误 没辙了+_+ 邮箱: SB七0四肆@G m a i l.com。
记得把汉字换成数字

追问

OK了好像，貌似是系统语言的关系，不太清楚- -
感激不尽~

追答

你发给我的那个txt是unicode的，上面的脚本只能处理ansi。我把代码重新改了下，使其既可以处理ansi的，又可以处理unicode的。太长了发不了，私信给你。