拖放程序动态图片组例子

.子程序 得到路径中的程序名字, 文本型, , 拖放或给一个完整文件名为参数，得到程序的名字
.参数 接收到, 文本型
.局部变量 总文本长度, 整数型
.局部变量 到斜杠几个字, 整数型
.局部变量 斜杠右面的字, 文本型
.局部变量 得到的名字, 文本型

总文本长度 ＝ 取文本长度 (接收到)
到斜杠几个字 ＝ 倒找文本 (接收到, “\”, , 真)
斜杠右面的字 ＝ 取文本右边 (接收到, 总文本长度 － 到斜杠几个字)
.如果 (寻找文本 (斜杠右面的字, “.”, , 假) ＝ -1)
得到的名字 ＝ 斜杠右面的字
.否则
得到的名字 ＝ 取文本左边 (斜杠右面的字, 寻找文本 (斜杠右面的字, “.”, , 真) － 1)
.如果结束
返回 (得到的名字)