晨风交流论坛_CMP_CChat_Flash_音乐_视频_播放器_live直播_聊天室

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1473|回复: 2

[其他] 一键 花椒 list

[复制链接]
发表于 2018-12-15 20:57:47 | 显示全部楼层 |阅读模式
官方QQ群:102348392 | 捐赠CMP
玩玩:p

GB浏览器和cmp.swf修改为自己的文件路径



  1. @echo off
  2. echo ======请保存 已打开的网页的源码到 a待转换列表.txt中
  3. echo ======再enter键,执行提取批处理
  4. "G:\Program██_备\免安装\Mini GB浏览器\Greenbrowser.exe" "http://www.huajiao.com/category/801"
  5. pause

  6. echo;>c.txt
  7. echo;>d.txt
  8. echo;>e.txt


  9. :: 本批处理需与a待转换列表.txt在同一位置,否则会出错!!
  10. :: a待转换列表.txt  最好以ANSI编码保存,防止出错
  11. @echo off
  12. for /f "delims=" %%a in ('dir /b a待转换列表.txt') do (
  13.     >"b.txt" mshta "javascript:with(new ActiveXObject('Scripting.FileSystemObject')){GetStandardStream(1).Write(GetStandardStream(0).readall().replace(/:(?!\r\n)/g,'\r\n').replace(/,(?!\r\n)/g,'\r\n'))};close()"<"%%a"
  14. )

  15. :: 去重复行
  16. @echo off & setlocal enabledelayedexpansion
  17. for /f "delims=" %%a in ('"type b.txt 2>nul|sort"') do (
  18. if %%a==!qc! ( !cf!
  19. ) else (
  20. echo>>c.txt %%a
  21. set qc=%%a
  22. ))

  23. @echo off & setlocal enabledelayedexpansion
  24. (for /f tokens^=1^,2^ delims^=^" %%a in ('findstr /c:"_non_" c.txt') do (   set /a t+=1
  25.   echo; ^<m rtmp=^"rtmp://qh0-rtmp.live.huajiao.com/live_huajiao_v2/^" src=^"%%a" label="!t! pd" />
  26.   ))>>d.txt

  27. :: 文本内容前插入<list>  ;文本内容后加入</list>
  28. for %%i in (d.txt) do (
  29.     echo ^<list^> > "%%i.tmp"
  30.     type "%%i" >> "%%i.tmp"
  31.     move /y "%%i.tmp" "e.txt"
  32. )
  33. echo ^</list^>>>e.txt

  34. del/s /q  "b.txt"
  35. del/s /q  "c.txt"
  36. del/s /q  "d.txt"

  37. @echo off & setlocal EnableDelayedExpansion
  38. for /f "delims=" %%i in ('"dir /a/s/b/on e.txt"') do (
  39. set file=%%~fi
  40. :: 用GB浏览器播放,做好的列表
  41. "G:\Program██_备\免安装\Mini GB浏览器\Greenbrowser.exe" "G:/Program██_备/██超级备份/自建站/TV/flash调用/cmp.swf?auto_play=0&skin_id=1&type=&src=&video_scalemode=&play_mode=0&auto_open=1&lists=!file!&.swf" )
复制代码

 楼主| 发表于 2018-12-19 18:49:05 | 显示全部楼层
ytlsl 发表于 2018-12-17 15:45
感谢分享,没空间,啥都没做,做cmp雅致打包,测试你的,发现图像不正常,cmp可调整,但列表缩略图多数不正 ...

不需要上传空间。
批处理,本地用的。保存为 xx.bat 右键运行,再按照批处理说明执行就可以了。
发表于 2018-12-17 15:45:00 | 显示全部楼层
感谢分享,没空间,啥都没做,做cmp雅致打包,测试你的,发现图像不正常,cmp可调整,但列表缩略图多数不正常,最好把图片链接去了。

QQ|Archiver|手机版|小黑屋|晨风交流论坛 ( 粤ICP备05008793号 )

GMT+8, 2020-5-26 07:02 , Processed in 0.053545 second(s), 19 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表