- UID
- 89647
- 在线时间
- 0 小时
- 最后登录
- 2015-12-31
- 注册时间
- 2012-4-8
- 宅魂
- 257 点
- 贡献
- 162 点
- 宅币
- 1382 枚
- 灵石
- 0 块
- 元气(技能点)
- 10 点
- 活跃
- 0 ℃
- 听众
- 7
- 收听
- 6
该用户从未签到
序章
- 积分
- 3239
|
发表于 2012-4-16 00:34:48
|
显示全部楼层
本帖最后由 Flagalac 于 2012-4-16 00:50 编辑
C#秋君已经写了我就写个易语言的吧=-=图稍后补上
P.S1:引用了超级模块6.5版本(编码转换类神马的)
P.S2:这两天状态不佳~有点感冒+头痛 ~码代码效率超级慢~所以现在才发来~迟了点~- .版本 2
- .程序集 程序集1
- .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
- .局部变量 路径集, 文本型, , "0"
- .局部变量 子路径集, 文本型, , "0"
- .局部变量 输入文本, 文本型
- .局部变量 编码转换类, 编码转换类
- .局部变量 i, 整数型
- .局部变量 j, 整数型
- .局部变量 分割文本数组, 文本型, , "0"
- .局部变量 公共路径, 文本型
- .局部变量 开始点, 整数型
- 标准输出 (, “输入路径” + 到文本 (取数组成员数 (路径集) + 1) + “(停止输入请留空)” + #换行符)
- 输入文本 = 标准输入 ()
- .判断循环首 (输入文本 ≠ 编码转换类.USC2转Ansi (“000A0000”))
- 加入成员 (路径集, 输入文本)
- 标准输出 (, “输入路径” + 到文本 (取数组成员数 (路径集) + 1) + “(停止输入请留空)” + #换行符)
- 输入文本 = 标准输入 ()
- .判断循环尾 ()
- .如果 (取数组成员数 (路径集) > 1)
- 重定义数组 (子路径集, 假, 取数组成员数 (路径集), 1)
- .否则
- 标准输出 (, “输入成员数量不足”)
- 标准输入 ()
- 返回 (0)
- .如果结束
- .计次循环首 (取数组成员数 (路径集), i)
- 分割文本数组 = 分割文本 (路径集 [i], “\”, )
- .如果真 (取数组下标 (子路径集, 2) < 取数组成员数 (分割文本数组))
- 重定义数组 (子路径集, 真, 取数组成员数 (路径集), 取数组成员数 (分割文本数组))
- .如果真结束
- .计次循环首 (取数组成员数 (分割文本数组), j)
- 子路径集 [i] [j] = 分割文本数组 [j]
- .计次循环尾 ()
- .计次循环尾 ()
- .计次循环首 (取数组成员数 (路径集), i)
- 开始点 = 寻找文本 (路径集 [i], “\”, 开始点 + 1, 假)
- .判断循环首 (开始点 ≠ -1)
- .如果 (取文本中间 (路径集 [i], 开始点 + 1, 1) = “\” 且 开始点 ≠ 1)
- 标准输出 (, “路径非法”)
- 标准输入 ()
- 返回 (0)
- .否则
- .如果结束
- 开始点 = 寻找文本 (路径集 [i], “\”, 开始点 + 1, 假)
- .判断循环尾 ()
- 开始点 = 0
- .计次循环尾 ()
- .计次循环首 (取数组成员数 (路径集) - 1, i)
- .计次循环首 (取数组下标 (子路径集, 2) - 1, j)
- .如果 (子路径集 [i] [j] = 子路径集 [i + 1] [j])
- .如果真 (i = 取数组成员数 (路径集) - 1)
- 公共路径 = 公共路径 + 子路径集 [i] [j] + “\”
- .如果真结束
- .否则
- 跳出循环 ()
- 跳出循环 ()
- .如果结束
- .计次循环尾 ()
- .计次循环尾 ()
- .如果 (公共路径 ≠ “”)
- 标准输出 (, 公共路径)
- .否则
- .如果结束
- 标准输入 ()
- 返回 (0)
复制代码
|
评分
-
查看全部评分
|