精益模块建议增加字符裁剪的命令

quitout

功能类似 删首空、删尾空、删首尾空，只是可以增加一个额外的参数，可以指定删除某个或者某几个字符。因为平时获取到的字符首尾可能包含了多余的字符，系统自带的和精益模块附带的只能删除空格，功能有些不够。可以参考以下代码：

  

子程序名	返回值类型	公开	备 注
Str_Trimt	文本型
参数名	类 型	参考	可空	数组	备 注
str	文本型
filter	文本型

变量名	类 型	静态	数组	备 注
NewStr	文本型
i	整数型
TempStr	文本型

TempStr ＝ Str_LTrim (str, filter)
返回 (Str_RTrim (TempStr, filter))

子程序名	返回值类型	公开	备 注
Str_LTrim	文本型
参数名	类 型	参考	可空	数组	备 注
text	文本型
filt	文本型

变量名	类 型	静态	数组	备 注
i

计次循环首 (取文本长度 (text), i)
如果真 (寻找文本 (filt, 取文本中间 (text, i, 1), , 假) ＝ -1)
返回 (取文本右边 (text, 取文本长度 (text) － i ＋ 1))

计次循环尾 ()
返回 (“”)

子程序名	返回值类型	公开	备 注
Str_RTrim	文本型
参数名	类 型	参考	可空	数组	备 注
text	文本型
filt	文本型

变量名	类 型	静态	数组	备 注
i	整数型

变量循环首 (取文本长度 (text), 1, -1, i)
如果真 (寻找文本 (filt, 取文本中间 (text, i, 1), , 假) ＝ -1)
返回 (取文本左边 (text, i))

变量循环尾 ()
返回 (“”)

.版本 2<br /> <br /> .子程序 Str_Trimt, 文本型, 公开<br /> .参数 str, 文本型<br /> .参数 filter, 文本型<br /> .局部变量 NewStr, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 TempStr, 文本型<br /> <br /> TempStr ＝ Str_LTrim (str, filter)<br /> 返回 (Str_RTrim (TempStr, filter))<br /> <br /> .子程序 Str_LTrim, 文本型, 公开<br /> .参数 text, 文本型<br /> .参数 filt, 文本型<br /> .局部变量 i<br /> <br /> .计次循环首 (取文本长度 (text), i)<br />     .如果真 (寻找文本 (filt, 取文本中间 (text, i, 1), , 假) ＝ -1)<br />         返回 (取文本右边 (text, 取文本长度 (text) － i ＋ 1))<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (“”)<br /> <br /> .子程序 Str_RTrim, 文本型, 公开<br /> .参数 text, 文本型<br /> .参数 filt, 文本型<br /> .局部变量 i, 整数型<br /> <br /> <br /> .变量循环首 (取文本长度 (text), 1, -1, i)<br />     .如果真 (寻找文本 (filt, 取文本中间 (text, i, 1), , 假) ＝ -1)<br />         返回 (取文本左边 (text, i))<br />     .如果真结束<br /> <br /> .变量循环尾 ()<br /> 返回 (“”)

quitout

jr21066 发表于 2018-10-25 23:08
如果是首尾字符的话.可以用取文本中间来实现的

但是有时候不确定首尾有多少不需要的字符，比如这样的 "  aabbcc\n ", 我想只取中间有实际内容的字母，想把首尾的空格、换行、制表符之类的都删除，这样的话用取文本中间这个命令就不方便了

jr21066

如果是首尾字符的话.可以用取文本中间来实现的

途码

66666666666666666

202388881

66666666666666666