易语言用一个编辑框用来刷卡 刷卡一次完了之后编辑框自动清除等待下一个人刷 并且保存每一个人的刷卡卡号+时间，求解！
第1个回答 2015-08-22
-----------展开本回答并复制下面的代码粘贴在易语言里------------
‘只需两个编辑框和一个按钮即可完成楼主需要的软件
=============================
.版本 2
.程序集 窗口程序集_启动窗口
.程序集变量 用户数量, 整数型
.程序集变量 账号数据, 文本型
.子程序 _按钮1_被单击
用户数量 ＝ 用户数量 ＋ 1
账号数据 ＝ 账号数据 ＋ “<” ＋ 到文本 (用户数量) ＋ “账号>” ＋ 编辑框1.内容 ＋ “<” ＋ 到文本 (用户数量) ＋ “账号>” ＋ “<” ＋ 到文本 (用户数量) ＋ “密码>” ＋ 编辑框2.内容 ＋ “<” ＋ 到文本 (用户数量) ＋ “密码>”
调试输出 (账号数据)
编辑框1.内容 ＝ “”
编辑框2.内容 ＝ “”
信息框 (“刷卡成功！当前账号：” ＋ 取中间文本 (账号数据, “<” ＋ 到文本 (用户数量) ＋ “账号>”, “<” ＋ 到文本 (用户数量) ＋ “账号>”, , 真) ＋ “ 该帐号密码：” ＋ 取中间文本 (账号数据, “<” ＋ 到文本 (用户数量) ＋ “密码>”, “<” ＋ 到文本 (用户数量) ＋ “密码>”, , 真), 0, , )
.子程序 取中间文本, 文本型, 公开, 文本_取中间 (全部文本, 前面文本, 后面文本, , 真) 【读谱需要代码】
.参数 全部文本, 文本型, , 比如：欲取全文本为 12345
.参数 前面文本, 文本型, , 3的前面为“2”，引号直接用 #引号，如："<font color=#引号red#引号>"
.参数 后面文本, 文本型, , 3的后面为“4”，引号直接用 #引号，如："<font color=#引号red#引号>"
.参数 起始搜寻位置, 整数型, 可空, 可空。1为首位置，2为第2个位置，如此类推。
.参数 是否区分大小写, 逻辑型, 可空, 可空。初始值为“假”。假 = 不区分 真 = 区分大小写。
.局部变量 局_文本, 文本型
.局部变量 局_位置, 整数型
是否区分大小写 ＝ 取反 (是否区分大小写)
.如果真 (寻找文本 (前面文本, “#引号”, , 假) ≠ -1)
前面文本 ＝ 子文本替换 (前面文本, “#引号”, #引号, , , 真)
.如果真结束
.如果真 (寻找文本 (后面文本, “#引号”, , 假) ≠ -1)
后面文本 ＝ 子文本替换 (后面文本, “#引号”, #引号, , , 真)
.如果真结束
局_位置 ＝ 寻找文本 (全部文本, 前面文本, 起始搜寻位置, 是否区分大小写)
.如果真 (局_位置 ＝ -1)
返回 (“”)
.如果真结束
局_文本 ＝ 取文本右边 (全部文本, 取文本长度 (全部文本) － 局_位置 － 取文本长度 (前面文本) ＋ 1)
局_位置 ＝ 寻找文本 (局_文本, 后面文本, 起始搜寻位置, 是否区分大小写)
.如果真 (局_位置 ＝ -1)
返回 (“”)
.如果真结束
局_文本 ＝ 取文本左边 (局_文本, 局_位置 － 1)
返回 (局_文本)
=========================================本回答被网友采纳
‘只需两个编辑框和一个按钮即可完成楼主需要的软件
=============================
.版本 2
.程序集 窗口程序集_启动窗口
.程序集变量 用户数量, 整数型
.程序集变量 账号数据, 文本型
.子程序 _按钮1_被单击
用户数量 ＝ 用户数量 ＋ 1
账号数据 ＝ 账号数据 ＋ “<” ＋ 到文本 (用户数量) ＋ “账号>” ＋ 编辑框1.内容 ＋ “<” ＋ 到文本 (用户数量) ＋ “账号>” ＋ “<” ＋ 到文本 (用户数量) ＋ “密码>” ＋ 编辑框2.内容 ＋ “<” ＋ 到文本 (用户数量) ＋ “密码>”
调试输出 (账号数据)
编辑框1.内容 ＝ “”
编辑框2.内容 ＝ “”
信息框 (“刷卡成功！当前账号：” ＋ 取中间文本 (账号数据, “<” ＋ 到文本 (用户数量) ＋ “账号>”, “<” ＋ 到文本 (用户数量) ＋ “账号>”, , 真) ＋ “ 该帐号密码：” ＋ 取中间文本 (账号数据, “<” ＋ 到文本 (用户数量) ＋ “密码>”, “<” ＋ 到文本 (用户数量) ＋ “密码>”, , 真), 0, , )
.子程序 取中间文本, 文本型, 公开, 文本_取中间 (全部文本, 前面文本, 后面文本, , 真) 【读谱需要代码】
.参数 全部文本, 文本型, , 比如：欲取全文本为 12345
.参数 前面文本, 文本型, , 3的前面为“2”，引号直接用 #引号，如："<font color=#引号red#引号>"
.参数 后面文本, 文本型, , 3的后面为“4”，引号直接用 #引号，如："<font color=#引号red#引号>"
.参数 起始搜寻位置, 整数型, 可空, 可空。1为首位置，2为第2个位置，如此类推。
.参数 是否区分大小写, 逻辑型, 可空, 可空。初始值为“假”。假 = 不区分 真 = 区分大小写。
.局部变量 局_文本, 文本型
.局部变量 局_位置, 整数型
是否区分大小写 ＝ 取反 (是否区分大小写)
.如果真 (寻找文本 (前面文本, “#引号”, , 假) ≠ -1)
前面文本 ＝ 子文本替换 (前面文本, “#引号”, #引号, , , 真)
.如果真结束
.如果真 (寻找文本 (后面文本, “#引号”, , 假) ≠ -1)
后面文本 ＝ 子文本替换 (后面文本, “#引号”, #引号, , , 真)
.如果真结束
局_位置 ＝ 寻找文本 (全部文本, 前面文本, 起始搜寻位置, 是否区分大小写)
.如果真 (局_位置 ＝ -1)
返回 (“”)
.如果真结束
局_文本 ＝ 取文本右边 (全部文本, 取文本长度 (全部文本) － 局_位置 － 取文本长度 (前面文本) ＋ 1)
局_位置 ＝ 寻找文本 (局_文本, 后面文本, 起始搜寻位置, 是否区分大小写)
.如果真 (局_位置 ＝ -1)
返回 (“”)
.如果真结束
局_文本 ＝ 取文本左边 (局_文本, 局_位置 － 1)
返回 (局_文本)
=========================================本回答被网友采纳
第2个回答 2015-08-22
易语言自带的有。
第3个回答 2015-08-22
附件要用360压缩等解压软件解压缩
楼主这个程序要数据库啊，最好用SQL，我给你的源码用的是EDB，只是一个演示！
第4个回答 2015-08-22
学海无涯，这些简单的还是依靠自己吧
第5个回答 2015-08-22
数据库...或者写到文本都可以...追问
能说具体点吗、？谢谢了 还有就是编辑框一个人刷完后怎么自动清除第二人在刷呢？谢谢了 求解
追答//tieba.baidu.com/i/sys/jump?un=%F7%C8%D3%B0%CC%BD%BA%CD571" onclick="Stats.sendRequest('fr=tb0_forum&st_mod=pb&st_value=atlink');" onmouseover="showattip(this)" onmouseout="hideattip(this)" username="%F7%C8%D3%B0%CC%BD%BA%CD571" target="_blank" class="at">魅影探和571 :编辑框1.内容=“”...
