资讯

精准传达 • 有效沟通

从品牌网站建设到网络营销策划,从策略到执行的一站式服务

vb.nettxt追加的简单介绍

如何将已有的txt格式的文件数据导入VB.NET程序中,(也就是在VB.NET中读取所需的txt文

一个按钮,一个文本框,把文本框设置成多行显示。

成都创新互联于2013年开始,先为鼓楼等服务建站,鼓楼等地企业,进行企业商务咨询服务。为鼓楼企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。

代码如下:

Imports System.IO

Public Class Form1

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

Dim r As New StreamReader(Application.StartupPath "\ABC.txt", System.Text.Encoding.Default) '用StreamReader打开文本文件

Dim s As String

TextBox1.Text = ""

Do While r.Peek -1 '是否到文件尾

s = r.ReadLine '从打开的文件中读取一行内容

TextBox1.Text = TextBox1.Text s vbCrLf '添加到文本框TextBox1.Text的后面并回车

Loop

r.Close() '关闭对象

End Sub

End Class

VB.net 2008 如何以二进制的方式向文本文件中追加一个回车符

解决了,把 fr.Write(vbCrLf) 改成 fr.Write(CByte(vbCrLf))即可。

牛,为使用二进制的程序员鼓掌!

从来没用过的人问:为什么要用二进制啊,有啥好处?

VB.net在原数据库内容的基础上追加新字段并对新字段进行赋值

ALTER TABLE TABLE_Name ADD columnName varchar(30) '新增字段

ALTER TABLE TABLE_Name ADD columnName1 varchar(30) '新增字段

INSERT INTO TABLE_Name(columnName,columnName1)VALUES(columnName,columnName1) ‘插入新行,只给新字段赋值

vb.net 怎么写入和多行读取txt文件,而且多次写如之前的不被覆盖?

.net应该提供了此类函数。如C#就有File.AppendAllText(filename,string)用于追加内容,File.ReadAllLine(filename)用于读取多行。

请教在VB.net中如何将数据写入txt文件、再从txt文件读出?

软糖来告诉你吧。

VB.net中读写文件主要使用System.IO命名空间。

① 使用 File.ReadAllText 读取

Dim s As String = System.IO.File.ReadAllText("C:\a.txt")

② 使用 StreamReader 读取,注意编码格式和写入的编码保持一致。

Dim sr As StreamReader = New StreamReader("C:\a.txt", System.Text.Encoding.UTF8)

Dim s As String = sr.ReadToEnd()

sr.Close()

③ 使用 File.WriteAllText 写入,会覆盖同名的文件。

Dim 要写的内容 As String = ""

File.WriteAllText(文件路径, 要写的内容, System.Text.Encoding.UTF8)

④ 使用 StreamWriter 写入。

Dim sw As System.IO.StreamWriter = New System.IO.StreamWriter("C:\a.txt", False, System.Text.Encoding.UTF8)

sw.WriteLine(TextTB.Text)

sw.Close()

⑤ 使用 StreamWriter 追加写入。

将上面代码的第二个参数False改为True。

◆ 满意请采纳,谢谢 ◆


分享文章:vb.nettxt追加的简单介绍
标题网址:http://cdkjz.cn/article/hhphoe.html
多年建站经验

多一份参考,总有益处

联系快上网,免费获得专属《策划方案》及报价

咨询相关问题或预约面谈,可以通过以下方式与我们联系

业务热线:400-028-6601 / 大客户专线   成都:13518219792   座机:028-86922220