文本_取字符,支持中英文

jr21066

考虑使用这功能的情况下.文本不会太多.所以使用的是字节集处理.适合小型文本处理
欢迎测试下.看有没有问题

  

子程序名	返回值类型	公开	备 注
文本_取左边字符	文本型
参数名	类 型	参考	可空	数组	备 注
参_文本	文本型
参_字符数	整数型
参_过滤回车换行	逻辑型
参_过滤空格	逻辑型

变量名	类 型	静态	数组	备 注
局_内容	字节集
局_偏移	整数型
局_文件句柄	整数型
局_已取字符数	整数型
局_返回文本	文本型

局_内容 ＝ 到字节集 (参_文本)
局_偏移 ＝ 1
局_文件句柄 ＝ 打开内存文件 ()
判断循环首 (取字节集长度 (局_内容) ≥ 局_偏移)
如果真 (局_已取字符数 ＝ 参_字符数)
跳出循环 ()

如果真 (是否为空 (参_过滤回车换行) ＝ 假)
如果真 (局_内容 [局_偏移] ＝ 13 或 局_内容 [局_偏移] ＝ 10)
局_偏移 ＝ 局_偏移 ＋ 1
到循环尾 ()


如果真 (是否为空 (参_过滤空格) ＝ 假)
如果真 (局_内容 [局_偏移] ＝ 32)
局_偏移 ＝ 局_偏移 ＋ 1
到循环尾 ()


