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

[问题求助] 爬取vbsedit的所有范例,网站的Sample scripts页。

下载下来用英文命名,后续通过机器翻译将范例文件名均改为中文名称保存下来。

回复 15# holley


   所以要用dom而不是正则啊

TOP

回复 12# went


可以正常使用,除了极少部分提示路径无法识别

TOP

win7下也行,就是某些会出现错误文件夹,里面的vbs只有个<a了

TOP

本帖最后由 窄口牛 于 2023-2-24 08:46 编辑

谢谢,已经手动搞完了。我会试试的,试后回来报告

TOP

全部vbs脚本是吗,试试
test.bat 电脑win10以上
  1. #&cls&cd /d "%~dp0" & @powershell -c "Get-Content '%~0' | Out-String | Invoke-Expression" &pause&exit
  2. cls
  3. function Parse-Content($whr,$url,$title,$p,$tab){
  4.     $whr.Open('GET',$url,$false)
  5.     $whr.Send()
  6.     $s = $whr.ResponseText
  7.     $whr.Abort()
  8.     $a_list = $null
  9.     if($s -match '(?s)(?<=<code class="classmyad">).*?(?=</code>)'){
  10.         $a_list = $Matches[0] -split '\n' | Where-Object { $_ -match '^<a' }
  11.     }
  12.     Write-Host ($tab + $title)
  13.     if($a_list -ne $null){
  14.         $a_list | foreach {
  15.             $arr = $_ -split '>|<|"'
  16.             Parse-Content -whr $whr -url (($url -replace '/[^/]*$','/') + $arr[2]) -title $arr[4] -p ($p + '\' + $arr[4]) -tab ($tab + '    ')
  17.         }
  18.     } else {
  19.         $vbs = '.\' + $p + '.vbs'
  20.         $dic = [System.IO.Path]::GetDirectoryName($vbs)
  21.         [void][System.IO.Directory]::CreateDirectory($dic)
  22.         Write-Host ('{0}保存文件:{1}' -f $tab,$vbs)
  23.         $Matches[0] -replace '(?s)<input.*?<font>','' -replace '<br>',"`r`n" -replace '(?s)<.*?>','' -replace '&ensp;',' ' | Out-File $vbs
  24.    }
  25. }
  26. $whr = New-Object -ComObject 'WinHttp.WinHttpRequest.5.1'
  27. Parse-Content -whr $whr -url 'https://www.vbsedit.com/scripts/' -title 'Scripts' -p 'Scripts' -tab ''
复制代码
2

评分人数

TOP

嗯,差不多,稍微多一点点。

TOP

这些例子和微软脚本中心里是一样的吧
https://we.tl/t-bPYmOnq9tx

TOP

看不懂,只能取现成代码,想办法拼凑出自己需要的。

TOP

回复 7# 窄口牛


    不是,那你搞回去demon的文章,然后留着收藏?里面有介绍怎么爬的啊?

TOP

不会爬,半手工搞,很费劲的。

TOP

回复 5# 窄口牛


    爬虫不是自动化的吗?怎么会亏的慌
像demon我扔那里放了5分钟就好了
还有他的范例里用了他的东西,instr以下“vbsedit”,如果不等于一就是它独有的呗?

TOP

  1.      所列文件总数:
  2.             1438 个文件      1,358,822 字节
  3.              377 个目录 1,439,737,085,952 可用字节
复制代码
努力了两天多搞了一千多个出来,还有估计大几百,有点亏得慌,它的范例有的基于它的软件支持,还有的可能有问题,木法执行?

TOP

就是保存点范例,vbs我是一点点也不会,范例用来拼凑自己要的功能。

TOP

为啥你不自己爬啊 又不难 速度也不慢
还有直接上网看不就得了?

TOP

返回列表