统计首字母的个数

默认分类 | 2021-04-14 10:00:48 | 阅读 116 次 | 评论(0)

TEXT TO lcStr NOSHOW TEXTMERGE
Cryopreservation is the most efficient method for long-term preservation of mammalian sperm. However, freeze-thawing procedures may strongly impair the sperm function and survival and thus decrease the reproductive performance.
ENDTEXT
ALINES(laStr, lcStr, 4 + 1, SPACE(1), ",", ".")
LOCAL la[26]
la = 0
FOR lnJ = 1 TO ALINES(laStr, lcStr, 4 + 1, SPACE(1), ",", ".")
	ln = ASC(PROPER(LEFT(laStr[lnJ], 1))) - 64
	la[ln] = la[ln] + 1
ENDFOR 
FOR lnJ = 1 TO 26
	IF la[lnJ] > 0
		? SPACE(5) + CHR(lnj + 64), la[lnj]
	ENDIF
ENDFOR
文章评论,共0条
游客请输入验证码
文章分类
最新评论