vb读取和写入多行的txt文件

想通过一个按钮读取d:\1.txt的文件,把里面的内容写到text1.text中 1.txt中的内容是多行的然后通过另一个按钮把text1.text的内容写到d:\2.txt中要让2.txt中的内容和1.txt中的内容一样都是多行的

举报该问题

第1个回答 2014-06-23

首先将Text1的MultiLine属性设为True Private Sub Command1_Click() Dim fso As Object, ts As Object Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.OpenTextFile("d:\1.txt", 1) Do While ts.AtEndOfStream <> True Text1.Text = Text1.Text & ts.ReadLine & vbCrLf Loop ts.Close Set ts = Nothing Set fso = Nothing End Sub Private Sub Command2_Click() Dim fso As Object, ts As Object Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.CreateTextFile("d:\2.txt", True) ts.Write Text1.Text ts.Close Set ts = Nothing Set fso = Nothing End Sub本回答被提问者采纳

相似回答

vb如何读取多行txt文本?答：1、对于文件的操作vb提供了open语句、print #语句、input #语句等语句来处理文件。2、读取多行文本，可以使用Line input #语句，一行行读取，再连接在一起，这种方法对大一点txt文件效率不高。3、下面提供一个高效率、一次性读入所有文本的vb6示例：Private Sub Command1_Click() Dim r Open "d:...

VB.NET中,现有一多行TXT文件,想按行读取全部内容,然后显示在一文体框...答：="" FileOpen(1, Application.StartupPath() & "\file\t1.txt", OpenMode.Input) Do While Not EOF(1) Input(1, a) TextBox1.Text =TextBox1.Text & a & vbcrlfLoop 一次性读取a=File.ReadAllText(Application.StartupPath() & "\file\t1.txt")...

请教在VB.net中如何将数据写入txt文件、再从txt文件读出?答：① 使用 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(...

VB 怎么读txt文件啊!答：在VB中读取txt文件有多种方法，下面将介绍两种常用的方法。首先，可以使用Open语句打开文件，然后通过line input #按行读取文件内容。这种方式适用于处理文本文件，能够逐行读取数据，便于处理和解析。其次，可以使用InputB函数一次性读入整个文件。这种方式适用于二进制文件，能够将文件内容一次性读入内存，便于...

vb.net文件读取txt答：1、实现上传按钮方法代码。2、判断图片对象是否为空代码。3、取得数据库字段 dt.Rows(0)("Pic")方法代码。4、字节数组转换为Image类型方法代码。5、处理SQL中操作Image类型方法代码。6、实现的上传结果。

VB如何读取txt文件答：可以用下面的方法读取 Private Sub Command1_Click() Dim text Dim line Open App.Path & "\test.txt" For Input As #1 For i = 0 To 4 Line Input #1, line text = text & line & vbCrLf Next i Close #1 Text1.text = textEnd Sub测试工程见附件 ...

VB6.0 读取文本每行内容,处理后写入另一文本?答：可以通过以下步骤实现这个功能：打开文本文件a，并使用Line Input函数逐行读取内容。对每行内容进行处理，将其修改为所需的格式。将处理后的内容写入新的文本文件b。以下是一个简单的示例代码：Option ExplicitSub Main()Dim strInputFilePath As StringDim strOutputFilePath As StringDim intInputFile As...

vb怎么依次读取.txt文件答：Dim file As String file = Dir(App.Path & "\*.txt")然后，你需要定义一个变量来存储文件内容。Dim text As String 接下来，通过Do循环依次读取每个.txt文件，直到没有更多文件为止。Do Until file = ""If LCase(Right(file, 7)) > "key.txt" Then '如果文件名不包含"key.txt"text = ...

vb读取txt文件行数问题答：Input就是每次读取一行，n = n + 1就是每次读取一行时就把n递增1，所以程序运行完毕后n就是行数了。还有更简单的方法：Open "c:\1.txtt" For Binary As #1 MsgBox "文件有 " & UBound(Split(Input(LOF(1), #1), vbCrLf)) + 1 & " 条记录。", vbInformation Close #1 三行即可 ...

大家正在搜

vb读取txt文件中的一行 vb读取文件夹下的文件名 vb逐行读取txt文件文件的读取与写入 vb读取txt文件到数组 vb中读取文本文件内容 vb遍历文件夹中的所有文件 vb获取文件夹下所有文件名 vb读取文件