PrivateSubCommand1_Click()DimaAsString,iAsInteger,jAsInteger,hAsInteger,str1AsString,strtempAsString,pAsInteger,uAsDouble,xAsDouble,yAsDouble,zAsDouble,chAsDouble,kAsInteger,ehAsIntegerj=0i=0CommonDialog1.Filter=\"文本数据库|*.txt\"CommonDialog1.ShowOpenIfCommonDialog1.FileName\"\"ThenOpenCommonDialog1.FileNameForInputAs#1EndIfDoWhileNotEOF(1)LineInput#1,ai=i1LoopClose#1OpenCommonDialog1.FileNameForInputAs#1Dimc()AsStringReDimc(i)DoWhileNotEOF(1)LineInput#1,aj=j1c(j)=aLoopDimg()AsDoubleReDimg(1Toi,1To80)Dimm()AsStringk=1j=1h=1eh=0Whilek=ic(k)=Trim(c(k))Forp=1ToLen(c(k))Ifstrtemp\"\"OrMid(c(k),p,1)\"\"Thenstrtemp=Mid(c(k),p,1)str1=str10ThenForh=0ToUBound(m())g(k,h1)=Val(m(h))NexthEndIfk=k1WendEndSub中的g(k,h1)=Val(m(h))老是下标越界
|