OptionExplicitPublicfilenameAsStringDimstrContentAsStringDimlngPosition()AsLongPrivateSubcmdClose_Click()="电子书"====""=""EndSubPrivateSubcmdNext_Click()<-=+==-=FalseEndSubPrivateSubcmdOpen_Click()Dimstr1AsStringDimlng1AsLong,="选择电子书目录文件"'打开目录文件,=""ThenExitSub'如果用户选择“取消”,则什么也不做filename==""DoWhileNotEOF(1)LineInput#1,(*2)Close1str1=Left(filename,InStr(filename,".")-1)&".txt"IfDir(str1)=""ThenMsgBox("找不到电子书文件:"&str1)::ExitSubOpenstr1ForInputAs1DoWhileNotEOF(1)LineInput#1,str1strContent=strContent&Chr(13)&Chr(10)&str1'读入电子书内容LoopClose1lng1=InStr(strContent,"*")i=0DoWhilelng1<>0i=i+1lngPosition(i-1)=lng1lng1=InStr(lng1+1,strContent,"*")=Left(filename,InStr(filename,".")-1)====TrueEndSubPrivateSubcmdPrevious_Click()>==
vb课程设计——电子书代码 来自淘豆网m.daumloan.com转载请标明出处.
