99问答网
所有问题
vb中,把文本文件显示在文本框中的问题
如题所述
举报该问题
推荐答案 2020-01-31
可以使用
Do
loop
循环结构
这样不管多长就不会超出文件尾了
Private
Sub
Command1_Click()
Open
"c:\1.txt"
For
Input
As
#1
Do
while
not
eof(1)
Input
#1,
arr(i)
loop
Close
#1
End
Sub
以下相同结构使用即可,这样就不会出错了
温馨提示:答案为网友推荐,仅供参考
当前网址:
http://99.wendadaohang.com/zd/WjBzeWXBBBtBj77ve7O.html
其他回答
第1个回答 2020-01-29
从文件读入的时候要写成Line
Input
#1,arr(i)
其次...你这写的....
干嘛不用
while
not
eof(1)
Loop
如果真的只读10行的话,在while语句里面加一个计数的局部变量.到第十行的时候,跳出循环就可以了么..
相似回答
VB
如何
把文件
内容
显示在文本框中
?
答:
为了在 TextBox 控件中
显示
多行
文本,
要将 MultiLine 属性设置为 True。如果多行 TextBox 没有水平滚动条,那么即使 TextBox 调整了大小
,文本
也会自动换行。为了在 TextBox 上定制滚动条组合,需要设置 ScrollBars 属性。如果
文本框的
MultiLine 属性设置为 True 而且它的 ScrollBars 没有设置为 None...
VB
如何Print在text里?
答:
Text1.Text = Text1.Text & vbCrLf & "Print的内容"这么操作,能
在文本框的
最下面一行添加一行内容,类似print
vb文本框
1
中的
字符反序
显示在文本框
2中
答:
文本框1中的字符反序
显示在文本框
2中:Text2.Text = StrReverse(Text1.Text)Private Sub Command1_Click()Dim m As Long, t As Long, n As Integer m = Val(InputBox("输入大于1的正整数m:", "输入数据"))n = 1 t = 0 Do While t < m n = n + 1 t = 2 ^ n Loop Print...
如何用
VB
6.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...
vb
读取txt
文件
并把内容
显示在
textbox控件中
答:
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中,
怎样使txt
文本中的
内容一行一行
显示在文本框中
?
答:
把文本框的
MultiLine属性设为True,ScrollBars属性设为2或3,然后:Open "123.txt" For Binary As #1 Text1.Text = Input(LOF(1), #1)Close #1
...界面的
文本框中的
时候
,把文件
名
显示在文本框中
并记录它的路径?_百 ...
答:
TextBox ---
文本框
CommandButton --- 命令按钮 完整代码如下:Option Explicit Private Sub Command1_Click()Unload Me End Sub Private Sub Dir1_Change()
File
1.Path = Dir1.Path End Sub Private Sub Drive1_GotFocus()OldDrive = Drive1.Drive End Sub Private Sub File1_MouseDown(Button...
急!如何
VB文件
列表框双击文件名
在文本框中显示文件
内容?
答:
Path +
File
1.FileName Else fName = File1.Path + "\" + File1.FileName End If Text1.Text = fName Text1.MultiLine = True Open fName For input As #1 Do until EOF(1)Line Input #1, s Text1.Text = Text1.Text & chr(13) & chr(10) & s Loop Close #1 End Sub ...
vb中如何将
自己程序
里的文字,
输出到别的程序
文本框中
?像输入法一样的...
答:
思路1:把你自己程序里面的文字存储到一个变量a里面 然后把变量a里面的内容写入到一个文本里面 另一个程序里面打开这个文本
,把文本
里面的东西添加到你的
文本框
里面 思路2 在原来程序的基础上添加窗体form2 把你自己程序里面的文字添加到text1里面 然后 form2.Text1.Text = Form1.Text1.Text ...
大家正在搜
vb在文本框中输入文本
vb文本框显示文字
vb文本框显示
vb文本框多行显示
vb文本框的属性
vb哪个是文本框控件
vb文本框不可编辑的属性
vb隐藏文本框
vb怎么隐藏文本框
相关问题
VB中如何在文本框内输入文字的同时,在标签上显示文本框中的文...
VB如何把文件内容显示在文本框中?
VB 怎样将文本框的数据读取和保存到文本文件中?
在vb程序运行时,怎样在msgbox上显示文本框中输入的内容...
如何在vb文本框中显示变量的值
vb中查询结果显示在文本框中
用VB6.0中inputbox函数输入数字在text文本框中...