如果 (局_内容 [局_偏移] ＞ 128)
如果真 (取字节集长度 (局_内容) ＞ 局_偏移)
写出数据 (局_文件句柄, 局_内容 [局_偏移], 局_内容 [局_偏移 ＋ 1])
局_偏移 ＝ 局_偏移 ＋ 2
写出数据 (局_文件句柄, 局_内容 [局_偏移])
局_偏移 ＝ 局_偏移 ＋ 1
局_已取字符数 ＝ 局_已取字符数 ＋ 1
判断循环尾 ()
移动读写位置 (局_文件句柄, #文件首, 0)
局_返回文本 ＝ 读入文本 (局_文件句柄, )
关闭文件 (局_文件句柄)
返回 (局_返回文本)

子程序名	返回值类型	公开	备 注
文本_取右边字符	文本型
参数名	类 型	参考	可空	数组	备 注
参_文本	文本型
参_字符数	整数型
参_过滤回车换行	逻辑型
参_过滤空格	逻辑型

变量名	类 型	静态	数组	备 注
局_内容	字节集
局_偏移	整数型
局_文件句柄	整数型
局_已取字符数	整数型
局_返回文本	文本型

局_内容 ＝ 到字节集 (参_文本)
局_偏移 ＝ 取字节集长度 (局_内容)
局_文件句柄 ＝ 打开内存文件 ()
判断循环首 (局_偏移 ＞ 0)
如果真 (局_已取字符数 ＝ 参_字符数)
跳出循环 ()

如果真 (是否为空 (参_过滤回车换行) ＝ 假)
如果真 (局_内容 [局_偏移] ＝ 13 或 局_内容 [局_偏移] ＝ 10)
局_偏移 ＝ 局_偏移 － 1
到循环尾 ()


如果真 (是否为空 (参_过滤空格) ＝ 假)
如果真 (局_内容 [局_偏移] ＝ 32)
局_偏移 ＝ 局_偏移 － 1
到循环尾 ()


如果 (局_内容 [局_偏移] ＞ 128)
如果真 (取字节集长度 (局_内容) ＞ 局_偏移)
写出数据 (局_文件句柄, 局_内容 [局_偏移 － 1], 局_内容 [局_偏移])
局_偏移 ＝ 局_偏移 － 2
写出数据 (局_文件句柄, 局_内容 [局_偏移])
局_偏移 ＝ 局_偏移 － 1
局_已取字符数 ＝ 局_已取字符数 ＋ 1
判断循环尾 ()
移动读写位置 (局_文件句柄, #文件首, 0)
局_返回文本 ＝ 读入文本 (局_文件句柄, )
关闭文件 (局_文件句柄)
返回 (文本_取倒序字符 (局_返回文本))

子程序名	返回值类型	公开	备 注
文本_取倒序字符	文本型
参数名	类 型	参考	可空	数组	备 注
参_文本	文本型

变量名	类 型	静态	数组	备 注
局_内容	字节集
局_偏移	整数型
局_文件句柄	整数型
局_返回文本	文本型
局_栈数组	字节集		0
局_栈成员	整数型
计数器	整数型

局_内容 ＝ 到字节集 (参_文本)
局_偏移 ＝ 1
局_文件句柄 ＝ 打开内存文件 ()
判断循环首 (取字节集长度 (局_内容) ≥ 局_偏移)
如果 (局_内容 [局_偏移] ＞ 128)
如果真 (取字节集长度 (局_内容) ＞ 局_偏移)
加入成员 (局_栈数组, 取字节集中间 (局_内容, 局_偏移, 2))
局_偏移 ＝ 局_偏移 ＋ 2
加入成员 (局_栈数组, 取字节集中间 (局_内容, 局_偏移, 1))
局_偏移 ＝ 局_偏移 ＋ 1

判断循环尾 ()
局_栈成员 ＝ 取数组成员数 (局_栈数组)
计次循环首 (局_栈成员, 计数器)
写出字节集 (局_文件句柄, 局_栈数组 [局_栈成员 ＋ 1 － 计数器])
计次循环尾 ()
移动读写位置 (局_文件句柄, #文件首, 0)
局_返回文本 ＝ 读入文本 (局_文件句柄, )
关闭文件 (局_文件句柄)
返回 (局_返回文本)

子程序名	返回值类型	公开	备 注
文本_取中间字符	文本型
参数名	类 型	参考	可空	数组	备 注
参_文本	文本型
参_起始位置	整数型
参_字符数	整数型
参_过滤回车换行	逻辑型
参_过滤空格	逻辑型

变量名	类 型	静态	数组	备 注
局_内容	字节集
局_偏移	整数型
局_已取字符数	整数型
局_文件句柄	整数型
局_返回文本	文本型

局_内容 ＝ 到字节集 (参_文本)
局_偏移 ＝ 1
局_已取字符数 ＝ 1
判断循环首 (取字节集长度 (局_内容) ≥ 局_偏移)
如果真 (局_已取字符数 ＝ 参_起始位置)
跳出循环 ()

如果真 (是否为空 (参_过滤回车换行) ＝ 假)
如果真 (局_内容 [局_偏移] ＝ 13 或 局_内容 [局_偏移] ＝ 10)
局_偏移 ＝ 局_偏移 ＋ 1
到循环尾 ()


如果真 (是否为空 (参_过滤空格) ＝ 假)
如果真 (局_内容 [局_偏移] ＝ 32)
局_偏移 ＝ 局_偏移 ＋ 1
到循环尾 ()


如果 (局_内容 [局_偏移] ＞ 128)
局_偏移 ＝ 局_偏移 ＋ 2
局_偏移 ＝ 局_偏移 ＋ 1
局_已取字符数 ＝ 局_已取字符数 ＋ 1
判断循环尾 ()
局_内容 ＝ 取字节集右边 (局_内容, 取字节集长度 (局_内容) － 局_偏移 ＋ 1)
局_偏移 ＝ 1
局_已取字符数 ＝ 0
局_文件句柄 ＝ 打开内存文件 ()
判断循环首 (取字节集长度 (局_内容) ≥ 局_偏移)
如果真 (局_已取字符数 ＝ 参_字符数)
跳出循环 ()

如果真 (是否为空 (参_过滤回车换行) ＝ 假)
如果真 (局_内容 [局_偏移] ＝ 13 或 局_内容 [局_偏移] ＝ 10)
局_偏移 ＝ 局_偏移 ＋ 1
到循环尾 ()


如果真 (是否为空 (参_过滤空格) ＝ 假)
如果真 (局_内容 [局_偏移] ＝ 32)
局_偏移 ＝ 局_偏移 ＋ 1
到循环尾 ()


如果 (局_内容 [局_偏移] ＞ 128)
如果真 (取字节集长度 (局_内容) ＞ 局_偏移)
写出数据 (局_文件句柄, 局_内容 [局_偏移], 局_内容 [局_偏移 ＋ 1])
局_偏移 ＝ 局_偏移 ＋ 2
写出数据 (局_文件句柄, 局_内容 [局_偏移])
局_偏移 ＝ 局_偏移 ＋ 1
局_已取字符数 ＝ 局_已取字符数 ＋ 1
判断循环尾 ()
移动读写位置 (局_文件句柄, #文件首, 0)
局_返回文本 ＝ 读入文本 (局_文件句柄, )
关闭文件 (局_文件句柄)
返回 (局_返回文本)

.版本 2<br /> <br /> .子程序 文本_取左边字符, 文本型, 公开<br /> .参数 参_文本, 文本型<br /> .参数 参_字符数, 整数型<br /> .参数 参_过滤回车换行, 逻辑型, 可空<br /> .参数 参_过滤空格, 逻辑型, 可空<br /> .局部变量 局_内容, 字节集<br /> .局部变量 局_偏移, 整数型<br /> .局部变量 局_文件句柄, 整数型<br /> .局部变量 局_已取字符数, 整数型<br /> .局部变量 局_返回文本, 文本型<br /> <br /> 局_内容 ＝ 到字节集 (参_文本)<br /> 局_偏移 ＝ 1<br /> 局_文件句柄 ＝ 打开内存文件 ()<br /> <br /> .判断循环首 (取字节集长度 (局_内容) ≥ 局_偏移)<br />     .如果真 (局_已取字符数 ＝ 参_字符数)<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     .如果真 (是否为空 (参_过滤回车换行) ＝ 假)<br />         .如果真 (局_内容 [局_偏移] ＝ 13 或 局_内容 [局_偏移] ＝ 10)<br />             局_偏移 ＝ 局_偏移 ＋ 1<br />             到循环尾 ()<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br />     .如果真 (是否为空 (参_过滤空格) ＝ 假)<br />         .如果真 (局_内容 [局_偏移] ＝ 32)<br />             局_偏移 ＝ 局_偏移 ＋ 1<br />             到循环尾 ()<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br />     .如果 (局_内容 [局_偏移] ＞ 128)<br />         .如果真 (取字节集长度 (局_内容) ＞ 局_偏移)<br />             写出数据 (局_文件句柄, 局_内容 [局_偏移], 局_内容 [局_偏移 ＋ 1])<br />         .如果真结束<br />         局_偏移 ＝ 局_偏移 ＋ 2<br />     .否则<br />         写出数据 (局_文件句柄, 局_内容 [局_偏移])<br />         局_偏移 ＝ 局_偏移 ＋ 1<br />     .如果结束<br />     局_已取字符数 ＝ 局_已取字符数 ＋ 1<br /> .判断循环尾 ()<br /> 移动读写位置 (局_文件句柄, #文件首, 0)<br /> 局_返回文本 ＝ 读入文本 (局_文件句柄, )<br /> 关闭文件 (局_文件句柄)<br /> 返回 (局_返回文本)<br /> <br /> .子程序 文本_取右边字符, 文本型, 公开<br /> .参数 参_文本, 文本型<br /> .参数 参_字符数, 整数型<br /> .参数 参_过滤回车换行, 逻辑型, 可空<br /> .参数 参_过滤空格, 逻辑型, 可空<br /> .局部变量 局_内容, 字节集<br /> .局部变量 局_偏移, 整数型<br /> .局部变量 局_文件句柄, 整数型<br /> .局部变量 局_已取字符数, 整数型<br /> .局部变量 局_返回文本, 文本型<br /> <br /> 局_内容 ＝ 到字节集 (参_文本)<br /> 局_偏移 ＝ 取字节集长度 (局_内容)<br /> 局_文件句柄 ＝ 打开内存文件 ()<br /> <br /> .判断循环首 (局_偏移 ＞ 0)<br />     .如果真 (局_已取字符数 ＝ 参_字符数)<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     .如果真 (是否为空 (参_过滤回车换行) ＝ 假)<br />         .如果真 (局_内容 [局_偏移] ＝ 13 或 局_内容 [局_偏移] ＝ 10)<br />             局_偏移 ＝ 局_偏移 － 1<br />             到循环尾 ()<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br />     .如果真 (是否为空 (参_过滤空格) ＝ 假)<br />         .如果真 (局_内容 [局_偏移] ＝ 32)<br />             局_偏移 ＝ 局_偏移 － 1<br />             到循环尾 ()<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br />     .如果 (局_内容 [局_偏移] ＞ 128)<br />         .如果真 (取字节集长度 (局_内容) ＞ 局_偏移)<br />             写出数据 (局_文件句柄, 局_内容 [局_偏移 － 1], 局_内容 [局_偏移])<br />         .如果真结束<br />         局_偏移 ＝ 局_偏移 － 2<br />     .否则<br />         写出数据 (局_文件句柄, 局_内容 [局_偏移])<br />         局_偏移 ＝ 局_偏移 － 1<br />     .如果结束<br />     局_已取字符数 ＝ 局_已取字符数 ＋ 1<br /> .判断循环尾 ()<br /> 移动读写位置 (局_文件句柄, #文件首, 0)<br /> 局_返回文本 ＝ 读入文本 (局_文件句柄, )<br /> 关闭文件 (局_文件句柄)<br /> 返回 (文本_取倒序字符 (局_返回文本))<br /> <br /> .子程序 文本_取倒序字符, 文本型, 公开<br /> .参数 参_文本, 文本型<br /> .局部变量 局_内容, 字节集<br /> .局部变量 局_偏移, 整数型<br /> .局部变量 局_文件句柄, 整数型<br /> .局部变量 局_返回文本, 文本型<br /> .局部变量 局_栈数组, 字节集, , "0"<br /> .局部变量 局_栈成员, 整数型<br /> .局部变量 计数器, 整数型<br /> <br /> 局_内容 ＝ 到字节集 (参_文本)<br /> 局_偏移 ＝ 1<br /> 局_文件句柄 ＝ 打开内存文件 ()<br /> <br /> .判断循环首 (取字节集长度 (局_内容) ≥ 局_偏移)<br />     .如果 (局_内容 [局_偏移] ＞ 128)<br />         .如果真 (取字节集长度 (局_内容) ＞ 局_偏移)<br />             加入成员 (局_栈数组, 取字节集中间 (局_内容, 局_偏移, 2))<br />         .如果真结束<br />         局_偏移 ＝ 局_偏移 ＋ 2<br />     .否则<br />         加入成员 (局_栈数组, 取字节集中间 (局_内容, 局_偏移, 1))<br />         局_偏移 ＝ 局_偏移 ＋ 1<br />     .如果结束<br /> <br /> .判断循环尾 ()<br /> 局_栈成员 ＝ 取数组成员数 (局_栈数组)<br /> .计次循环首 (局_栈成员, 计数器)<br />     写出字节集 (局_文件句柄, 局_栈数组 [局_栈成员 ＋ 1 － 计数器])<br /> .计次循环尾 ()<br /> 移动读写位置 (局_文件句柄, #文件首, 0)<br /> 局_返回文本 ＝ 读入文本 (局_文件句柄, )<br /> 关闭文件 (局_文件句柄)<br /> 返回 (局_返回文本)<br /> <br /> .子程序 文本_取中间字符, 文本型, 公开<br /> .参数 参_文本, 文本型<br /> .参数 参_起始位置, 整数型<br /> .参数 参_字符数, 整数型<br /> .参数 参_过滤回车换行, 逻辑型, 可空<br /> .参数 参_过滤空格, 逻辑型, 可空<br /> .局部变量 局_内容, 字节集<br /> .局部变量 局_偏移, 整数型<br /> .局部变量 局_已取字符数, 整数型<br /> .局部变量 局_文件句柄, 整数型<br /> .局部变量 局_返回文本, 文本型<br /> <br /> 局_内容 ＝ 到字节集 (参_文本)<br /> 局_偏移 ＝ 1<br /> 局_已取字符数 ＝ 1<br /> .判断循环首 (取字节集长度 (局_内容) ≥ 局_偏移)<br />     .如果真 (局_已取字符数 ＝ 参_起始位置)<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     .如果真 (是否为空 (参_过滤回车换行) ＝ 假)<br />         .如果真 (局_内容 [局_偏移] ＝ 13 或 局_内容 [局_偏移] ＝ 10)<br />             局_偏移 ＝ 局_偏移 ＋ 1<br />             到循环尾 ()<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br />     .如果真 (是否为空 (参_过滤空格) ＝ 假)<br />         .如果真 (局_内容 [局_偏移] ＝ 32)<br />             局_偏移 ＝ 局_偏移 ＋ 1<br />             到循环尾 ()<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br />     .如果 (局_内容 [局_偏移] ＞ 128)<br />         局_偏移 ＝ 局_偏移 ＋ 2<br />     .否则<br />         局_偏移 ＝ 局_偏移 ＋ 1<br />     .如果结束<br />     局_已取字符数 ＝ 局_已取字符数 ＋ 1<br /> .判断循环尾 ()<br /> <br /> 局_内容 ＝ 取字节集右边 (局_内容, 取字节集长度 (局_内容) － 局_偏移 ＋ 1)<br /> 局_偏移 ＝ 1<br /> 局_已取字符数 ＝ 0<br /> 局_文件句柄 ＝ 打开内存文件 ()<br /> <br /> .判断循环首 (取字节集长度 (局_内容) ≥ 局_偏移)<br />     .如果真 (局_已取字符数 ＝ 参_字符数)<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     .如果真 (是否为空 (参_过滤回车换行) ＝ 假)<br />         .如果真 (局_内容 [局_偏移] ＝ 13 或 局_内容 [局_偏移] ＝ 10)<br />             局_偏移 ＝ 局_偏移 ＋ 1<br />             到循环尾 ()<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br />     .如果真 (是否为空 (参_过滤空格) ＝ 假)<br />         .如果真 (局_内容 [局_偏移] ＝ 32)<br />             局_偏移 ＝ 局_偏移 ＋ 1<br />             到循环尾 ()<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br />     .如果 (局_内容 [局_偏移] ＞ 128)<br />         .如果真 (取字节集长度 (局_内容) ＞ 局_偏移)<br />             写出数据 (局_文件句柄, 局_内容 [局_偏移], 局_内容 [局_偏移 ＋ 1])<br />         .如果真结束<br />         局_偏移 ＝ 局_偏移 ＋ 2<br />     .否则<br />         写出数据 (局_文件句柄, 局_内容 [局_偏移])<br />         局_偏移 ＝ 局_偏移 ＋ 1<br />     .如果结束<br />     局_已取字符数 ＝ 局_已取字符数 ＋ 1<br /> .判断循环尾 ()<br /> 移动读写位置 (局_文件句柄, #文件首, 0)<br /> 局_返回文本 ＝ 读入文本 (局_文件句柄, )<br /> 关闭文件 (局_文件句柄)<br /> 返回 (局_返回文本)

不是我的々错

支持开源~！感谢分享，学习学习

杰克逊

支持开源666

lenvon2012

支持开源~！感谢分享，学习学习

kyo9766

感谢分享，看看实验下

sampo

感谢楼主分享经验

Conquer