apang

回复 9# hbb


    你把vbs和bat运行报错的文本打包传上来，我试试看

hbb

回复 10# apang

apang

回复 11# hbb


    最后一行为{}，即文件夹名为空，所以报错。第9行这样改：

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

hbb

回复 12# apang

vbs调试没问题了，真心喜欢bat的批处理
apang兄能改下bat吗？
报如下错误：
运算符不存在。
找不到操作数。

hbb

还有，我想在生成的每个txt文件内的一头一尾添加以下两行
<Asx Version = "3.0">
</Asx>
最后生成的“CCTV1综合.txt”文本内容格式如下：
<Asx Version = "3.0">
<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>
</Asx>
请问批处理应该怎么修改？谢谢！

apang

回复 14# hbb


    话说，为何顶楼不一次性说清楚呢？修改下vbs，此帖我不再回复

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

hbb

回复 15# apang


    万分感谢，我本想自己学着修改来着，可是能力有限，所以才一点点的提出，膜拜膜拜！

seewater

请问 在这一行： set ".%%b=0" & echo,%%c>"!fd!\%%b.txt"
为什么用 .%%b？
为什么用 .？