2,722
社区成员
发帖
与我相关
我的任务
分享
*-- vfp7.0以上
lcString='12,23,34,56,65,77'
lnArrayRowNum=Alines(aArray,lcString,',')
For I=1 To lnArrayRowNum
?aArray(I)
Endfor
*-- vfp6.0 - vfp9.0
lcString='12,23,34,56,65,77'
lnArrayRowNum=Alines(aArray,Strtran(lcString,',',Chr(13)))
For I=1 To lnArrayRowNum
?aArray(I)
Endfor
lcString = '12,23,34,56,65,77'
lnCount = Getwordcount(lcString, ',')
For i = 1 To lnCount
? Val(Getwordnum(lcString, i, ','))
Next