On Error Resume Next
Dim srcFile, dic, fso, objFile, s, arr
srcFile = "1.txt"    '源文件

Set dic = CreateObject("Scripting.Dictionary")
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFile = fso.OpenTextFile(srcFile, 1)

while Not objFile.AtEndOfStream
    s = objFile.ReadLine
    arr = Split(s, "|", 2)
    If Not dic.Exists(arr(0)) Then
        dic.Item(arr(0)) = s
    Else
        dic.Item(arr(0)) = dic.Item(arr(0)) + "&" + arr(1)
    End If
wend

WSH.Echo Join(dic.Items, vbCrLf)
复制代码

@echo off
setlocal enabledelayedexpansion
for /f "tokens=1* delims=|" %%i in ('sort 1.txt') do (
    if "!s!" == "%%i" (
        set "out=!out! & %%j"
    ) else (
        if defined out echo;!out!
        set "s=%%i"
        set "out=%%i|%%j"
    )
)
if defined out echo;!out!
pause
复制代码

gawk -F"|" "{ a[$1] = a[$1] ? a[$1]\"^&\"$2 : $0 } END { for(i in a)print a[i] }" 1.txt > 2.txt
复制代码