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

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 135|回复: 5

[宣传] 万能列表提取- 极速版.zip

[复制链接]
发表于 2018-12-3 12:21:39 | 显示全部楼层 |阅读模式
官方QQ群:102348392 | 捐赠CMP
本帖最后由 milk_ 于 2018-12-9 17:25 编辑

http://app.67cc.cn/down.php/f4983685ee73b85e8625a5e47b93a3a5.zip

只要内容中出现过如 http: .m3u8  .flv    .mp4    rtmp: ... 字样
无论怎么排列,多么杂乱,都能一键转化为正常的cmp4列表格式和其他常见格式


进一步优化,使提取速度至少快了三倍↑↑↑↑↑,↓↓↓↓↓↓

2048.12.9
 楼主| 发表于 2018-12-3 13:01:06 | 显示全部楼层
本帖最后由 milk_ 于 2018-12-4 12:47 编辑

本人不会批处理,简单的还行。
完全是为了方便,而逢山开路,遇水搭桥。
发表于 2018-12-5 09:39:32 | 显示全部楼层
很好谢谢分享
 楼主| 发表于 2018-12-5 16:05:26 | 显示全部楼层

哦啦,真漂亮
 楼主| 发表于 6 天前 | 显示全部楼层
本帖最后由 milk_ 于 2018-12-9 17:26 编辑

万能提取    一键生成cmp4列表.bat    优化





  1. echo;>h.txt
  2. @echo off  
  3. del/s /q  "█cmp列表.txt"
  4. echo.
  5. @echo          !!!运行时,批处理必须与a待转换列表.txt必须在同一文件夹内,否则出错
  6. echo.
  7. @echo          万能列表提取
  8. @echo          把乱七八糟的内容 复制到a待转换列表.txt,一键提取
  9. @echo          a待转换列表.txt里面以有内容,可以自己测试一下
  10. @echo          GB浏览器和cmp.swf修改为自己的文件路径
  11. @echo          以下为cmp列表样式,你可以修改成别的样式也行


  12. :: 批处理将在:冒号和,逗号和空格处自动换行
  13. @echo off
  14. for /f "delims=" %%a in ('dir /b a待转换列表.txt') do (
  15.     >"r.txt" mshta "javascript:with(new ActiveXObject('Scripting.FileSystemObject')){GetStandardStream(1).Write(GetStandardStream(0).readall().replace(/http:(?!\r\n)/g,'\r\nhttp:').replace(/https:(?!\r\n)/g,'\r\nhttps:').replace(/rtmp:(?!\r\n)/g,'\r\nrtmp:').replace(/,(?!\r\n)/g,'\r\n').replace(/ (?!\r\n)/g,'\r\n').replace(/>(?!\r\n)/g,'\r\n').replace(/<(?!\r\n)/g,'\r\n'))};close()"<"%%a"
  16. )

  17. findstr "rtmp flv mp4 m3u8" "r.txt">b.txt

  18. :: 去除引号,防止出错
  19. setlocal EnableDelayedExpansion
  20. for /f "delims=" %%i in (b.txt) do (
  21. set var=%%i
  22. set var=!var:^"=!
  23. set var=!var:^<=!
  24. set var=!var:^>=!
  25. set var=!var:'=!
  26. echo;!var!>>h.txt
  27. )

  28. :: 去重复行
  29. @echo off & setlocal enabledelayedexpansion
  30. for /f "delims=" %%a in ('"type h.txt 2>nul|sort"') do (
  31. if %%a==!qc! ( !cf!
  32. ) else (
  33. echo>>p.txt %%a
  34. set qc=%%a
  35. ))

  36. @echo off & setlocal enabledelayedexpansion
  37. (for /f tokens^=1^,2^,3^*^ delims^=^/^" %%a in ('findstr /c:"rtmp:" p.txt') do (
  38.   set /a t+=1
  39. echo;^<list^> ^<m rtmp="rtmp://%%b/%%c/^" src=^"%%d^" label=^"!t! R"/^>^</list^>
  40. ))>w.txt

  41. @echo off & setlocal enabledelayedexpansion
  42. (for /f tokens^=1^ delims^=^" %%a in ('findstr ".flv .mp4" p.txt') do (  
  43.   set /a t+=1
  44.   echo;^<list^> ^<m src=^"%%a^" label=^"!t! F" /></list>
  45.   ))>c.txt

  46. @echo off & setlocal enabledelayedexpansion
  47. (for /f tokens^=1^ delims^=^" %%a in ('findstr /c:".m3u8" p.txt') do (  
  48.   set /a t+=1
  49.   echo;^<list^> ^<m type=^"m3u8^" src=^"%%a^" label=^"!t! M" /></list>
  50.   ))>>c.txt


  51. :: 再次过滤,只保留带//的行
  52. findstr /c:"//" "c.txt">e.txt

  53. :: 合并列表
  54. type e.txt>>w.txt
  55. findstr /v "rtmp:////" "w.txt">g.txt
  56. ren "g.txt" "█cmp列表.txt"

  57. @echo off
  58. del/s /q  "b.txt"
  59. del/s /q  "c.txt"
  60. del/s /q  "r.txt"
  61. del/s /q  "w.txt"
  62. del/s /q  "e.txt"
  63. del/s /q  "p.txt"
  64. del/s /q  "h.txt"

  65. @echo off & setlocal EnableDelayedExpansion
  66. for /f "delims=" %%i in ('"dir /a/s/b/on █cmp列表.txt"') do (
  67. set file=%%~fi
  68. :: 用GB浏览器播放,做好的列表e.txt
  69. "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" )


