大橙子网站建设,新征程启航

为企业提供网站建设、域名注册、服务器等服务

vb.net多行文本文件 VB文本框显示多行文本

在VB.NET中两个文本文件,一个文件中有多行文本。现要把文本文件中的内容写入另一文本文件中

Dim str_File_1 As String = My.Computer.FileSystem.ReadAllText("c:\第一个文件", System.Text.Encoding.ASCII) '根据实际的编码读第一个文件

成都创新互联-专业网站定制、快速模板网站建设、高性价比南乐网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式南乐网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖南乐地区。费用合理售后完善,十载实体公司更值得信赖。

Dim str_File_2 As String = My.Computer.FileSystem.ReadAllText("c:\第二个文件", System.Text.Encoding.ASCII) '根据实际的编码读第二个文件

'下面是一次性写入

My.Computer.FileSystem.WriteAllText("c:\第一个文件", str_File_2, True, System.Text.Encoding.ASCII)

'下面是一行一行写入

Dim str_Sp() As String = str_File_2.Split(vbCrLf)

For i = 0 To str_Sp.LongLength - 1

My.Computer.FileSystem.WriteAllText("c:\第一个文件", str_Sp(i)  vbCrLf, True, System.Text.Encoding.ASCII)

Next

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

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

vb如何读取多行txt文本?

1、对于文件的操作vb提供了open语句、print #语句、input #语句等语句来处理文件。

2、读取多行文本,可以使用Line input #语句,一行行读取,再连接在一起,这种方法对大一点txt文件效率不高。

3、下面提供一个高效率、一次性读入所有文本的vb6示例:

Private Sub Command1_Click()

Dim r

Open "d:\readme.txt" For Binary As #1

r = StrConv(InputB(LOF(1), 1), vbUnicode)

Close #1

Debug.Print r

End Sub

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

a = ""

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.net Document_PrintPage打印多行文本

比如:

Private Sub Document_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)

e.Graphics.DrawString(str0, New Font("Arial", 14, FontStyle.Regular), Brushes.Black, 50, 50)

e.Graphics.DrawString(A1, New Font("Arial", 10, FontStyle.Regular), Brushes.Black,50, 100)

e.Graphics.DrawString(A2, New Font("Arial", 10, FontStyle.Regular), Brushes.Black, 300,100)

e.Graphics.DrawString(A3, New Font("Arial", 10, FontStyle.Regular), Brushes.Black, 800,100)

也就是分次用不同坐标和不同的字体来打印各变量。画线用:

e.Graphics.DrawLine(BlackPen, x1, y1, x2, y2)。

具体坐标数值自己用尺量出,再换算。

VB.NET多个文本框显示多行数据

Dim mycon As New SqlConnection(connstrs)

Dim sqlStr As String = "SELECT * FROM [Column] FROM [Table]"

Dim cmd As New SqlCommand(sqlStr, mycon)

Dim reader = cmd.ExecuteReader()

Dim i As Integer = 1

While reader.Read()

Dim txt As New TextBox()

txt.Name = "txt" + i

txt.Size = New Size(100, 20) '文本框大小

txt.Location = New Point(50, i * 20 + 20)'left:50 top:随便写的,自己看着调

txt.Text = reader.GetValue(0).ToString()

Me.Controls.Add(txt) 'Me 可以改为你要添加上去的对象

End While

'未经过运行,自己调试看看能否OK


本文名称:vb.net多行文本文件 VB文本框显示多行文本
当前网址:http://dzwzjz.com/article/hgscpp.html
在线咨询
服务热线
服务热线:028-86922220
TOP