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