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

[问题求助] [已解决]GPT生成的vbs代码txt合并内容去空行、删除重复项无效求助

目的是把多个Tracker 服务器下载合并到一个txt文档去除空行和重复项。
用GPT生成的vbs脚本去空行、删除重复项无效,请问大佬们要怎么修改?谢谢
  1. Dim objFSO, objShell, objHTTP, strURL, strContent, arrURLs, line, uniqueContent
  2. Set objFSO = CreateObject("Scripting.FileSystemObject")
  3. Set objShell = CreateObject("WScript.Shell")
  4. Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
  5. ' 创建一个字典对象用于存储唯一内容
  6. Set uniqueContent = CreateObject("Scripting.Dictionary")
  7. ' 定义要下载内容的URL数组
  8. arrURLs = Array( _
  9.     "https://raw.githubusercontent.com/Tunglies/TrackersList/main/all.txt", _
  10.     "https://cf.trackerslist.com/best.txt", _
  11.     "https://raw.adysec.com/adysec/tracker/main/trackers_best.txt", _
  12.     "https://raw.githubusercontent.com/ngosang/trackerslist/master/trackers_best.txt", _
  13.     "https://raw.githubusercontent.com/DeSireFire/animeTrackerList/master/AT_all_https.txt" _
  14. )
  15. ' 遍历每个URL,下载内容并合并到uniqueContent中
  16. For Each strURL In arrURLs
  17.     objHTTP.open "GET", strURL, False
  18.     objHTTP.send
  19.     If objHTTP.Status = 200 Then
  20.         strContent = objHTTP.ResponseText
  21.         For Each line In Split(strContent, vbCrLf)
  22.             ' 排除空行
  23.             If Trim(line) <> "" Then
  24.                 If Not uniqueContent.Exists(line) Then
  25.                     uniqueContent.Add line, ""
  26.                 End If
  27.             End If
  28.         Next
  29.     End If
  30. Next
  31. ' 将合并的内容写入文件
  32. Set objOutputFile = objFSO.CreateTextFile("combined_content.txt", True)
  33. For Each item In uniqueContent.Keys
  34.     objOutputFile.WriteLine(item)
  35. Next
  36. objOutputFile.Close
  37. Set objFSO = Nothing
  38. Set objShell = Nothing
  39. Set objHTTP = Nothing
  40. Set uniqueContent = Nothing
复制代码
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

回复 2# flashercs


   非常感谢,完美解决。

TOP

  1. Dim objFSO, objShell, objHTTP, strURL, strContent, arrURLs, line, uniqueContent
  2. Set objFSO = CreateObject("Scripting.FileSystemObject")
  3. Set objShell = CreateObject("WScript.Shell")
  4. Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
  5. ' 创建一个字典对象用于存储唯一内容
  6. Set uniqueContent = CreateObject("Scripting.Dictionary")
  7. ' 定义要下载内容的URL数组
  8. arrURLs = Array( _
  9.     "https://raw.githubusercontent.com/Tunglies/TrackersList/main/all.txt", _
  10.     "https://cf.trackerslist.com/best.txt", _
  11.     "https://raw.adysec.com/adysec/tracker/main/trackers_best.txt", _
  12.     "https://raw.githubusercontent.com/ngosang/trackerslist/master/trackers_best.txt", _
  13.     "https://raw.githubusercontent.com/DeSireFire/animeTrackerList/master/AT_all_https.txt" _
  14. )
  15. ' 遍历每个URL,下载内容并合并到uniqueContent中
  16. For Each strURL In arrURLs
  17.     objHTTP.open "GET", strURL, False
  18.     objHTTP.send
  19.     If objHTTP.Status = 200 Then
  20.         strContent = objHTTP.ResponseText
  21.         For Each line In Split(strContent, vbLf) '换行符是\n
  22.             ' 排除空行
  23.             If Trim(line) <> "" Then
  24.                 If Not uniqueContent.Exists(line) Then
  25.                     uniqueContent.Add line, ""
  26.                 End If
  27.             End If
  28.         Next
  29.     End If
  30. Next
  31. ' 将合并的内容写入文件
  32. Set objOutputFile = objFSO.CreateTextFile("combined_content.txt", True)
  33. For Each item In uniqueContent.Keys
  34.     objOutputFile.WriteLine item
  35. Next
  36. objOutputFile.Close
  37. Set objFSO = Nothing
  38. Set objShell = Nothing
  39. Set objHTTP = Nothing
  40. Set uniqueContent = Nothing
复制代码
1

评分人数

微信:flashercs
QQ:49908356

TOP

返回列表