|*.cnt"'monDialog1.ShowOpen'monDialog1.FileName=""ThenExitSub'若按取消键则退出List1.Clear'列表框清空Text1.Text=""Text2.Text=""'将两文本框设为空字符Form1.Caption=monDialog1.FileName,1,monDialog1.FileName)-4)'使用Mid()函数改变窗体名称strName=monDialog1.FileName,1,monDialog1.FileName)-3)+"txt"'使用Mid()monDialog1.FileNameForInputAs#1'打开目录文件DoWhileNotEOF(1)'读写条目LineInput#1,strLList1.AddItemstrLLoopClose#1'关闭文件1List1.ListIndex=0'开始时选中条目一激发Click事件EndSubPrivateSubList1_Click()Dimbln1AsBoolean'由于判断两种*无注释*语句Dimstr1AsString'用于读文件Dimstr2AsString'用于读"*【注释】"语句时将【注释】读出而不带*DimiAsInteger'用于记录*号数Text1.Text=""'将两文本框设为空字符Text2.Text=""OpenstrNameForInputAs#2'读文本文件DoWhileNotEOF(2)'读写内容及注释LineInput#2,str1'下面If语句用于记录*号数Ifstr1="*"Then'*单独一行i=i+1ElseIfstr1="*【注释】"Then'*【注释】样式i=i+1ElseIfstr1="*(无注释)*"Orstr1="*(无注释)*"Then'*(无注释)*样式bln1=Truei=i+2EndIf
全文预览
