最近在学VB.NET,编了个软件,用什么方法在RichTextBox中打开二个指定路径的TXT文件。
我有2个TXT文件:1、blood.txt、2、defecate.txt。文件位置在C:\file中怎么使RichTextBox中打开这二个TXT文件,用Loadfile...
我有2个TXT文件:
1、blood.txt、
2、defecate.txt。
文件位置在C:\file中
怎么使RichTextBox中打开这二个TXT文件,用Loadfile方法只能打开一个文件。查了网上的有用fileopen的方法调用openfiledialog对话框实现。我想用一个button点击后在RichTextBox中显示。两个文件的内容用2个换行分开。 展开
1、blood.txt、
2、defecate.txt。
文件位置在C:\file中
怎么使RichTextBox中打开这二个TXT文件,用Loadfile方法只能打开一个文件。查了网上的有用fileopen的方法调用openfiledialog对话框实现。我想用一个button点击后在RichTextBox中显示。两个文件的内容用2个换行分开。 展开
1个回答
展开全部
用Open C:\file\blood.txt" For Input As #1
读入至a
用Open C:\file\defecate.txt" For Input As #1
读入至b
RichTextBox.text=a & vbcrlf & vbcrlf & b
读入至a
用Open C:\file\defecate.txt" For Input As #1
读入至b
RichTextBox.text=a & vbcrlf & vbcrlf & b
更多追问追答
追问
怎么读入至a和b,难写个完整的代码吗。谢谢
追答
dim a as string
dim b as string
dim s as string
Open C:\file\blood.txt" For Input As #1
do while not eof(1)
Line Input #1, s
a= a & s
loop
Close #1
Open C:\file\defecate.txt" For Input As #1
do while not eof(1)
Line Input #1, s
b= b & s
loop
Close #1
RichTextBox.text=a & vbcrlf & vbcrlf & b
不好意思,这是VB6的代码,不知是否可用
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询