读取文本文件[英] Reading a Text File

问题描述

我正在尝试使用
删除文本文件中的多行关注

私有子 Read_TextFile()
将 objReader 调暗为 StreamReader
暗淡 strfull, strContents, strContentsold, strContentsnew As
字符串
objReader = New StreamReader("C:\answer.txt")
''清除文本框1
TextBox1.Clear()
strContentsold = """
strContentsnew = """
strContents = """
strfull =""
Do While Not objReader.EndOfStream
strContentsold = strContentsnew
strContentsnew = objReader.ReadLine

如果 strContentsnew = strContentsold 那么
strContents = """
其他
strContents = strContentsnew
结束如果

strfull += strContents
循环

TextBox1.Text = strfull

objReader.Close()
结束子

文本将存储在 TextBox1 中.

但是,它似乎不起作用!想问问大家有没有
想法.这里以tan原始文本文件为例

我想你想知道我是否可以告诉你有关威尔士的事.
我想你想知道我是否可以告诉你有关威尔士的事.
我能不能告诉你关于威尔士的事
威尔士是英国的一个行政区.
威尔士
行政区划
英国
来源:START KB
来源:
返回"开始"对话框窗口.
返回"开始"对话框窗口.
返回 START 对话窗口.

推荐答案

但是,它似乎不起作用!

你得到了什么输出?

8 月 11 日下午 3:22,BobRoyAce <b...@omegasoftwareinc.com 写道:
但是,它似乎不起作用!

你得到了什么输出?
与输入相同!

您好,

它对我来说确实很好用,但是代码有点过时了
(vb6) 风格.注意Net中的一切都是对象,同时告诉
不再是字符串了.

在追加字符串的情况下,stringbuilder更合适,因为
当您每次创建更长的新字符串时附加到字符串时.(是
还知道使用 + 作为字符串连接器在某些情况下可能不会
想要的结果,使用真正的连接字符 &为此,这说明了
更直接的是它是关于字符串的,然后在所有内容前面加上 str.

我稍微修改了你的代码.

\\\
私有子 Read_TextFile()
将阅读器调暗为 IO.StreamReader
将 ContentsOld 变暗,ContentsNew 作为字符串
将内容变暗为新 System.Text.StringBuilder
Reader = New IO.StreamReader("C:\test\answer.txt")
TextBox1.Clear()
ContentsOld = """
内容新 = """
Do While Not Reader.EndOfStream
ContentsOld = ContentsNew
ContentsNew = Reader.ReadLine
如果 ContentsNew <ContentsOld Then
ContentsOld = ContentsNew
Contents.Append(ContentsNew)
结束如果
循环
TextBox1.Text = Contents.ToString
Reader.Close()
结束子
///

科尔

<kr*******@yahoo.co.ukschreef in bericht
新闻:58**********************************@w39g2000 prb.googlegroups.com...
>我正在尝试使用
删除文本文件中的多行关注

私有子 Read_TextFile()
将 objReader 调暗为 StreamReader
暗淡 strfull, strContents, strContentsold, strContentsnew As
字符串
objReader = New StreamReader("C:\answer.txt")
''清除文本框1
TextBox1.Clear()
strContentsold = """
strContentsnew = """
strContents = """
strfull =""
Do While Not objReader.EndOfStream
strContentsold = strContentsnew
strContentsnew = objReader.ReadLine

如果 strContentsnew = strContentsold 那么
strContents = """
其他
strContents = strContentsnew
结束如果

strfull += strContents
循环

TextBox1.Text = strfull

objReader.Close()
结束子

文本将存储在 TextBox1 中.

但是,它似乎不起作用!想问问大家有没有
想法.这里以tan原始文本文件为例

我想你想知道我是否可以告诉你有关威尔士的事.
我想你想知道我是否可以告诉你有关威尔士的事.
我能不能告诉你关于威尔士的事
威尔士是英国的一个行政区.
威尔士
行政区划
英国
来源:START KB
来源:
返回"开始"对话框窗口.
返回"开始"对话框窗口.
返回到 START 对话窗口.

本文地址:https://www.itbaoku.cn/post/1050720.html