数据接收的相关程序如下:
Try
ReceiveBuff = SerialPort1.ReadTo("F")
BeginInvoke(New EventHandler(AddressOf CallbackShow), vbNull)
Catch ex As Exception
MsgBox("Undefinition data !", MsgBoxStyle.OkOnly, "Prompt")
BeginInvoke(New EventHandler(AddressOf CallbackShow), vbNull)
End Try
(5) 读写数据
1)读取文件内容
要将文件读出,要先建立一个StreamReader的对象。建立此对象的语法有三种:
Dim 对象名称 As New StreamReader(FileStream对象)
Dim 对象名称 As StreamReader = File.OpenText(文件路径)
Dim 对象名称 As New StreamReader(路径名称)
其中,方法一里的FileStream对象指的就是在上一节中打开文件时所建立的对象名称;方法二则是使用File.Opentext来建立一个StreamReader的对象;方法三则是直接指定要读取的文件称即可。使用方法二、三的声明法,并不需要经过打开文件的操作便可读取文件的内容,因为这个步骤在建立StreamReader对象时就已经自动完成了。
此类中所提供的一些方法如下:
Close:关闭并释放此对象的系统资源;
Read:从input stream中读出下一个字符;
ReadLine:从目前的文件读出一行数据,并以字符串类型将所读到的数据返回;
ReadToEnd:将文件的内容由指针所在位置开始读取,直到文件结束。
本程序中首先定义了As为一个StreamReader的对象,然后定义了As为一个ArrayList数组列表。然后调用了StreamReader的EndOfStream方法,如果当前的流位置没有在流的尾端,便调用StreamReader的ReadLine方法,在文件中读出一行数据以字符串类型将所读到的数据返回,并作为数组列表的参数,作为成员被添加到数组列表中。最后调用StreamWriter的Close方法,关闭并释放此对象的系统资源。
相关程序如下:
Dim sr As New System.IO.StreamReader(OpenFileDialog1.FileName)
Dim arr As ArrayList = New ArrayList()
While (sr.EndOfStream) = False
arr.Add(sr.ReadLine())
End While
sr.Close()
Sub CallbackShow(ByVal sender As System.Object, ByVal e As System.EventArgs)
If ToolStripButton1.Enabled = True Then
WriteToFile(Now().ToString)
End If
If ReceiveBuff.Length > 0 Then
JudgeTaskMode(ReceiveBuff)
End If
End Sub
2)将数据写入文件
与读出文件一样,在写入时我们也需要建立一个StreamWriter的对象,而建立此对象的方法也有三种:
Dim 对象名称 As New StreamWriter(FileStream对象)
Dim 对象名称 As StreamWriter = File.AppendText(文件名称)
Dim 对象名称 As StreamWriter = File.CreateText(文件名称)
使用CreateText建立的文件内容会一直被覆盖,而AppendText则是将数据附加到原文件中。
这个类所提供的方法如下:
Close:关闭并释放此对象的系统资源;
- 上一篇:双谱图像配准技术研究+powell算法
- 下一篇:基于DSP的雷达恒虚警检测技术研究
-
-
-
-
-
-
-
现代简约美式风格在室内家装中的运用
浅析中国古代宗法制度
中国传统元素在游戏角色...
江苏省某高中学生体质现状的调查研究
高警觉工作人群的元情绪...
上市公司股权结构对经营绩效的影响研究
g-C3N4光催化剂的制备和光催化性能研究
C++最短路径算法研究和程序设计
NFC协议物理层的软件实现+文献综述
巴金《激流三部曲》高觉新的悲剧命运