您所在位置：主题：为什么有效长度会相差那么多？
a1999zqw
[专家分：0] 发布于 2009-06-16 10:46:00
为什么有效长度会相差那么多？到底txt可以有多长？
use b1
txt=''
for tt=1 to 4
tc=ltri(str(tt))
for jj=1 to 252
jc=ltri(str(jj))
txt=txt+subs(jdb&tc,&jc,1)+'='+subs(jdb&tc,&jc,1)
if &txt &&最后显示的有效长度是5204
? jj
? "长度",len(txt)
*? txt
*wait
endi
txt=txt+'.or.'
endf
endf
retu
***************************************************************************************************
use b1
txt=''
for tt=1 to 4
tc=ltri(str(tt))
for jj=1 to 252
jc=ltri(str(jj))
txt=txt+subs(jdb&tc,&jc,1)+'='+subs(jdb&tc,&jc,1)
if &txt &&最后显示的有效长度是5947
? jj
? "长度",len(txt)
*? txt
*wait
endi
txt=txt+'.and.'
endf
endf
retu
***************************************************************************************************
use b1
txt=''
for tt=1 to 4
tc=ltri(str(tt))
for jj=1 to 252
jc=ltri(str(jj))
txt=txt+'subs(jdb&tc,&jc,1)'+'='+'subs(jdb&tc,&jc,1)'
if &txt &&最后显示的有效长度是8179
? jj
? "长度",len(txt)
*? txt
*wait
endi
txt=txt+'.or.'
endf
endf
retu
***************************************************************************************************
use b1
txt=''
for tt=1 to 4
tc=ltri(str(tt))
for jj=1 to 252
jc=ltri(str(jj))
txt=txt+subs(jdb&tc,&jc,1)+'='+subs(jdb&tc,&jc,1)+'.and.subs(jdb&tc,&jc,2)=subs(jdb&tc,&jc,2)'
if &txt &&最后显示的有效长度是8150
? jj
? "长度",len(txt)
*? txt
*wait
endi
txt=txt+'.or.'
endf
endf
retu
为什么有效长度会相差那么多？到底txt可以有多长？
use b1
txt=''
for tt=1 to 4
tc=ltri(str(tt))
for jj=1 to 252
jc=ltri(str(jj))
txt=txt+subs(jdb&tc,&jc,1)+'='+subs(jdb&tc,&jc,1)
if &txt &&最后显示的有效长度是5204
? jj
? "长度",len(txt)
*? txt
*wait
endi
txt=txt+'.or.'
endf
endf
retu
***************************************************************************************************
use b1
txt=''
for tt=1 to 4
tc=ltri(str(tt))
for jj=1 to 252
jc=ltri(str(jj))
txt=txt+subs(jdb&tc,&jc,1)+'='+subs(jdb&tc,&jc,1)
if &txt &&最后显示的有效长度是5947
? jj
? "长度",len(txt)
*? txt
*wait
endi
txt=txt+'.and.'
endf
endf
retu
***************************************************************************************************
use b1
txt=''
for tt=1 to 4
tc=ltri(str(tt))
for jj=1 to 252
jc=ltri(str(jj))
txt=txt+'subs(jdb&tc,&jc,1)'+'='+'subs(jdb&tc,&jc,1)'
if &txt &&最后显示的有效长度是8179
? jj
? "长度",len(txt)
*? txt
*wait
endi
txt=txt+'.or.'
endf
endf
retu
***************************************************************************************************
use b1
txt=''
for tt=1 to 4
tc=ltri(str(tt))
for jj=1 to 252
jc=ltri(str(jj))
txt=txt+subs(jdb&tc,&jc,1)+'='+subs(jdb&tc,&jc,1)+'.and.subs(jdb&tc,&jc,2)=subs(jdb&tc,&jc,2)'
if &txt &&最后显示的有效长度是8150
? jj
? "长度",len(txt)
*? txt
*wait
endi
txt=txt+'.or.'
endf
endf
retu
为什么有效长度会相差那么多？到底txt可以有多长？
