小编use*_*348的帖子

关注编写xml

我有一个邮件申请.在发送给每个收件人时,我正在写一个名为mail.xml的XML文件.我使用以下代码:

Dim from As String = txtFrom.Text
Dim txto As String = txtTo.Text
Dim subj As String = txtSubject.Text
Dim body As String = txtBody.Text
Dim settings As New XmlWriterSettings()
settings.Indent = True
settings.NewLineOnAttributes = True
Using writer As XmlWriter = XmlWriter.Create("C:\xmlmailfile.xml", settings)
  writer.WriteStartDocument()
  writer.WriteStartElement("EMail")
  writer.WriteStartElement("From")
  writer.WriteStartAttribute("From")
  writer.WriteValue(from)
  writer.WriteEndAttribute()
  writer.WriteStartElement("To")
  writer.WriteStartAttribute("To")
  writer.WriteValue(txto)
  writer.WriteEndAttribute()
  writer.WriteStartElement("Subject")
  writer.WriteStartAttribute("Subject")
  writer.WriteValue(subj)
  writer.WriteEndAttribute()
  writer.WriteStartElement("Body")
  writer.WriteStartAttribute("Body")
  writer.WriteValue(body)
  writer.WriteEndAttribute()
  writer.WriteEndElement()
  writer.WriteEndDocument()
  writer.Flush()
End Using
Run Code Online (Sandbox Code Playgroud)

输出是:

<?xml version="1.0" encoding="utf-8" ?> 
<EMail>
  <From From="abc@xyz.com">
  <To To="def@pqr.com">
    <Subject Subject="Hi">
      <Body Body="Hello" …
Run Code Online (Sandbox Code Playgroud)

xml vb.net

0
推荐指数
1
解决办法
3171
查看次数

XML文档中只允许一个顶级元素

以下是在xml文件中插入新节点的代码.

Dim fleStream As New FileStream("C:\mailing.xml", FileMode.Append, FileAccess.Write,FileShare.ReadWrite)
Dim stmWriter As New StreamWriter(fleStream)
Dim writer As New XmlTextWriter(stmWriter)
Dim currNode As XmlNode
Dim doc As New XmlDocument

doc.LoadXml(("<XMLFile>" + " <EMail></EMail>" + "</XMLFile>"))
'doc.Load("C:\mailing.xml") '
Dim docFrag As XmlDocumentFragment = doc.CreateDocumentFragment()
docFrag.InnerXml = "<From><Address>" + txtFrom.Text + " </Address></From>"
currNode = doc.DocumentElement.FirstChild.AppendChild(docFrag)
currNode.InsertAfter(docFrag, currNode.LastChild)

docFrag.InnerXml = "<Receipient> <To>" + txtTo.Text + " </To></Receipient>"
currNode = doc.DocumentElement.FirstChild.FirstChild.AppendChild(docFrag)
currNode.InsertAfter(docFrag, currNode.LastChild)

docFrag.InnerXml = "<Subject>" + txtSubject.Text + "</Subject>"
currNode = doc.DocumentElement.FirstChild.AppendChild(docFrag)
currNode.InsertAfter(docFrag, currNode.LastChild) …
Run Code Online (Sandbox Code Playgroud)

xml vb.net

0
推荐指数
1
解决办法
2万
查看次数

如何在readonly的文本框中获取值

我有一个文本框.在其onclick iam中调用javascript fn来调用calendar.Texbox是readonly.单击文本框日历即将到来,值将显示在文本框中.但是点击提交按钮,我已经编写了代码保存,我没有在文本框中获得价值.可能是什么原因?

vb.net asp.net

0
推荐指数
2
解决办法
1万
查看次数

为什么我的修改后的JavaScript不会出现在调试器中?

我已经开始将我的Web应用程序作为网站.我在其中调用JavaScript.问题在于脚本:第一次,脚本在调试时正在工作,但是如果我对脚本进行任何修改然后尝试调试它,则控制将移动到旧行而不是新行.我试图重建,但仍然得到相同的结果.

这可能是什么原因?

javascript asp.net

0
推荐指数
1
解决办法
67
查看次数

如何从sql中的datetime获取日期

我在表中有一个名为'CreatedDate'的字段.它包含值为2009-12-07 11:02:20.890.我的搜索参数是createdate.Parameter包含值为2009-12-07.我的参数只包含datepart.如果我的参数仅包含2009-12-07其未给出的结果.仅当时间包括其给定结果.我的查询是从STD_Enquiry选择*,其中CreatedDate ='2009-12-07任何人都可以给出适当的查询来获得结果吗?

sql

0
推荐指数
1
解决办法
598
查看次数

使用Javascript禁用浏览器窗口的BackButton

可能重复:
禁用浏览器上的"返回"按钮

嗨伙计们,我需要禁用浏览器窗口的后退按钮.当我点击后退按钮时,我需要使用警报或其他方式显示一条消息.任何人都可以帮助我

javascript

-1
推荐指数
1
解决办法
2271
查看次数

标签 统计

vb.net ×3

asp.net ×2

javascript ×2

xml ×2

sql ×1