vb点虐 txt行的简单介绍

VB.NET中,现有一多行TXT文件,想按行读取全部内容,然后显示在一文体框中,代码如下

a = ""

成都创新互联公司长期为超过千家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为江西企业提供专业的成都做网站、网站建设,江西网站改版等技术服务。拥有10年丰富建站经验和众多成功案例,为您定制开发。

TextBox1.Text =""

FileOpen(1, Application.StartupPath()  "\file\t1.txt", OpenMode.Input)      

Do While Not EOF(1)

Input(1, a)

TextBox1.Text =TextBox1.Text   a  vbcrlf

Loop      

一次性读取

a=File.ReadAllText(Application.StartupPath()  "\file\t1.txt")

vb点虐 文件读取txt

1、实现上传按钮方法代码。

2、判断图片对象是否为空代码。

3、取得数据库字段 dt.Rows(0)("Pic")方法代码。

4、字节数组转换为Image类型方法代码。

5、处理SQL中操作Image类型方法代码。

6、实现的上传结果。

如何用vb点虐 编写读取txt内容的代码?

窗体上添加2个文本框,设置成多行,2个按钮,在文本框1里随便输入若干文字,可以多行,单击按钮1,保存到文件。然后单击按钮2,把刚才写入的文件读到文本框2里。

代码如下:

'写文本文件

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'创建(写入)一个文本文件

Dim MyStream As New System.IO.FileStream(Application.StartupPath "\Ssk.txt", System.IO.FileMode.Create)

Dim MyWriter As New System.IO.StreamWriter(MyStream, System.Text.Encoding.Default)

MyWriter.WriteLine(TextBox1.Text)

MyWriter.Flush()

MyWriter.Close()

MyStream.Close()

End Sub

'读文本文件

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

'读取一个文本文件

Dim MyReader As New System.IO.StreamReader(Application.StartupPath "\Ssk.txt", System.Text.Encoding.UTF8)

TextBox2.Text = MyReader.ReadToEnd()

MyReader.Close()

End Sub

气斜射入水或其他介质,折射光线与入射光线法线在

VB.NET修改txt文件指定行?

.or Example:

1.txt文件内容如下:

The 1st line.

#The 2nd line.

The 3rd line.

The 4th line.

.

修改第二行内容,将#除去.修改后的文本如下:

The 1st line.

The 2nd line.

The 3rd line.

The 4th line.

1 输入方式打开原文件 1.txt;

2 输出方式打开新文件 2.txt;

3 逐行 Line Input 从 1.txt 中读数据,Print 写入 2.txt,直至要修改的行;

4 丢弃从 1.txt中读出的要修改的行,将新内容行写入 2.txt;

5 仿照第 3 步,将其余的行从 1.txt 复制到 2.txt。

6 关闭两个文件

7 删除1.txt,将 2.txt 的文件名改为原来 1.txt 的。


名称栏目:vb点虐 txt行的简单介绍
链接地址:http://azwzsj.com/article/ddepoej.html