祝大家新年快乐，技术更上一层楼

ApOL

新年快乐，我来领精币了

ApOL

新年快乐，我来领精币了

Posty

支持，新年快乐，我来领精币了！再来一次！

Posty

支持，新年快乐，我来领精币了！

我爱逗妇乳

楼主好淫.................

Hoibben

再拿一次

Hoibben

拿精币了   

骑猪卖大蒜

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 _清空_被单击
.局部变量 文件号, 整数型

编辑框1.内容 ＝ “”
关闭文件 (文件号)

.子程序 _导入_被单击
.局部变量 文件号, 整数型

通用对话框1.打开 ()
文件号 ＝ 打开文件 (通用对话框1.文件名, , #无限制)
编辑框2.内容 ＝ 读入文本 (文件号, )

.子程序 _导出_被单击

通用对话框1.类型 ＝ 1
通用对话框1.打开 ()
写到文件 (通用对话框1.文件名, 到字节集 (编辑框1.内容))


.子程序 _按钮2_被单击

销毁 ()

.子程序 __启动窗口_创建完毕

加载皮肤 (6)
加载Aero特效 ()

.子程序 _按钮1_被单击
.局部变量 文件号, 整数型

编辑框2.内容 ＝ “”
关闭文件 (文件号)


.子程序 _开始_被单击
.局部变量 i, 整数型
.局部变量 txt, 文本型
.局部变量 txt_head, 文本型

.计次循环首 (文本_取行数 (编辑框2.内容), i)
    txt ＝ 文本_取指定变量文本行 (编辑框2.内容, i)
    txt_head ＝ 取文本左边 (txt, 1)
    .判断开始 (取代码 (txt_head, ) ≥ 48 且 取代码 (txt_head, ) ≤ 57)

    .默认
        编辑框1.内容 ＝ 编辑框1.内容 ＋ txt ＋ #换行符
    .判断结束

.计次循环尾 ()

骑猪卖大蒜

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 _清空_被单击
.局部变量 文件号, 整数型

编辑框1.内容 ＝ “”
关闭文件 (文件号)

.子程序 _导入_被单击
.局部变量 文件号, 整数型

通用对话框1.打开 ()
文件号 ＝ 打开文件 (通用对话框1.文件名, , #无限制)
编辑框2.内容 ＝ 读入文本 (文件号, )

.子程序 _导出_被单击

通用对话框1.类型 ＝ 1
通用对话框1.打开 ()
写到文件 (通用对话框1.文件名, 到字节集 (编辑框1.内容))


.子程序 _按钮2_被单击

销毁 ()

.子程序 __启动窗口_创建完毕

加载皮肤 (6)
加载Aero特效 ()

.子程序 _按钮1_被单击
.局部变量 文件号, 整数型

编辑框2.内容 ＝ “”
关闭文件 (文件号)


.子程序 _开始_被单击
.局部变量 i, 整数型
.局部变量 txt, 文本型
.局部变量 txt_head, 文本型

.计次循环首 (文本_取行数 (编辑框2.内容), i)
    txt ＝ 文本_取指定变量文本行 (编辑框2.内容, i)
    txt_head ＝ 取文本左边 (txt, 1)
    .判断开始 (取代码 (txt_head, ) ≥ 48 且 取代码 (txt_head, ) ≤ 57)

    .默认
        编辑框1.内容 ＝ 编辑框1.内容 ＋ txt ＋ #换行符
    .判断结束

.计次循环尾 ()

千年助手

新年快乐888