白子珍珠鼠 - 下蛋了
還真多 ....
2017年11月25日 星期六
2017年11月23日 星期四
水耕 - 魚菜共生(1)
水耕-初體驗
這是:水映菜苗 , 由種子到發牙約 1 週時間 !
圖1:
有發現,完全覆蓋在培養土內的話,發牙時間1週 ; 未完全覆蓋則須較久,目前有的還未發牙!
圖2:
移植水映菜苗至魚缸邊並掛著! 採用白鐵壓製掛勾!
剩下就慢慢記錄了! 須時間....
--
這是:水映菜苗 , 由種子到發牙約 1 週時間 !
圖1:
有發現,完全覆蓋在培養土內的話,發牙時間1週 ; 未完全覆蓋則須較久,目前有的還未發牙!
圖2:
移植水映菜苗至魚缸邊並掛著! 採用白鐵壓製掛勾!
剩下就慢慢記錄了! 須時間....
--
2017年11月18日 星期六
2017年11月1日 星期三
vbnet XML 檢查節點
參考來源:Check if a node/element exists in an XML file
---
Dim vDoc As XmlDocument = New XmlDocument
vDoc.Load(pathToXml)
Dim objTest As XmlElement
objTest = vDoc.SelectSingleNode("//profileData/friends")
If Not (objTest Is Nothing) Then
'The node is present, do nothing
Dim blank = ""
Else
'The node is absent, process code to create it.
Dim xml = XDocument.Load(pathToXml)
Dim vbfriends = From friends In xxml.
vvbfriends(0).Add( )
xml.Save(pathToXml, SaveOptions.None)
End If
---
Dim vDoc As XmlDocument = New XmlDocument
vDoc.Load(pathToXml)
Dim objTest As XmlElement
objTest = vDoc.SelectSingleNode("//profileData/friends")
If Not (objTest Is Nothing) Then
'The node is present, do nothing
Dim blank = ""
Else
'The node is absent, process code to create it.
Dim xml = XDocument.Load(pathToXml)
Dim vbfriends = From friends In xxml.
vvbfriends(0).Add(
xml.Save(pathToXml, SaveOptions.None)
End If
訂閱:
文章 (Atom)