如何在一段文本中插入文本，给点思路

天行

        我试验过，有时候插入之后出现乱码。如这个问题不知道怎么解决，求版主给思路

小磊

取那个位置的两个字节出来，判断是否汉字，如果是汉字，则往后移动一位

====以下是判断汉字的代码======

.版本 2

.子程序 是否汉字, 逻辑型, 公开, 方圆软件工作室－林炳崇（近在眼前）出品
.参数 字符, 文本型, , 待判断2个字节长度的字符，是汉字返回真
.局部变量 代码, 字节集

代码 ＝ 到字节集 (字符)
.如果真 (取字节集长度 (代码) ＝ 2)
    .判断开始 (代码 [1] ≥ 129 且 代码 [2] ≥ 64 且 代码 [1] ≤ 160 且 代码 [2] ≤ 254)  ' 判断GBK/3扩充汉字
        返回 (真)
    .判断 (代码 [1] ≥ 170 且 代码 [2] ≥ 64 且 代码 [1] ≤ 254 且 代码 [2] ≤ 160)  ' 判断GBK/4扩充汉字
        返回 (真)
    .判断 (代码 [1] ≥ 176 且 代码 [2] ≥ 161 且 代码 [1] ≤ 247 且 代码 [2] ≤ 254)  ' 判断GBK/2: GB2312 汉字
        返回 (真)
    .默认

    .判断结束

.如果真结束
返回 (假)

天行

小磊 发表于 2012-6-24 01:27
取那个位置的两个字节出来，判断是否汉字，如果是汉字，则往后移动一位

====以下是判断汉字的代码====== ...

谢谢，明白了