@echo off & setlocal enabledelayedexpansion
for /f "tokens=*" %%a in (List.txt) do (
    set "str=%%a"
    if "!str:~,1!"=="{" (
        if "!str:~-1!"=="}" set "fd=!str:~1,-1!"
    ) else (
        if defined fd if not exist "!fd!\" md "!fd!\"
        for /f "tokens=1*delims=," %%b in ("%%a") do (
            set "Name=%%b" & set "url=%%c" & set "n="
            call :Lp "!Name!"
        )
    )
)
pause & exit /b

:Lp
if exist "!fd!\!Name!.txt" set /a n+=1 & set "Name=%~1_!n!" & goto :Lp
echo,!url!>"!fd!\!Name!.txt"
复制代码

Set fso = Createobject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("List.txt")

Do Until file.AtEndOfStream
    strLine = Trim(file.ReadLine)
    If Left(strLine,1) = "{" and Right(strLine,1) = "}" Then
        strFD = Mid(strLine,2,Len(strLine)-2)
        If Not fso.FolderExists(strFD) Then
            fso.CreateFolder strFD
        End If
    ElseIf strLine <> "" Then
        strName = Left(strLine,InStr(strLine,",")-1)
        strUrl = Right(strLine,Len(strLine)-InStr(strLine,","))
        strNewName = strName & ".txt"
        i = 0
        while fso.FileExists(strFD & "\" & strNewName)
            i = i + 1
            strNewName = strName & "_" & i & ".txt"
        wend
        fso.CreateTextFile(strFD & "\" & strNewName,true).Write strUrl
    End If
Loop
复制代码

if exist "!fd!\!Name!.txt" set /a n+=1 & set "Name=%~1_!n!" & goto :Lp

echo,!url!>"!fd!\!Name!.txt"
复制代码

@echo off & setlocal enabledelayedexpansion
for /f "tokens=*" %%a in (List.txt) do (
    set "str=%%a"
    if "!str:~,1!"=="{" (
        if "!str:~-1!"=="}" set "fd=!str:~1,-1!"
    ) else (
        if defined fd (
            if not exist "!fd!\" md "!fd!\"
            for /f "tokens=1*delims=," %%b in ("%%a") do (
                if not defined .%%b (
                    set ".%%b=0" & echo,%%c>"!fd!\%%b.txt"
                ) else set /a .%%b+=1 & echo,%%c>"!fd!\%%b_!.%%b!.txt"
            )
        )
    )
)
pause
复制代码

@echo off & setlocal enabledelayedexpansion
for /f "tokens=*" %%a in (List.txt) do (
    set "str=%%a"
    if "!str:~,1!"=="{" (
        if "!str:~-1!"=="}" set "fd=!str:~1,-1!" & md "!fd!\" 2>nul
    ) else (
        for /f "tokens=1*delims=," %%b in ("!str!") do (
            set /a ".!fd!.%%b+=1"
            for %%d in (!fd!) do set "a=00!.%%d.%%b!"
            >>"!fd!\%%b.txt" echo,^<Entry^> ^<Title^>%%b_源!a:~-2!^</Title^> ^<Ref href = "%%c"/^> ^</Entry^>
        )
    )
)
pause
复制代码

Set fso = Createobject("Scripting.FileSystemObject")
Set dic = CreateObject("Scripting.Dictionary")
Set file = fso.OpenTextFile("List.txt")

Do Until file.AtEndOfStream
    strLine = Trim(file.ReadLine)
    If Left(strLine,1) = "{" and Right(strLine,1) = "}" Then
        strFD = Mid(strLine,2,Len(strLine)-2)
        If Not fso.FolderExists(strFD) Then
            fso.CreateFolder strFD
        End If
    ElseIf strLine <> "" Then
        strName = Left(strLine,InStr(strLine,",")-1)
        strUrl = Right(strLine,Len(strLine)-InStr(strLine,","))
        strKey = strFD & "\" & strName
        If dic.Exists(strKey) Then
            dic.Item(strKey) = dic.Item(strKey) + 1
        Else dic.Add strKey,101
        End If
        s = "_源" & Right(dic.Item(strKey),2)
        s = "<Entry> <Title>" & strName & s & "</Title> <Ref href = "
        s = s & chr(34) & strUrl & chr(34) &"/> </Entry>"
        fso.OpenTextFile(strKey & ".txt",8,true).WriteLine s
    End If
Loop
复制代码

        If strFD <> "" and Not fso.FolderExists(strFD) Then
复制代码

Set fso = Createobject("Scripting.FileSystemObject")
Set dic1 = CreateObject("Scripting.Dictionary")
Set dic2 = CreateObject("Scripting.Dictionary")
Set file = fso.OpenTextFile("List.txt")

Do Until file.AtEndOfStream
    strLine = Trim(file.ReadLine)
    If Left(strLine,1) = "{" and Right(strLine,1) = "}" Then
        strFD = Mid(strLine,2,Len(strLine)-2)
    ElseIf strLine <> "" and strFD <> "" Then
        If Not fso.FolderExists(strFD) Then
            fso.CreateFolder strFD
        End If

        strName = Left(strLine,InStr(strLine,",")-1)
        strUrl = Right(strLine,Len(strLine)-InStr(strLine,","))
        strKey = strFD & "\" & strName

        If dic1.Exists(strKey) Then
            dic1.Item(strKey) = dic1.Item(strKey) + 1
        Else
            dic1.Add strKey,101
        End If

        s = "_源" & Right(dic1.Item(strKey),2)
        s = "<Entry> <Title>" & strName & s & "</Title> <Ref href = "
        s = s & chr(34) & strUrl & chr(34) &"/> </Entry>"

        If dic2.Exists(strKey) Then
            dic2.Item(strKey) = dic2.Item(strKey) & vbcrLf & s
        Else
            dic2.Add strKey,"<Asx Version = ""3.0"">" & vbCrLf & s
        End If
    End If
Loop

For Each a in dic2.Keys
    fso.OpenTextFile(a & ".txt",2,true).Write dic2.Item(a) & vbCrLf & "</Asx>"
Next
MsgBox "OK"
复制代码