VB中,设置打开一个TXT文件显示到一个TEXTBOX里面的程序该如何写

如题所述

不知道您的意思是不是打开一个文本文件,其代码如下:
option
explicit
private
sub
command1_click()
'顺序文件的读操作
dim
inputdata
as
string
open
"d:\bootex.log"
for
input
as
#1
'打开指定的文件(必须存在)
do
while
not
eof(1)
'
否已到文件未尾
line
input
#1,
inputdata
'
读入一行数据并赋给变量inputdata
text1.text
=
text1.text
+
inputdata
+
vbcrlf
'加载到文本框中
loop
close
#1
end
sub
'文件框
'text1.multiline
=
true
多行显示
'text1.scrollbars
=
3
滚动条为水平加垂直,该属性为只读,需要在设计时指明,不能有代码改变
以上代码在vb6.0测试通过
温馨提示:内容为网友见解,仅供参考
无其他回答

vb 怎样打开文件并把文件内容显示在文本框
1、添加必要的组件(文本框、按钮)2、设置属性:3、编写按钮的响应代码:代码如下:Private Sub Command1_Click() Dim a$ Text1.Text = "" Open "d:\\test.txt" For Input As #1 Do Input #1, a Text1.Text = Text1.Text & a & vbCrLf Loop Until EOF(1) C...

vba (excel)怎么打开一个txt文件显示在textbox中,或者将textbox中内 ...
新建一个excel工作薄,打开VBA编辑器,插入一个用户窗体,在窗体中放一个textbox,两个commandbutton,然后打开窗体代码窗口粘贴以下代码 Private Sub CommandButton1_Click()'读入一个ANSI编码的文本文件,并显示在textbox中 With Application.FileDialog(msoFileDialogOpen)If .Show Then ipath = .SelectedItems...

vb6.0怎样将保存的txt文件给数组赋值,并显示在text控件里?代码怎么写...
回答:留个Q我传你个代码

vb读取txt文件并把内容显示在textbox控件中
Private Sub Command1_Click()Dim s As String Dim a As String Open "c:\\abc.txt" For Input As #1 If Not EOF(1) Then Input #1, s End If While Not EOF(1)s = s & vbCrLf Input #1, a s = s & a Wend Close #1 Text1.Text = s End Sub 是要把文本框内容存到文件还是...

vb.net使用打开对话框,打开一个文本文件显示在文本框中,然后对文本框中...
读文件内容到TextBox :Try Using sr As StreamReader = New StreamReader("C:\\\\TestFile.txt")textbox1.Text = sr.ReadToEnd()End Using Catch E As Exception Console.WriteLine(E.Message)End Try 修改完成后,保存到文件:Using sw As StreamWriter = New StreamWriter("C:\\\\TestFile.txt")s...

如何把txt文档中数据导入到 VB 的textbox中
首先你需要把文本框text1的Multiline属性设置为true,这样就可以换行了,点击按钮出现对话框,然后选择文件打开,读入它里边的内容Private Sub Command1_Click()With CommonDialog1 .DialogTitle = "打开".FileName = "" '打开当前工作路径 .MaxFileSize = 32767 '缓存区 .Filter = "文本文件 ...

VB打开4M的TXT文本 在TEXT控件显示出来
Text & strLine & Chr(10) & Chr(13)改动如下:dataArr 为动态字符串数组变量 ...Do Until EOF(1)Line Input #1, strLine ReDim Preserve dataArr(p)dataArr(p)=strline p=p+1 Loop ...RichTextBox1.Text =join(dataArr,vbcrlf)另外,txtbox能显示的内容是有限的。

VB如何把文件内容显示在文本框中?
VB6.0可以使用TextBok控件或RichTextBox控件实现将读入文本文件显示于控件中。TextBox 控件有时也称作编辑字段或者编辑控件,显示设计时输入的用户输入的、或运行时在代码中赋予控件的信息。为了在 TextBox 控件中显示多行文本,要将 MultiLine 属性设置为 True。如果多行 TextBox 没有水平滚动条,那么...

在VB里,如何打开一个txt文档,并在RichTextBox1中显示它?
Private Sub command1_click()Dim readtext As String Open "d:\\1.txt " For Input As #1 While Not EOF(1)Line Input #1, readtext RichTextBox1.Text = RichTextBox1.Text & readtext & vbCrLf Wend '文件关闭的方法 Close #1 End Sub ...

如何用VB6.0获取一个txt文件的所有文本,并显示在text1,文本框里
先添加commondialog控件到窗体,改名称CDL1,加按钮Cmd1,文本框TexT1..Private Sub Cmd1_Click()Dim yy$, FF&(10)Text1 = ""CDL1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"CDL1.FileName = ""CDL1.ShowOpen On Error Resume Next If CDL1.FileName = "" Then Exit...

相似回答