关于去首尾符号

往事如风0

“哈哈哈哈哈哈哈“
想去掉首尾符号，自己写的代码不行，求助大神


.版本 2
.支持库 spec

第一个字符 ＝ 取文本左边 (原文本, 2)
.如果真 (第一个字符 ＝ #常量2)
    结果文本 ＝ 取文本中间 (原文本, 2, 取文本长度 (原文本) － 2)
.如果真结束

' 调试输出 (取文本长度 (#常量2))
调试输出 (结果文本)

大漠小鸟

完整源码下载： demo.e (954.14 KB, 下载次数: 1)

2024-11-7 22:55 上传

点击文件名下载附件

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型

_临时子程序 ()
返回 (0)

子程序名	返回值类型	公开	备 注
_临时子程序

变量名	类 型	静态	数组	备 注
文本	文本型
文本地址	整数型

文本 ＝ #引号 ＋ “哈哈哈” ＋ #引号 ＋ #引号 ＋ #引号
文本 ＝ 文本_删首尾符 (文本, #引号 )
调试输出 (文本)

子程序名	返回值类型	公开	备 注
文本_删首尾符	文本型		与删首尾空（）命令类似，不同之处在于可删除多组字符，如："123"=文本_删首尾符（"a bc123ab c","abc "）
参数名	类 型	参考	可空	数组	备 注
欲处理的文本	文本型
字符集	文本型				包括终止符{0}

变量名	类 型	静态	数组	备 注
长度	整数型
指针	整数型
偏移	整数型
I	整数型
字符集指针	整数型

指针 ＝ 取指针_文本型 (欲处理的文本)
字符集指针 ＝ 取指针_文本型 (字符集)
如果真 (指针 ＝ 0 或 字符集指针 ＝ 0)
返回 (“”)

长度 ＝ lstrlenA (指针)
偏移 ＝ strspn (欲处理的文本, 字符集)
如果真 (偏移 ＞ 0)
指针 ＝ 指针 ＋ 偏移
长度 ＝ 长度 － 偏移

变量循环首 (指针 ＋ 长度 － 1, 指针, -1, I)
如果真 (strchr (字符集指针, __get_byte (I, 0)) ＝ 0)
返回 (取文本中间 (欲处理的文本, 偏移 ＋ 1, I － 指针 ＋ 1))

变量循环尾 ()
如果真 (偏移 ＝ 0)
返回 (欲处理的文本)
返回 (取文本右边 (欲处理的文本, 长度))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型<br /> <br /> _临时子程序 ()<br /> 返回 (0)<br /> <br /> .子程序 _临时子程序<br /> .局部变量 文本, 文本型<br /> .局部变量 文本地址, 整数型<br /> <br /> 文本 ＝ #引号 ＋ “哈哈哈” ＋ #引号 ＋ #引号 ＋ #引号<br /> 文本 ＝ 文本_删首尾符 (文本, #引号)<br /> 调试输出 (文本)<br /> <br /> .子程序 文本_删首尾符, 文本型, 公开, 与删首尾空（）命令类似，不同之处在于可删除多组字符，如："123"=文本_删首尾符（"a bc123ab c","abc "）<br /> .参数 欲处理的文本, 文本型<br /> .参数 字符集, 文本型, , 包括终止符{0}<br /> .局部变量 长度, 整数型<br /> .局部变量 指针, 整数型<br /> .局部变量 偏移, 整数型<br /> .局部变量 I, 整数型<br /> .局部变量 字符集指针, 整数型<br /> <br /> 指针 ＝ 取指针_文本型 (欲处理的文本)<br /> 字符集指针 ＝ 取指针_文本型 (字符集)<br /> .如果真 (指针 ＝ 0 或 字符集指针 ＝ 0)<br />     返回 (“”)<br /> .如果真结束<br /> <br /> 长度 ＝ lstrlenA (指针)<br /> 偏移 ＝ strspn (欲处理的文本, 字符集)<br /> .如果真 (偏移 ＞ 0)<br />     指针 ＝ 指针 ＋ 偏移<br />     长度 ＝ 长度 － 偏移<br /> .如果真结束<br /> <br /> .变量循环首 (指针 ＋ 长度 － 1, 指针, -1, I)<br />     .如果真 (strchr (字符集指针, __get_byte (I, 0)) ＝ 0)<br />         返回 (取文本中间 (欲处理的文本, 偏移 ＋ 1, I － 指针 ＋ 1))<br />     .如果真结束<br /> <br /> .变量循环尾 ()<br /> .如果真 (偏移 ＝ 0)<br />     返回 (欲处理的文本)<br /> .如果真结束<br /> 返回 (取文本右边 (欲处理的文本, 长度))

LEOONL

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
原文本	文本型
第一个字符	文本型
结果文本	文本型

原文本 ＝ #引号 ＋ “哈哈哈哈哈哈哈” ＋ #引号
第一个字符 ＝ 取文本左边 (原文本, 1)
如果真 (第一个字符 ＝ #引号 )
结果文本 ＝ 取文本中间 (原文本, 2, 取文本长度 (原文本) － 2)
调试输出 (结果文本)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 原文本, 文本型<br /> .局部变量 第一个字符, 文本型<br /> .局部变量 结果文本, 文本型<br /> <br /> 原文本 ＝ #引号 ＋ “哈哈哈哈哈哈哈” ＋ #引号<br /> 第一个字符 ＝ 取文本左边 (原文本, 1)<br /> .如果真 (第一个字符 ＝ #引号)<br />     结果文本 ＝ 取文本中间 (原文本, 2, 取文本长度 (原文本) － 2)<br /> .如果真结束<br /> 调试输出 (结果文本)

往事如风0

LEOONL 发表于 2024-11-7 22:37
[e=0].版本 2
.支持库 spec

调试输出乱码

* “肮”
被调试易程序运行完毕

企鹅号525150138

  

变量名	类 型	静态	数组	备 注
原文本	文本型
数组	文本型		0

原文本 ＝ #引号 ＋ “哈哈哈哈哈哈哈” ＋ #引号
文本_逐字分割_汇编 (原文本, 数组)
删除成员 (数组, 1, 1)
删除成员 (数组, 取数组成员数 (数组), 1)
调试输出 (数组_合并_快速 (数组, 字符 (0)))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 原文本, 文本型<br /> .局部变量 数组, 文本型, , "0"<br /> <br /> 原文本 ＝ #引号 ＋ “哈哈哈哈哈哈哈” ＋ #引号<br /> 文本_逐字分割_汇编 (原文本, 数组)<br /> 删除成员 (数组, 1, 1)<br /> 删除成员 (数组, 取数组成员数 (数组), 1)<br /> 调试输出 (数组_合并_快速 (数组, 字符 (0)))

LEOONL

往事如风0 发表于 2024-11-7 22:38
调试输出乱码

* “肮”

我测试没问题，你代码啥样的，你自己写错了吧