Board logo

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

作者: smdx    时间: 2024-9-7 10:39     标题: [已解决]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
复制代码

作者: flashercs    时间: 2024-9-7 11:28

  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
复制代码

作者: smdx    时间: 2024-9-7 11:41

回复 2# flashercs


   非常感谢,完美解决。




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2