如何逐行读文本文件的内容？

请教一下：  
  如何逐行读文本文件的内容？能给段例子将不胜感激    
  问题点数：20、回复次数：6Top

1 楼zhoumins（zm）回复于 2005-08-29 17:04:22 得分 3

System.IO.StreamReader   stream=System.IO.File.OpenText(@"d:\csdn.txt");  
  string   str;  
  while((str=stream.ReadLine())!=null)  
  {  
  Response.Write(str+"<br>");  
  }  
  Top

2 楼myhgyp（也许是这样的，信不信由你）回复于 2005-08-29 17:18:58 得分 3

Option   Explicit  
  '引用Microsoft   Scripting   Runtime  
  Private   Sub   Form_Load()  
  Dim   oFSO   As   FileSystemObject  
  Dim   oTextStream   As   TextStream  
  Dim   oFirstLine   As   String  
  Dim   i,   LineNum   As   Integer  
  Set   oFSO   =   CreateObject("scripting.filesystemobject")  
  Set   oTextStream   =   oFSO.OpenTextFile("c:\aa.txt",   ForAppending,   False,   TristateFalse)  
  oTextStream.Write   (vbCrLf   &   "这是一个新增的测试行")  
   
  '以下为删除某一行，如第二行  
  oTextStream.Close  
  Set   oTextStream   =   oFSO.OpenTextFile("c:\aa.txt",   ForReading,   False,   TristateFalse)  
  Dim   str(1000)   As   String                 '这里根据实际情况可增大或缩小数组的维数  
  i   =   0  
  Do   While   oTextStream.AtEndOfLine   <>   True  
          str(i)   =   oTextStream.ReadLine       '读取一行  
          i   =   i   +   1  
  Loop  
  LineNum   =   i  
  oTextStream.Close  
  Set   oTextStream   =   oFSO.OpenTextFile("c:\aa.txt",   ForWriting,   False,   TristateFalse)  
  oTextStream.Write   str(0)  
  For   i   =   1   To   LineNum   -   1  
        If   i   <>   1   Then  
              oTextStream.Write   vbCrLf   &   str(i)  
        End   If  
  Next   i  
  oTextStream.Close  
  Set   oFSO   =   Nothing  
  End   SubTop

3 楼VBToy（无证编程）回复于 2005-08-29 17:21:36 得分 10

fn="C:\test.txt"  
  dim   lineStr   as   string,   strFile   as   string    
  Open   Fn   For   Input   As   #1  
          Do   While   Not   EOF(1)  
                  Line   Input   #1,   lineStr  
                  strFile   =   strFile   &   lineStr  
                  DoEvents  
          Loop  
          Close   #1Top

4 楼conrad_wan（pineapple）回复于 2005-08-29 17:44:26 得分 0

studying。。。Top

5 楼yinweihong（）回复于 2005-08-29 17:51:39 得分 4

http://community.csdn.net/Expert/topic/4235/4235585.xml?temp=.6353418Top

6 楼aalan（山鹰）回复于 2005-08-29 18:15:32 得分 0

谢谢，用VBToy的方法解决Top

相关问题

• otextstream
• ofso
• closeset
• tristatefalse
• linestr
• opentextfile
• strfile
• txt
• aa
• str

• 帖主：aalan
• zhoumins
• myhgyp
• VBToy
• yinweihong

• Visual Basic类图书
• Visual Basic类源码下载