若直接对多行文本排序,下面的VFP程序就可。
FUNCTION Sort(HanZiSource as String) as String helpstring "对字符串排序"
*对多行文本进行排序
*HanZiSource:需要排序的字符串,由回车换行隔开的行,按行排序(最多65000行)
*返回:排序好的字符串,以回车换行隔开
LOCAL X(1),I,P
SET COLLATE TO "STROKE" &&关键一句:设置以笔划顺序
ALINES(X,HanZiSource) &&多行字符串转换为数组
ASORT(X,1)&&排序
P=X(1) &&重新组合成字符串
FOR I=2 TO ALEN(X)
P=P+CHR(13)+CHR(10)+X(I) &&多行则用回车换行隔开
NEXT
RETURN P