none
【咨询】如何检测顺序文件内容? RRS feed

  • 问题

  • 在VB6.0下如何检测"D:\"一目录下的"Infor.dvl"文件内容是否为"Hello"?
    若为“Hello”,则只有Command1可用,否则只有Command2可用。
    胡人
    2010年1月29日 10:41

答案

  • Dim   strOut   As   String,   arrOut   As   Variant  
              Open   "D:\一目录下\Infor.dvl"   For   Input   As   #1  
              Do   While   Not   EOF(1)  
                      Line   Input   #1,   temp  
                      strOut   =   strOut   &   temp   &   vbCrLf  
              Loop  
              Close   #1  

    msgbox strOut  


    http://feiyun0112.cnblogs.com/
    2010年4月6日 5:42
    版主

全部回复