[已解决][求助]怎么快速提取网页源代码中的ED2K链接，最好不借助第三方复杂软件

kld_map

随便注册 发表于 2012-6-5 13:47
用文本整理器的“界限查找”功能去除两个链接之间的内容，并换成htm的回车代码

再转htm为txt，行就分开了 ...

专家,请问这个神器叫什么名字??
我想要的是就是这个效果...

随便注册

kld_map 发表于 2012-6-5 14:17
专家,请问这个神器叫什么名字??
我想要的是就是这个效果...

就叫“文本整理器”，中国人写的，整理中文那是好用的不得了。详细功能看自带的帮助文档，绝不会像微软帮助那样不看能摸索明白，看了反倒糊涂。

kld_map

随便注册 发表于 2012-6-5 13:47
用文本整理器的“界限查找”功能去除两个链接之间的内容，并换成htm的回车代码

再转htm为txt，行就分开了 ...

感谢专家,,求版主加分...终于解决了..我再也不用来回倒了...

kld_map

随便注册 发表于 2012-6-5 13:47
用文本整理器的“界限查找”功能去除两个链接之间的内容，并换成htm的回车代码

再转htm为txt，行就分开了 ...

不错的软件,我其实只要记迅雷嗅探到ed2k链接就可以了...

hlmdf

JSON数据，直接用jquery写个小东西运行下不就出来了？

kld_map

hlmdf 发表于 2012-6-5 15:00
JSON数据，直接用jquery写个小东西运行下不就出来了？

不好意思，我不会写呀。。。

veteran

1. Dim ObjFSO, sFile, Arr
   
2. Set ObjFSO = CreateObject("Scripting.FileSystemObject")
   
3. Set sFile = ObjFSO.OpenTextFile(Wscript.Arguments(0), 1)
   
4. Arr = Split(sFile.ReadAll, ",")
   
5. For K = 1 To UBound(Arr)-LBound(Arr)
   
6.         K = K + 5
   
7.         ObjFSO.OpenTextFile("a.txt", 8, true).Write replace(mid(Arr(K), 9), """}", "")
   
8. Next

复制代码

kld_map

veteran 发表于 2012-6-5 15:45

请问这个代码，怎么运行，，，我不会呢。。专家。。。

veteran

把你一楼的那句代码保存为1.txt,上面的代码保存为2.vbs，把1.txt拖到2.vbs上去，结果保存在a.txt