在vb中如何将指定文本内容导入至指定的文本文件中
更新日期：2024.05.17
添加控件 text1 （属性multiline=true，scrollbars=3），Command1_Click， CommonDialog1
代码如下：
Private Sub Command1_Click()
With CommonDialog1
.CancelError = True
.Filter = "*.txt|*.txt|*.*|*.*"
.DefaultExt = "*.txt"
On Error GoTo err1
.ShowSave
Open .filename For Binary As #1
Put #1, , Text1.Text
Close
End With
Exit Sub
err1:
End Sub
用VB的OPEN 方法
VB读写文件要用到以下语句：
1、Open语句打开文件。
2、读文件使用Line Input、Input #，（以上为文本方式）和Get（以上为二进制方式）。
3、写文件使用Print #、Write（以上为文本方式）和Put（以上为二进制方式）。
4、Close语句关闭文件
5、二进制方式下移动文件位置使用Seek语句。
所有这些语句在VB的帮助中都有详细说明和例子。
文本文件的示例：
Open "TESTFILE" For Output As #1 \' 打开输出文件。
Print #1, "This is a test" \' 将文本数据写入文件。
Print #1, \' 将空白行写入文件。
Print #1, "Zone 1"； Tab ； "Zone 2" \' 数据写入两个区（print zones）。
Print #1, "Hello" ； " " ； "World" \' 以空格隔开两个字符串。
Print #1, Spc(5) ； "5 leading spaces " \' 在字符串之前写入五个空格。
Print #1, Tab(10) ； "Hello" \' 将数据写在第十列。
\' 赋值 Boolean、Date、Null 及 Error 等。
Dim MyBool, MyDate, MyNull, MyError
MyBool = False : MyDate = #February 12, 1969# : MyNull = Null
MyError = CVErr(32767)
\' True、False、Null 及 Error 会根据系统的地区设置自动转换格式。
\' 日期将以标准的短式日期的格式显示。
Print #1, MyBool ； " is a Boolean value"
Print #1, MyDate ； " is a date"
Print #1, MyNull ； " is a null value"
Print #1, MyError ； " is an error value"
Close #1 \' 关闭文件。
读文件示例
使用 Line Input # 语句从顺序文件中读入一行数据，并将该行数据赋予一个变量。本示例假设 TESTFILE 文件内含数行文本数据。
Dim TextLine
Open "TESTFILE" For Input As #1 \' 打开文件。
Do While Not EOF(1) \' 循环至文件尾。
Line Input #1, TextLine \' 读入一行数据并将其赋予某变量。
Debug.Print TextLine \' 在调试窗口中显示数据。
Loop
Close #1 \' 关闭文件。
19776725713 :vb中如何在一个文本框中导入TXT格式的文本~我要自己选择路径的~~_百度...
习舍芝1022 :答：1，使用菜单：[工程] -- [部件]，勾选其中的：Microsoft Common Dialog Control 6.0 (SP6)2，在窗体上添加1个文本框Text1，2个按钮，添加1个CommonDialog1控件。3，设置文本框Text1的MultiLine 属性为True，ScrollBars 属性为2。编写代码如下：Option Explicit Private Sub Command1_Click()'>>> ...
19776725713 :用VB将TXT文本中的内容导入oracle数据库...急!!急
习舍芝1022 :答：Dim array1 As Variant ''数组 Dim i As Integer dim strsql as string ''sql 语句 Dim strno As String ''信息序号部分 Dim strcontent As String ''信息内容部分 strfilename = "d:\1.txt"Open strfilename For Binary As #1 strtext = Input(LOF(1), #1) ''将文本内容...
19776725713 :vb中如何将文本导入textbox中?
习舍芝1022 :答：Print "导入完成！"原理：一行一行读，在文本框中一行一行追加，应该能懂吧 2.还有一特省事的方法：用richtextbox控件，一条语句：RichTextBox1.LoadFile (wj.Text)解决
19776725713 :VB达人请进,关于VB引入TXT文件的问题
习舍芝1022 :答：下面的代码把文本框Text1中的内容写到一个顺序文件：Exercise.TXT，存放于D:\：Open "D:\Exercise.TXT" For Output As #2 Print #2, Exercise.Text Close #2 2、 Write # 语句：将记录写入文件 语法格式为：Write # 文件号[,表达式列表]该语句适用于向划分了字段的记录格式的文件写入数据。“...
19776725713 :VB中如何将剪贴板的文字自动导入到text1.text文本里面?
习舍芝1022 :答：在窗体上放上一个TextBox ，一个Timer：Private Sub Timer1_Timer()Text1.Text = ""Text1.Text = Clipboard.GetText '把剪贴板的文本写入Text1 End Sub Private Sub Form_Load ()Text1.text=""Timer1.Interval = 1000 End Sub
19776725713 :用vb如何把一个文本框(text1)中的任意一行内容,添加到另一个文本框(t...
习舍芝1022 :答：用来seltext确定text1选中的内容就可以了，如在text2中显示:text2=text1.seltext,大致思路是这样的～
19776725713 :VB6.0 读取文本每行内容,处理后写入另一文本?
习舍芝1022 :答：对每行内容进行处理，将其修改为所需的格式。将处理后的内容写入新的文本文件b。以下是一个简单的示例代码：Option ExplicitSub Main()Dim strInputFilePath As StringDim strOutputFilePath As StringDim intInputFile As IntegerDim intOutputFile As IntegerDim strLine As String' 指定输入和输出文件...
19776725713 :vb中如何将外部的文本文件的内容读入?
习舍芝1022 :答：' 以两个文本框依次显示“c:\windows\win.ini”文件内容为例 ' 先添加两个文本框和一个按钮 Option Explicit Private Sub Command1_Click()Dim str1 As String Line Input #1, str1 If Text1.Tag = "" Then Text1.Text = str1 Text1.SetFocus Text1.Tag = "1"Else Text2.Text = str...
19776725713 :怎么在VB中读入文本里的数据
习舍芝1022 :答：打开文件 读取数据 关闭文件 基本流程就是这样。代码如下：open 文件名 for input as #1 input #1,变量 close #1 注意“文件名”要更换成真正的文件名并用英文双引号引起来（包括路径）这样就可以把文件里面的数据独到“变量”这个变量里面了 如果有多个变量要读，就把变量名用引文逗号分开 ...
19776725713 :VB,怎么将TXT不同行得内容,分别导入进不同得文本框中
习舍芝1022 :答：方法很多，下面介绍一种：dim a(5)dim i as integer i=0 open "1.txt" for input as #1 do while not eof(1)line input #1,a(i)i=i+1 if i>5 then exit do loop close text1=a(0):text2=a(1):text3=a(2):text4=a(3):text5=a(4):text6=a(5)还可以使用控件数组，...
代码如下：
Private Sub Command1_Click()
With CommonDialog1
.CancelError = True
.Filter = "*.txt|*.txt|*.*|*.*"
.DefaultExt = "*.txt"
On Error GoTo err1
.ShowSave
Open .filename For Binary As #1
Put #1, , Text1.Text
Close
End With
Exit Sub
err1:
End Sub
用VB的OPEN 方法
VB读写文件要用到以下语句：
1、Open语句打开文件。
2、读文件使用Line Input、Input #，（以上为文本方式）和Get（以上为二进制方式）。
3、写文件使用Print #、Write（以上为文本方式）和Put（以上为二进制方式）。
4、Close语句关闭文件
5、二进制方式下移动文件位置使用Seek语句。
所有这些语句在VB的帮助中都有详细说明和例子。
文本文件的示例：
Open "TESTFILE" For Output As #1 \' 打开输出文件。
Print #1, "This is a test" \' 将文本数据写入文件。
Print #1, \' 将空白行写入文件。
Print #1, "Zone 1"； Tab ； "Zone 2" \' 数据写入两个区（print zones）。
Print #1, "Hello" ； " " ； "World" \' 以空格隔开两个字符串。
Print #1, Spc(5) ； "5 leading spaces " \' 在字符串之前写入五个空格。
Print #1, Tab(10) ； "Hello" \' 将数据写在第十列。
\' 赋值 Boolean、Date、Null 及 Error 等。
Dim MyBool, MyDate, MyNull, MyError
MyBool = False : MyDate = #February 12, 1969# : MyNull = Null
MyError = CVErr(32767)
\' True、False、Null 及 Error 会根据系统的地区设置自动转换格式。
\' 日期将以标准的短式日期的格式显示。
Print #1, MyBool ； " is a Boolean value"
Print #1, MyDate ； " is a date"
Print #1, MyNull ； " is a null value"
Print #1, MyError ； " is an error value"
Close #1 \' 关闭文件。
读文件示例
使用 Line Input # 语句从顺序文件中读入一行数据，并将该行数据赋予一个变量。本示例假设 TESTFILE 文件内含数行文本数据。
Dim TextLine
Open "TESTFILE" For Input As #1 \' 打开文件。
Do While Not EOF(1) \' 循环至文件尾。
Line Input #1, TextLine \' 读入一行数据并将其赋予某变量。
Debug.Print TextLine \' 在调试窗口中显示数据。
Loop
Close #1 \' 关闭文件。
习舍芝1022 :答：1，使用菜单：[工程] -- [部件]，勾选其中的：Microsoft Common Dialog Control 6.0 (SP6)2，在窗体上添加1个文本框Text1，2个按钮，添加1个CommonDialog1控件。3，设置文本框Text1的MultiLine 属性为True，ScrollBars 属性为2。编写代码如下：Option Explicit Private Sub Command1_Click()'>>> ...
习舍芝1022 :答：Dim array1 As Variant ''数组 Dim i As Integer dim strsql as string ''sql 语句 Dim strno As String ''信息序号部分 Dim strcontent As String ''信息内容部分 strfilename = "d:\1.txt"Open strfilename For Binary As #1 strtext = Input(LOF(1), #1) ''将文本内容...
习舍芝1022 :答：Print "导入完成！"原理：一行一行读，在文本框中一行一行追加，应该能懂吧 2.还有一特省事的方法：用richtextbox控件，一条语句：RichTextBox1.LoadFile (wj.Text)解决
习舍芝1022 :答：下面的代码把文本框Text1中的内容写到一个顺序文件：Exercise.TXT，存放于D:\：Open "D:\Exercise.TXT" For Output As #2 Print #2, Exercise.Text Close #2 2、 Write # 语句：将记录写入文件 语法格式为：Write # 文件号[,表达式列表]该语句适用于向划分了字段的记录格式的文件写入数据。“...
习舍芝1022 :答：在窗体上放上一个TextBox ，一个Timer：Private Sub Timer1_Timer()Text1.Text = ""Text1.Text = Clipboard.GetText '把剪贴板的文本写入Text1 End Sub Private Sub Form_Load ()Text1.text=""Timer1.Interval = 1000 End Sub
习舍芝1022 :答：用来seltext确定text1选中的内容就可以了，如在text2中显示:text2=text1.seltext,大致思路是这样的～
习舍芝1022 :答：对每行内容进行处理，将其修改为所需的格式。将处理后的内容写入新的文本文件b。以下是一个简单的示例代码：Option ExplicitSub Main()Dim strInputFilePath As StringDim strOutputFilePath As StringDim intInputFile As IntegerDim intOutputFile As IntegerDim strLine As String' 指定输入和输出文件...
习舍芝1022 :答：' 以两个文本框依次显示“c:\windows\win.ini”文件内容为例 ' 先添加两个文本框和一个按钮 Option Explicit Private Sub Command1_Click()Dim str1 As String Line Input #1, str1 If Text1.Tag = "" Then Text1.Text = str1 Text1.SetFocus Text1.Tag = "1"Else Text2.Text = str...
习舍芝1022 :答：打开文件 读取数据 关闭文件 基本流程就是这样。代码如下：open 文件名 for input as #1 input #1,变量 close #1 注意“文件名”要更换成真正的文件名并用英文双引号引起来（包括路径）这样就可以把文件里面的数据独到“变量”这个变量里面了 如果有多个变量要读，就把变量名用引文逗号分开 ...
习舍芝1022 :答：方法很多，下面介绍一种：dim a(5)dim i as integer i=0 open "1.txt" for input as #1 do while not eof(1)line input #1,a(i)i=i+1 if i>5 then exit do loop close text1=a(0):text2=a(1):text3=a(2):text4=a(3):text5=a(4):text6=a(5)还可以使用控件数组，...
