我用是的vb.net怎样将文本文件里面的内容快速的写到文本框中,
DoWhileNotEOF(1)ch=InputString(1,1)TextBox1.Text=TextBox1.Text+chloop这个可以就是处理大文本的时候很慢...
Do While Not EOF(1)
ch = InputString(1, 1)
TextBox1.Text = TextBox1.Text + ch
loop
这个可以就是处理大文本的时候很慢,帮忙改下谢谢。 展开
ch = InputString(1, 1)
TextBox1.Text = TextBox1.Text + ch
loop
这个可以就是处理大文本的时候很慢,帮忙改下谢谢。 展开
3个回答
展开全部
根本不用那么麻烦!
界面中添加一个Button和RichTextBox控件(自带的),双陵烂击后添加以下代码:
RichTextBox1.LoadFile("F:\临时文件\123.txt", RichTextBoxStreamType.PlainText)
就这么简单的一句,比用缺汪氏什么EOF去伏散判断文件尾巴好多了
界面中添加一个Button和RichTextBox控件(自带的),双陵烂击后添加以下代码:
RichTextBox1.LoadFile("F:\临时文件\123.txt", RichTextBoxStreamType.PlainText)
就这么简单的一句,比用缺汪氏什么EOF去伏散判断文件尾巴好多了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Dim myStreamReader As StreamReader = File.OpenText(My.Application.Info.DirectoryPath & "橡饥灶\123.txt"梁扮肢返)
txtResult.Text = myStreamReader.ReadToEnd()
txtResult.Text = myStreamReader.ReadToEnd()
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
用斗备 line input。
Open "e:\rec.txt"空宽毁 For Input As #1
Dim s As String
Text1.Text = "巧滚"
While Not EOF(1)
Line Input #1, s
Text1.Text = Text1.Text & s & vbNewLine
Wend
Close #1
Open "e:\rec.txt"空宽毁 For Input As #1
Dim s As String
Text1.Text = "巧滚"
While Not EOF(1)
Line Input #1, s
Text1.Text = Text1.Text & s & vbNewLine
Wend
Close #1
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询