复制代码
 楼主| 发表于 6 天前 | 显示全部楼层
本帖最后由 milk_ 于 2018-12-9 17:27 编辑

万能提取  一键生成传统列表.bat     优化




  1. @echo off  
  2. del/s /q  "█传统列表.txt"
  3. echo.
  4. @echo          !!!运行时,批处理必须与a待转换列表.txt必须在同一文件夹内,否则出错
  5. echo.
  6. @echo          万能列表提取
  7. @echo          把乱七八糟的内容 复制到a待转换列表.txt,一键提取
  8. @echo          a待转换列表.txt里面以有内容,可以自己测试一下
  9. @echo          GB浏览器和cmp.swf修改为自己的文件路径


  10. :: 批处理将在:冒号和,逗号和空格处自动换行
  11. @echo off
  12. for /f "delims=" %%a in ('dir /b a待转换列表.txt') do (
  13.     >"r.txt" mshta "javascript:with(new ActiveXObject('Scripting.FileSystemObject')){GetStandardStream(1).Write(GetStandardStream(0).readall().replace(/http:(?!\r\n)/g,'\r\nhttp:').replace(/https:(?!\r\n)/g,'\r\nhttps:').replace(/rtmp:(?!\r\n)/g,'\r\nrtmp:').replace(/,(?!\r\n)/g,'\r\n').replace(/ (?!\r\n)/g,'\r\n').replace(/>(?!\r\n)/g,'\r\n').replace(/<(?!\r\n)/g,'\r\n'))};close()"<"%%a"
  14. )

  15. findstr "rtmp flv mp4 m3u8" "r.txt">b.txt

  16. :: 去除引号,防止出错
  17. setlocal EnableDelayedExpansion
  18. for /f "delims=" %%i in (b.txt) do (
  19. set var=%%i
  20. set var=!var:^"=!
  21. set var=!var:^<=!
  22. set var=!var:^>=!
  23. set var=!var:'=!
  24. echo;!var!>>h.txt
  25. )

  26. :: 去重复行
  27. @echo off & setlocal enabledelayedexpansion
  28. for /f "delims=" %%a in ('"type h.txt 2>nul|sort"') do (
  29. if %%a==!qc! ( !cf!
  30. ) else (
  31. echo>>p.txt %%a
  32. set qc=%%a
  33. ))

  34. @echo off & setlocal enabledelayedexpansion
  35. (for /f tokens^=1^,2^,3^*^ delims^=^/^" %%a in ('findstr /c:"rtmp:" p.txt') do (
  36.   set /a t+=1
  37. echo;!t!,rtmp://%%b/%%c/%%d
  38. ))>w.txt

  39. @echo off & setlocal enabledelayedexpansion
  40. (for /f tokens^=1^ delims^=^" %%a in ('findstr ".flv .mp4" p.txt') do (  
  41.   set /a t+=1
  42.   echo;!t!,%%a
  43.   ))>c.txt

  44. @echo off & setlocal enabledelayedexpansion
  45. (for /f tokens^=1^ delims^=^" %%a in ('findstr /c:".m3u8" p.txt') do (  
  46.   set /a t+=1
  47.   echo;!t!,%%a
  48.   ))>>c.txt


  49. :: 再次过滤,只保留带//的行
  50. findstr /c:"//" "c.txt">e.txt

  51. :: 合并列表
  52. type e.txt>>w.txt
  53. findstr /v "rtmp:////" "w.txt">g.txt
  54. ren "g.txt" "█传统列表.txt"
  55. @echo off
  56. del/s /q  "b.txt"
  57. del/s /q  "c.txt"
  58. del/s /q  "r.txt"
  59. del/s /q  "e.txt"
  60. del/s /q  "w.txt"
  61. del/s /q  "h.txt"
  62. del/s /q  "p.txt"




复制代码


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

GMT+8, 2018-12-13 16:57 , Processed in 0.057041 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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