1270697389

保存为bat，用记事本打开后会变成utf-8格式，“源”变成乱码，不知道是否传说中的“联通”问题vbs，保存为u ...
apang 发表于 2014-1-4 14:21

    你的bat没有问题，要保存为ANSI格式的bat就没有问题了。

apang

保存为bat，用记事本打开后会变成utf-8格式，“源”变成乱码，不知道是否传说中的“联通”问题

@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
复制代码

vbs，保存为unicode格式好了

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
复制代码

hbb

我有个“频道列表.txt”文件，文件内容如下
{央视频道}
CCTV1综合,218.24.47.44/CCTV1.m3u8
CCTV1综合,218.24.47.44/CCTV1.m3u9
CCTV1综合,vdn.apps.cntv.cn/api/getLiveUrlCommonRedirectApi.do?channel=pa://cctv_p2p_hdcctv1&type=ipad
CCTV1综合,rtmp.cntv.lxdns.com/live/cctv1/playlist.m3u8
CCTV2财经,218.24.47.44/CCTV2.m3u8
CCTV2财经,vdn.apps.cntv.cn/api/getLiveUrlCommonRedirectApi.do?channel=pa://cctv_p2p_hdcctv2&type=ipad
CCTV2财经,218.24.47.44/CCTV2.m3u8
CCTV2财经,rtmp.cntv.lxdns.com/live/cctv2/playlist.m3u8
CCTV3综艺,stream1.gzcbn.tv:1935/app_2/ls_3.stream/playlsit.m3u8?session=jyb321123
CCTV3综艺,vdn.apps.cntv.cn/api/getLiveUrlCommonRedirectApi.do?channel=pa://cctv_p2p_hdcctv3&type=ipad
CCTV3综艺,116.199.127.68/cctv3
CCTV3综艺,vdn.apps.cntv.cn/api/getLiveUrlCommonRedirectApi.do?channel=pa://cctv_p2p_hdcctv3&type=ipad
{地方卫视}
北京卫视,live.gslb.letv.com/gslb?stream_id=bjws&tag=live&ext=m3u8&sign=live_tv
北京卫视,tvie01.ucatv.com.cn/channels/xjyx/BeiJing-HD-Suma/flv:BJ_HD_Suma
北京卫视,web-play.pptv.com/web-m3u8-300166.m3u8?type=m3u8.web.pad
东方卫视,zb.v.qq.com:1863/?progid=3900155972
东方卫视,live.gslb.letv.com/gslb?stream_id=dongfang&tag=live&ext=m3u8&sign=live_tv
广东卫视,zb.v.qq.com:1863/?progid=857894899
广东卫视,zb.v.qq.com:1863/?progid=857894899
广东卫视,live.gslb.letv.com/gslb?stream_id=guangdong&tag=live&ext=m3u8&sign=live_tv

通过批处理遍历“频道列表.txt”文件，实现如下功能：
1、遇见中括号内的内容如“{央视频道}”，就通过批处理新建“央视频道”的文件夹，并把此类别下的链接生成txt文件，存放到分类文件夹下
2、然后分类的内容如“CCTV1综合,218.24.47.44/CCTV1.m3u8”就生成“CCTV1综合.txt”文件，“CCTV1综合.txt”文件内容为
“<Entry> <Title>CCTV1综合_源01</Title> <Ref href = "218.24.47.44/CCTV1.m3u8"/> </Entry>”
3、由于分类包含的内容有重复，如“CCTV1综合”，遇到第2个重复的即在生成的"CCTV1综合.txt"文件内容中添加新的行
“<Entry> <Title>CCTV1综合_源02</Title> <Ref href = "218.24.47.44/CCTV1.m3u9"/> </Entry>”
格式中，源的数字是自动累加的，由“CCTV1综合_源01”变成"CCTV1综合_源02"，以此类推，第3个就变成"CCTV1综合_源03"

最后生成的“CCTV1综合.txt”文本内容格式如下：
<Entry> <Title>CCTV1综合_源01</Title> <Ref href = "218.24.47.44/CCTV1.m3u8"/> </Entry>
<Entry> <Title>CCTV1综合_源02</Title> <Ref href = "218.24.47.44/CCTV1.m3u9"/> </Entry>
.................以此类推

请各位朋友们帮忙看看如何写，谢谢！

apang

回复 5# 1270697389


    不用call没想到好办法，以下代码文件名（如：CCTV1综合）不能含空格，也不能含!符号。

@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
复制代码

1270697389

apang 发表于 2014-1-3 15:54

    你这个可以不用call吗？或者

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

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

这一段能解释一下吗？

apang

来个vbs，不call了

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
复制代码

hbb

膜拜你，大神，谢谢！！

apang

@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"
复制代码