对<任意的字符串>进行提取，数字，英文进行重排汇总。如：
variable s="sg17jk我们98f"
提取数字后重排汇总4，字符串为："1798"
提取字母后重排汇总5，字符串为："sgjkf"
提取汉字后重排汇总2，字符串为："我们"

先识别字母，数字，汉字，进行分组统计，分别存于不同数组中，再从各自数组中提取数据进行相关操作。

识别字符类型识别汉字符(标点)未解决！关键是取值范围
variable s=input("?s:\n","s")
if(and(conv_str_to_ints(s)>=97,conv_str_to_ints(s)<=122))
print("小写字母")
elseif(and(conv_str_to_ints(s)>=65,conv_str_to_ints(s)<=90))
print("大写字母")
elseif(and(conv_str_to_ints(s)>=48,conv_str_to_ints(s)<=57))
print("数字")
elseif(conv_str_to_ints(s)==32)
print("空格")
else
print("其它字符")
endif

if(conv_str_to_ints(s)>=19968)
print("汉字")
endif

function chrtyp(s)
variable k=conv_str_to_ints(s)
if(and(k>=97,k<=122))
//print("le"+" ")
return("le")
elseif(and(k>=65,k<=90))
//print("ue"+" ")
return("ue")
elseif(and(k>=48,k<=57))
//print("num"+" ")
return("num")
elseif(k<=32)
//print("emp"+" ")
return("emp")
elseif(k>=19968)
//print("cchr"+" ")
return("cchr")
elseif(or(and(k>=33,k<=47),and(k>=58,k<=64),and(k>=91,k<=96),and(k>=123,k<=126)))
//print("epu"+" ")
return("epu")
else
//print("otherchr"+" ")
return("otherchr")
endif
endf

help
@language:simplified_chinese
//不知怎写typ，调用如下函数，查类型。(双引号)里面为<单字符>
//chrtyp("b"),chrtyp("0"),chrtyp("李")
//chrtyp(";"),chrtyp("；")
//chrtyp("H"),chrtyp(" ")
@end
endh
function str_js()
//字符串记数操作
if(ls("tq")==1)
f_qk("tq")
else
f_xj("tq")
endif
//注意文本tq已存在时，清空文本；
//不存在时f_xj("tq")
variable s=input("输入无引号字符串：\n","s")
variable typ=input("输入无引号字符串类型：\n","s")
variable str=set_array_elem("",[strlen(s)],"")
for variable k=1 to strlen(s)
str[k-1]=strsub(s,k-1,k)
if(chrtyp(str[k-1])==typ)
f_storage_f("tq",str[k-1])
endif
next
return typ+"总数为："+f_zstj_z("tq")
endf
help
@language:simplified_chinese
//不知怎写typ，调用如下函数，查类型。(双引号)里面为<单字符>
//chrtyp("b"),chrtyp("0"),chrtyp("李")
//chrtyp(";"),chrtyp("；")
//chrtyp("H"),chrtyp(" ")
@end
endh
function str_xs()
//字符串显示操作
variable s=input("输入无引号字符串：\n","s")
variable typ=input("输入无引号字符串类型：\n","s")
variable str=set_array_elem("",[strlen(s)],"")
for variable k=1 to strlen(s)
str[k-1]=strsub(s,k-1,k)
if(chrtyp(str[k-1])==typ)
print(str[k-1])
endif
next
endf

help
@language:simplified_chinese
//不知怎写typ，调用如下函数，查类型。(双引号)里面为<单字符>
//chrtyp("b"),chrtyp("0"),chrtyp("李")
//chrtyp(";"),chrtyp("；")
//chrtyp("H"),chrtyp(" ")
@end
endh
function str_jsu(s,typ)
//字符串记数操作
if(ls("tq")==1)
f_qk("tq")
else
f_xj("tq")
endif
//注意文本tq已存在时，清空文本；
//不存在时f_xj("tq")
variable str=set_array_elem("",[strlen(s)],"")
for variable k=1 to strlen(s)
str[k-1]=strsub(s,k-1,k)
if(chrtyp(str[k-1])==typ)
f_storage_f("tq",str[k-1])
endif
next
return f_zstj_z("tq")
endf
help
@language:simplified_chinese
//不知怎写typ，调用如下函数，查类型。(双引号)里面为<单字符>
//chrtyp("b"),chrtyp("0"),chrtyp("李")
//chrtyp(";"),chrtyp("；")
//chrtyp("H"),chrtyp(" ")
@end
endh
function str_xs(s,typ)
//字符串显示操作
variable str=set_array_elem("",[strlen(s)],"")
for variable k=1 to strlen(s)
str[k-1]=strsub(s,k-1,k)
if(chrtyp(str[k-1])==typ)
print(str[k-1])
endif
next
endf

可显示计算1~7种
str_jisu(s,typ1,typ2…typ7)
str_xs(s,typ1,typ2…,typ7)
两种或以上字符类型
改if(or(chrtyp(str[k-1])=typ1,chrtyp(str[k-1])=typ2,chrtyp(str[k-1])=typ3,
chrtyp(str[k-1])=typ4,
chrtyp(str[k-1])=typ5,
chrtyp(str[k-1])=typ6,
chrtyp(str[k-1])=typ7))

显示两类如(汉字,cchr+数字,num)：
str_xs("我gdg,%dfg1576； ghgg v,xgcch","cchr","num")⇒"我1576"

过滤中文，保留数字及英文字符。可利用strtyp()函数和相关函数将sx-1.txt转换成sx-2.txt，可对sx-2.txt直接利用evaluate等函数计算