VB代码,打开txt文本并把内容显示在text控件里?
代码怎么写?
要详细的,谢谢,因为是初学
补充下：一个按钮控件，一个text控件，点按钮，手动打开相关txt文本，把内容显示在text控件里，
因为财富不多，所以想事后才追加的~不要见怪哇
==========================================
啊，运行错误：类型不匹配
=======================
input 1,inputdata 语法错误
x = "C:\Documents and Settings\stu\桌面\11.txt" '你要读取的TXT文件路径
Open x For Input As #1
Do While Not EOF(1)
Input #1, aa
Loop
Text1.Text = aa
End Sub
dim a as string, inputdata as string
commanddialog1.filename=""
commanddialog1.filter="*.txt|*.txt"
a=commanddialog1.filename
open a for input as #1
do while not EOF(1)
input #1,inputdata
loop
text1.text=inputdata & vbcrlf本回答被提问者采纳
vb 怎样打开文件并把文件内容显示在文本框
文本框通常用来显示文本字符，以下是用 VB 编写的打开某 txt 文件，并把文件内容显示在文本框的步骤及代码：1、添加必要的组件（文本框、按钮）2、设置属性：3、编写按钮的响应代码：代码如下：Private Sub Command1_Click() Dim a$ Text1.Text = "" Open "d:\\test.txt" For Input As...
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 是要把文本框内容存到文件还是...
...的txt文件给数组赋值,并显示在text控件里?代码怎么写?
回答：留个Q我传你个代码
VB打开4M的TXT文本 在TEXT控件显示出来
申请一个动态的字符串数组，在循环读取数据的时候，将每一行的数据存进数组中，最后再用join函数连接。文本中的内容本身就比较大，在循环中就是用 str =str & strline & vbcrlf 也会读的很慢，更何况你是RichTextBox1.Text = RichTextBox1.Text & strLine & Chr(10) & Chr(13)改动如下:data...
...怎么打开一个txt文件显示在textbox中,或者将textbox中内容成为txt文...
新建一个excel工作薄,打开VBA编辑器,插入一个用户窗体,在窗体中放一个textbox,两个commandbutton,然后打开窗体代码窗口粘贴以下代码 Private Sub CommandButton1_Click()'读入一个ANSI编码的文本文件,并显示在textbox中 With Application.FileDialog(msoFileDialogOpen)If .Show Then ipath = .SelectedItems...
vb问题:请问怎么用二进制方式(binary)打开文本文件(txt)并读取里面的...
1、在工程菜单中 添加部件 找到 Microsoft common dialog control 选上添加。2、在 form1 中 拖放 text、Command和commondialog 控件，把commondialog的name 属性改为 Cdg1。3、在command1_click 事件中输入代码：Private Sub Command1_Click()Dim FileNam As String Dim tStr() As Byte Dim txt...
vb,如何用text控件显示txt文件,每单击一次按钮,在text控件中显示...
正常的打开文件，然后单击事件中 用line Input 读取文件一行，每读取一行文件指针就自动移到下一行。当然要用Eof 函数来判断文件已是否读到尾了。比如在load 事件中打开文件，或在另一个按钮事件中打开文件 Dim fileNumber As IntegerConst Filename = "c:\\123.txt" '文件名及地址自己改一下 Private...
VB问题:如何使一个记事本文件的内容在VB的text控件中显示?
请设置TEXT的属性MultiLine为True:Option Explicit Dim str1 As String Dim str As String Private Sub Command1_Click()CommonDialog1.ShowOpen Text1 = ""Open CommonDialog1.FileName For Input As #1 Do While Not EOF(1)Input #1, str1 str = str & str1 & Chr(13) & Chr(10)Text1...
如何把txt文档中数据导入到 VB 的textbox中
首先你需要把文本框text1的Multiline属性设置为true，这样就可以换行了，点击按钮出现对话框，然后选择文件打开，读入它里边的内容Private Sub Command1_Click()With CommonDialog1 .DialogTitle = "打开".FileName = "" '打开当前工作路径 .MaxFileSize = 32767 '缓存区 .Filter = "文本文件 ...
(VB)如何点击按钮,让一个文本文件里的内容显示到text1里?
再在Text1中显示 我是用二进制方法打开,可以读入而不丢失所有文件内容.贴代码了:Private Sub Command1_Click()Dim Fn as Long Dim sIn as String Fn = FreeFile Open "C:\\a.txt" For Binary As #Fn sIn = Input$(LOF(Fn), #Fn)Close #Fn Text1.Text = sIn End Sub ...
