编码_Ansi到Unicode_文本型 如何把中文里有数字的句子编码成如下格式

剡木为矢

“1手莲灯2039个心愿30柄萤扇40心凉501壶美酒609滴泪水”


编码后是
  文字被网页编码了只能上图片

也就是每个字后面加一个 ;
大概转换后是这样
1手;莲;灯;2039个;心;愿;30柄;萤;扇;40心;凉;501壶;美;酒;609滴;泪;水;

已注销336377

.版本 2

.子程序 文本编码, 文本型
.参数 原文本, 文本型
.局部变量 文本数组, 文本型, , "0"
.局部变量 计次, 整数型
.局部变量 编码文本, 文本型

文本_逐字分割 (原文本, 文本数组)
.计次循环首 (取数组成员数 (文本数组), 计次)
    原文本 ＝ 文本数组 [计次]
    .判断开始 (文本_是否为汉字 (原文本) ＝ 真)
        编码文本 ＝ 编码文本 ＋ 编码_Ansi到Unicode_文本型 (原文本) ＋ “;”
    .默认
        编码文本 ＝ 编码文本 ＋ 原文本
    .判断结束

.计次循环尾 ()
返回 (编码文本)

zl2017

不知道你的意思，如果按初始文本和结果文本来看，采用转码行不通。
可以先逐字分割得到数组，然后计次循环凭借，然后是判断每个成员是否中文，是中文的就在后面加;

.版本 2
.支持库 spec

.子程序 __启动窗口_创建完毕
.局部变量 str, 文本型
.局部变量 arr, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 ret, 文本型

str ＝ “1手莲灯2039个心愿30柄萤扇40心凉501壶美酒609滴泪水”
文本_逐字分割 (str, arr)
.计次循环首 (取数组成员数 (arr), i)
    ret ＝ ret ＋ arr [i] ＋ 选择 (文本_是否为汉字 (arr [i], ), “;”, “”)
.计次循环尾 ()
调试输出 (ret)

剡木为矢

zl2017 发表于 2019-3-6 11:09
不知道你的意思，如果按初始文本和结果文本来看，采用转码行不通。
可以先逐字分割得到数组，然后计次循环 ...

我的意思是，用计次循环就可以把；加上去但是不知道怎么去把数字加到编码后的结果里