本來生成這個xml文件是為了開發乙個ftp的搜尋,後來由於沒有資料參考怎麼搜尋xml文件,也就放棄了.其中最重要的是遞迴的演算法.生成檔案列表的速度很快.這個程式可以用於生成**列表之類的東東.需要iis的fso元件支援.生成類似下面的xml文件
<?xml version="1.0" encoding="gb2312"?>
complete_camel.rar
complete_funlove.rar
make_file_list.asp
'######################################'
'## copyright (c) 2003 醉雨梧桐 all rights reserved. ##'
'## powered by 醉雨梧桐 ##'
'## ##'
'## [email protected] ##'
'######################################'
dim objfo,objf,objaf,objfxml
set objfo=createobject("scripting.filesystemobject") '物件
set objfxml=objfo.opentextfile("g:\my documents\http\personal works\ftp_search\ftp.xml",2) '開啟檔案
objfxml.writeline("<?xml version=""1.0"" encoding=""gb2312""?>")
objfxml.writeline("")
call xml_list("f:\") '開始列表
objfxml.writeline("")
response.write("list is ok!) '列表成功
function xml_list(dirname)
set objfs=objfo.getfolder(dirname)
set objasd=objfs.subfolders
for each onedir in objasd
strfdname=trim(onedir.name)
'下面所列的資料夾不生成在列表中（系統檔案或者隱藏檔案）
if strfdname<>"config.msi" eqv strfdname<>"recycled" eqv strfdname<>"recycler" eqv strfdname<>"system volume information" then
onedirname=xml_ '對&進行轉義
objfxml.writeli"") '生成
sdirname=dirname&"\"&onedir.name '下乙個遞迴的位址
call xml_list(sdirname) '呼叫遞迴
objfxml.writeline("")
end if '結束判斷
next
set objsf=objfs.files
for each onefile in objsf '列出檔案
objfxml.writeline("程式設計客棧gt;"&onefile.name&"") '生成檔名
next
end function
'去掉xml不允許的字元
function xml_format(strdirname)
strdirname=replace(strdirname,"&","&") '程式設計客棧把半形的&轉化為&
xml_format=strdirname
end function
%>
本文標題: fso+遞迴生成檔案列表(xml)
本文位址:
ruby 生成檔案
1.建立檔案 建立乙個檔案,引數1 檔名,引數2 對檔案的操作,w 讀寫 w 只寫 r 讀寫 r 只寫 f file.new test1.txt w 寫入檔案內容 f.puts test 最後關閉檔案,釋放這個執行緒.f.close 2.指定檔案的路徑 建立路徑path,引數1 檔案的路徑,引數2 ...
Windows MFC dll生成檔案
2009 12 03 21 37 41 分類 c 舉報 字型大小 訂閱 今天接觸了 def檔案，在客戶端工程裡有不少 def檔案，有關 dll匯出的今天就花時間看了看，以前包括現在自己在使用 dll的時候很少用到 dll乙個強大功能，就是跨語言，用 vb做介面呼叫 vc寫的 dll各取所長。以前沒碰...
Scrapy 生成檔案
scrapy應用 一 scrapy框架的應用步驟 1 建立工程 scrapy startproject 工程名稱 2 建立爬蟲 scrapy genspider 檔名稱 spider 二 開發 1 items.py 確定資料採集的屬性 採集項 變數名 scrapy.field title scrap...