[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
回复 9# hbb


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

TOP

回复 10# apang

附件: 您需要登录才可以下载或查看附件。没有帐号?注册

TOP

回复 11# hbb


    最后一行为{},即文件夹名为空,所以报错。第9行这样改:
  1.         If strFD <> "" and Not fso.FolderExists(strFD) Then
复制代码

TOP

本帖最后由 hbb 于 2014-1-4 20:56 编辑

回复 12# apang

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

TOP

还有,我想在生成的每个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>
请问批处理应该怎么修改?谢谢!

TOP

回复 14# hbb


    话说,为何顶楼不一次性说清楚呢?修改下vbs,此帖我不再回复
  1. Set fso = Createobject("Scripting.FileSystemObject")
  2. Set dic1 = CreateObject("Scripting.Dictionary")
  3. Set dic2 = CreateObject("Scripting.Dictionary")
  4. Set file = fso.OpenTextFile("List.txt")
  5. Do Until file.AtEndOfStream
  6.     strLine = Trim(file.ReadLine)
  7.     If Left(strLine,1) = "{" and Right(strLine,1) = "}" Then
  8.         strFD = Mid(strLine,2,Len(strLine)-2)
  9.     ElseIf strLine <> "" and strFD <> "" Then
  10.         If Not fso.FolderExists(strFD) Then
  11.             fso.CreateFolder strFD
  12.         End If
  13.         strName = Left(strLine,InStr(strLine,",")-1)
  14.         strUrl = Right(strLine,Len(strLine)-InStr(strLine,","))
  15.         strKey = strFD & "\" & strName
  16.         If dic1.Exists(strKey) Then
  17.             dic1.Item(strKey) = dic1.Item(strKey) + 1
  18.         Else
  19.             dic1.Add strKey,101
  20.         End If
  21.         s = "_源" & Right(dic1.Item(strKey),2)
  22.         s = "<Entry> <Title>" & strName & s & "</Title> <Ref href = "
  23.         s = s & chr(34) & strUrl & chr(34) &"/> </Entry>"
  24.         If dic2.Exists(strKey) Then
  25.             dic2.Item(strKey) = dic2.Item(strKey) & vbcrLf & s
  26.         Else
  27.             dic2.Add strKey,"<Asx Version = ""3.0"">" & vbCrLf & s
  28.         End If
  29.     End If
  30. Loop
  31. For Each a in dic2.Keys
  32.     fso.OpenTextFile(a & ".txt",2,true).Write dic2.Item(a) & vbCrLf & "</Asx>"
  33. Next
  34. MsgBox "OK"
复制代码

TOP

本帖最后由 hbb 于 2014-1-4 21:57 编辑

回复 15# apang


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

TOP

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

TOP

返回列表