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

在VB.NET中兩個(gè)文本文件，一個(gè)文件中有多行文本。現(xiàn)要把文本文件中的內(nèi)容寫入另一文本文件中

Dim?str_File_1?As?String?=?My.Computer.FileSystem.ReadAllText("c:\第一個(gè)文件",?System.Text.Encoding.ASCII)?'根據(jù)實(shí)際的編碼讀第一個(gè)文件

成都創(chuàng)新互聯(lián)-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價(jià)比南樂(lè)網(wǎng)站開(kāi)發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫(kù),直接使用。一站式南樂(lè)網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們，業(yè)務(wù)覆蓋南樂(lè)地區(qū)。費(fèi)用合理售后完善，十載實(shí)體公司更值得信賴。

Dim?str_File_2?As?String?=?My.Computer.FileSystem.ReadAllText("c:\第二個(gè)文件",?System.Text.Encoding.ASCII)?'根據(jù)實(shí)際的編碼讀第二個(gè)文件

'下面是一次性寫入

My.Computer.FileSystem.WriteAllText("c:\第一個(gè)文件",?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:\第一個(gè)文件",?str_Sp(i)??vbCrLf,?True,?System.Text.Encoding.ASCII)

Next

vb.net 怎么寫入和多行讀取txt文件，而且多次寫如之前的不被覆蓋？

.net應(yīng)該提供了此類函數(shù)。如C#就有File.AppendAllText(filename,string)用于追加內(nèi)容，F(xiàn)ile.ReadAllLine(filename)用于讀取多行。

vb如何讀取多行txt文本？

1、對(duì)于文件的操作vb提供了open語(yǔ)句、print #語(yǔ)句、input #語(yǔ)句等語(yǔ)句來(lái)處理文件。

2、讀取多行文本，可以使用Line input #語(yǔ)句，一行行讀取，再連接在一起，這種方法對(duì)大一點(diǎn)txt文件效率不高。

3、下面提供一個(gè)高效率、一次性讀入所有文本的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中，現(xiàn)有一多行TXT文件，想按行讀取全部?jī)?nèi)容，然后顯示在一文體框中，代碼如下

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)

也就是分次用不同坐標(biāo)和不同的字體來(lái)打印各變量。畫(huà)線用：

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

具體坐標(biāo)數(shù)值自己用尺量出，再換算。

VB.NET多個(gè)文本框顯示多行數(shù)據(jù)

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:隨便寫的，自己看著調(diào)

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

Me.Controls.Add(txt) 'Me 可以改為你要添加上去的對(duì)象

End While

'未經(jīng)過(guò)運(yùn)行，自己調(diào)試看看能否OK

網(wǎng)頁(yè)標(biāo)題：vb.net多行文本文件 VB文本框顯示多行文本
網(wǎng)頁(yè)網(wǎng)址：http://muchs.cn/article38/hgscpp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站維護(hù)、軟件開(kāi)發(fā)、網(wǎng)站營(yíng)銷、網(wǎng)站設(shè)計(jì)、手機(jī)網(wǎng)站建設(shè)、網(wǎng)站收錄

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)