用XML写的留言录(vb.net)(五)

原创 2005年05月31日 14:54:00

作者:fx_blog(CSDN)

日期:2005-5-22

标题:威人留言录(v1.8)

注意:转贴一定注明作者及出处

'*****************************************开始****************************

'现在来完成第五部分,留言查询*******

'首先新建一个窗体

'大家自己建吧,现在应该是form6了

'双击"查询留言"按钮

'写入以下代码(Form6内的控件都要设置好)

'       

If TextBox3.Text = "" Then
            MessageBox.Show("请输入搜索关键字")
            Exit Sub
        End If
        Dim searchform As New Form6
        searchform.TextBox1.Text = Me.TextBox3.Text
        searchform.Show()

'现在回到Form6窗体

'首先进入Form6_Load(...)

'写入以下代码....

Me.Text = "查询留言-关键字: " & TextBox1.Text
        Dim doc As XmlDocument = New XmlDocument
        doc.Load("info.xml")
        Dim match As String
        match = TextBox1.Text
        Dim regular As Regex = New Regex(match)
       Dim liuyuaninfo As XmlNodeList
        liuyuaninfo = doc.GetElementsByTagName("userliuyuan")

        Dim i As Integer

        TextBox1.Text += "以下是相似的记录" & vbCrLf
        TextBox1.Text += "==================================" & vbCrLf
        For i = 0 To userid.Count - 1
            While regular.IsMatch(liuyuaninfo(i).InnerText)
                TextBox1.Text += "留言: " & liuyuaninfo(i).InnerText & vbCrLf
                TextBox1.Text += "=======================================" & vbCrLf
                Exit While
            End While
        Next

'现在双击"关键字查询"按钮

'输入以下代码(其实和上面的一模一样)

Me.Text = "查询留言-关键字: " & TextBox1.Text
        Dim doc As XmlDocument = New XmlDocument
        doc.Load("info.xml")
        Dim match As String
        match = TextBox1.Text
        Dim regular As Regex = New Regex(match)
       Dim liuyuaninfo As XmlNodeList
        liuyuaninfo = doc.GetElementsByTagName("userliuyuan")

        Dim i As Integer

        TextBox1.Text += "以下是相似的记录" & vbCrLf
        TextBox1.Text += "==================================" & vbCrLf
        For i = 0 To userid.Count - 1
            While regular.IsMatch(liuyuaninfo(i).InnerText)
                TextBox1.Text += "留言: " & liuyuaninfo(i).InnerText & vbCrLf
                TextBox1.Text += "=======================================" & vbCrLf
                Exit While
            End While
        Next

'好了查询功能完成了,到现在为止,五部分已经全部完成.

'如果大家有问题请留言.

'界面如下

VB.net学习笔记(二十一)XML流的读写

System.Xml名称空间支持XML的处理,为了生成和浏览XML文档,使用两种访问方式: 一、读写方式     (一)基于流的方式     特点:速度快,可连续读写,缺点不能作为节点、元素等进...

VB.net读写XML文件源代码

  • 2011年12月31日 11:26
  • 103KB
  • 下载

asp.net xml留言本源码

  • 2009年11月23日 19:51
  • 20KB
  • 下载

vb.net中xml操作实例

记录一下开发过程中进行的一次XML操作实例,实现如下效果: 把winform中的一个DataGridView控件绑定的dataset对象转换成xml格式的字符串该winform中还包含了多个tex...
  • lpwmm
  • lpwmm
  • 2016年03月06日 00:13
  • 413

VB.NET 读取写入XML文件

Public Class CSysXML Dim mXmlDoc As New System.Xml.XmlDocument Public XmlFile As String ...

简单留言xml转化xsl表现 .net

  • 2010年08月07日 22:20
  • 7KB
  • 下载

一个以ASP.NET+XML编写的留言本

  • 2002年12月15日 00:00
  • 114KB
  • 下载

VB.NET反序列化XML

序列化,是将对象状态转换为可保持或传输的格式的过程。 与序列化相反的是反序列化,它将流转换为对象。这两个过程结合起来,就可以存储和传输数据。这就是序列化的意义所在。 在VB.NET中转换、处理和生...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用XML写的留言录(vb.net)(五)
举报原因:
原因补充:

(最多只允许输入30个字)