最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

用vbs分割與合并文本文件的代碼

 更新時間:2010年11月28日 20:46:16   作者:  
我們在用迅雷或flashget時間長了后,下載過的文件地址都保存在已下載分類中,我們可以把這些珍貴的地址列表都導出,保存到一個txt文件中。

然而想到其他地方再次下載時發(fā)現(xiàn)一次性導入幾萬個地址非常緩慢,所以有必要把它分割了:(在這個txt文件中,一個地址占一行)
url_split.vbs文件內容:
復制代碼 代碼如下:

Set fs =CreateObject("scripting.filesystemobject")
Set gs =CreateObject("scripting.filesystemobject")
Set f=fs.opentextfile("url.txt",1,true) 'url.txt是要分割的txt文件,里面保存了幾萬個地址
n=0
do while f.atendofstream<>true
n=n+1
data=""
Set g=gs.opentextfile(CStr(n)+".lst",2, true) '分割后的文件保存為:1.lst 2.lst 3.lst……
if f.atendofstream<>true then
for a=1 to 1000 '分割后,一個文件保存1000地址
data=f.readline
g.writeline data
next
end if

loop
f.close
g.close

呵呵,這個vbs是以行為單位來分割文件,怎么以字節(jié)為單位來分割文件呢?,歡迎大家和我討論!

相關文章

最新評論

阳曲县| 巴林左旗| 南昌县| 磐石市| 道孚县| 吴堡县| 新巴尔虎右旗| 平塘县| 鸡西市| 枣强县| 普兰店市| 睢宁县| 曲沃县| 通道| 玉树县| 绥德县| 台东市| 拉萨市| 延安市| 老河口市| 清远市| 汤原县| 南溪县| 梁山县| 泊头市| 普格县| 漳浦县| 岳普湖县| 儋州市| 阳高县| 曲靖市| 鞍山市| 洪雅县| 镇赉县| 平果县| 吴桥县| 利川市| 舟曲县| 湖州市| 荣昌县| 宣武区|