class cls_person
private m_intid ' id，對應person節點在persons集合中的位置
private m_strname ' 姓名
private m_strnick ' 英文名
private m_strmobile ' 手機
private m_strtel ' **
private m_stremail ' 電子郵件
private m_strqq ' qq號
private m_strcompany ' 所在公司
private m_strerror ' 出錯資訊
' 類初始化
private sub class_initialize()
m_strerror = ""
m_intid = -1
end sub
' 類釋放
private sub class_terminate()
m_strerror = ""
end sub
'-----讀寫各個屬性---------------------------
public property get id
id = m_intid
end property
public property let id(intid)
m_intid = intid
end property
public property get name
name = m_strname
end property
public property let name(strname)
m_strname = strname
end property
public property get nick
nick = m_strnick
end property
public property let nick(strnick)
m_strnick = strnick
end property
public property get mobile
mobile = m_strmobile
end property
public property let mobile(strmobile)
m_strmobile = strmobile
end property
public property get tel
tel = m_strtel
end property
public property let tel(strtel)
m_strtel = strtel
end property
public property get email
email = m_stremail
end property
public property let email(stremail)
m_stremail = stremail
end property
public property get qq
qq = m_strqq
end property
public property let qq(strqq)
m_strqq = strqq
end property
public property get company
company = m_strcompany
end property
public property let company(strcompany)
m_strcompany = strcompany
end property
' 獲取錯誤資訊
public function getlasterror()
getlasterror = m_strerror
end function
' 私有方法，新增錯誤資訊
private sub adderr(strecho)
m_strerror = m_strerror + "' 清除錯誤資訊
public function clearerror()
m_strerror = ""
end function
' 從xml中讀取指定節點的資料，並填充各個屬性
' 需要首先設定id
public function getinfofromxml(objxmldoc)
dim objnodelist
dim i
clearerror
if objxmldoc is nothing then
getinfofromxml = false
adderr "dom物件為空值"
exit function
end if
if cstr(m_intid) = "-1" then
getinfofromxml = false
adderr "未正確設定聯絡人物件的id屬性"
exit function
else
i = m_intid - 1 ' 要讀取得節點位置
end if
' 選擇並讀取節點資訊，賦予各個屬性
set objnodelist = objxmldoc.getelementsbytagname("person")
if objnodelist.length - m_intid >= 0 then
on error resume next
m_strname = objnodelist(i).selectsinglenode("name").text
m_strnick = objnodelist(i).selectsinglenode("nick").text
m_strmobile = objnodelist(i).selectsinglenode("mobile").text
m_strtel = objnodelist(i).selectsinglenode("tel").text
m_stremail = objnodelist(i).selectsinglenode("email").text
m_strqq = objnodelist(i).selectsinglenode("qq").text
m_strcompany = objnodelist(i).selectsinglenode("company").text
getinfofromxml = true
else
getinfofromxml = false
adderr "獲取聯絡資訊發生錯誤"
set objnodelist = nothing
exit function
end if
set objnodelist = nothing
end function
' 新增資訊到xml檔案中
' 需要首先設定好要填充的屬性
public function addtoxml(objxmldoc)
dim objperson, objnode
clearerror
if err.number = 0 then
deletefromxml = true
else
deletefromxml = false
adderr err.description
end if
end function
' 修改xml檔案中的資料
' 需要首先設定好id
public function edittoxml(objxmldoc)
dim objpersonlist, objoldperson, objnewperson, objnode
clearerror
if objxmldoc is nothing then
edittoxml = false
adderr "dom物件為空值"
exit function
end if
if cstr(m_intid) = "-1" then
edittoxml = false
adderr "未正確設定聯絡人物件的id屬性"
exit function
end if
set objoldperson = nothing
set objnewperson = nothing
set objpersonlist = nothing
if err.number = 0 then
edittoxml = true
else
edittoxml = false
adderr err.description
end if
end function
end class
XML的學習筆記
1 xml概述 xml external markup language 的簡寫，是一種擴充套件性標識語言，它是一種能夠讓使用者自己創造標識的語言，可以儲存資料和共享資料，它最大的特點就是它的可擴充套件性。2 用途 a 儲存資料 它可以儲存為資料檔案，對於一些需要持久化儲存的資料可以使用xml格式的...
XML的學習筆記（一） 基本語法和規範
題外 為什麼我要學xml呢？因為發現ros系統裡面有好多程式，是xml的，當然，我看不到，所以就來補補課，因為暫時只要求能看懂，或能簡單寫幾行，所以，記述的也就不是太詳細了。如何識別xml？user user user 這兩個就是標記，注意標記有開頭就有結尾，結尾就是在開頭的前面加一個 可以描述其更...
xml標記語言的學習
xml是extensible markup language的簡寫，一種擴充套件性標識語言。html是一種標記語言，全稱 hypertext markup language 超文字標記語言。同時，html裡面有很多標籤，類似,等，都是在html 4.0裡規範和定義，而xml裡允許你自己建立這樣的標籤...
XML的學習筆記 一
記得在大學的時候，花了幾天的時間看看了xml，可現在再拾起來的時候，感覺記的東西真的不多了。這次也下決心把一些東西記住，而不是要用的時候現去翻文件。xml到底是什麼，也許我現在給出來的答案只能是配置檔案 其實，我接觸最多的xml檔案，莫過於struts config.xml和web.xml，還有to...
XML學習中的問題
一 xml的官方文件 先放一下xml表的介紹 二 常見函式介紹 1 getelementsbytagname 這函式有兩個過載 實現 static void findxmlfile string path catch system.xml.xmlexception xmlelement player...