TXT文档的读取问题

例如象header,h1,h2,h3,h4,h5,h6  
  data1,1,2,3,4,5,6  
  data2,11,22,33,44,55,66  
  的文档   我只在第一个Textbox读取header,h1,h2,h3,h4,h5,h6  
  那怎么办啊  
  问题点数：100、回复次数：5Top

1 楼Athickhead（穿着三角裤到处跑不叫裸奔）回复于 2005-06-01 11:21:48 得分 30

Open   "TESTFILE"   For   Input   As   #1  
  if   not   eof(1)   then   Line   Input   #1,   textbox    
  Close   #1  
  Top

2 楼xukids（小秋秋的心死了）回复于 2005-06-01 11:42:38 得分 0

还是不行啊   能不能写详细点啊     拜托了Top

3 楼DooDu（杜霖:I want,I can(开关拉)）回复于 2005-06-01 11:49:10 得分 0

Dim   textline   As   String  
  Open   "c:\testfile.txt"   For   Input   As   #1  
   
  Do   While   Not   EOF(1)       '   循环至文件尾。  
        Line   Input   #1,   textline     '   读入一行数据并将其赋予某变量。  
        If   InStr(1,   textline,   "header")   <>   0   Then   Exit   Do   '   查找是否包含header字符，若是，退出循环。  
  Loop  
   
  Close   #1  
    Debug.Print   textline  
  Top

4 楼DooDu（杜霖:I want,I can(开关拉)）回复于 2005-06-01 11:50:45 得分 70

 
  text1.text=textline'在第一个Textbox显示header,h1,h2,h3,h4,h5,h6Top

5 楼Athickhead（穿着三角裤到处跑不叫裸奔）回复于 2005-06-01 11:52:45 得分 0

TESTFILE  
  是你的TXT文件的路径，  
  textbox  
  是textbox.textTop

相关问题

• textline
• testfile
• textbox
• txt
• header
• input

• 帖主：xukids
• Athickhead
• DooDu

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