这里的清除只是清空"编辑框1",如果要删除记录,请清空"编辑框1",再点击"修改按钮"
-----------------------------------------------
.版本 2
.程序集 窗口程序集1
.程序集变量 文本, 文本型, , "0"
.程序集变量 文本内容, 文本型
.程序集变量 记录, 整数型
.子程序 __启动窗口_创建完毕
清除数组 (文本)
文本内容 = 到文本 (读入文件 (取运行目录 () + “\新建.txt”))
文本 = 分割文本 (文本内容, #换行符, )
修改按钮.禁止 = 真
录入按钮.禁止 = 假
_清除按钮_被单击 ()
.子程序 _录入按钮_被单击
.如果真 (编辑框1.内容 = “”)
信息框 (“请输入内容!”, 0, )
返回 ()
.如果真结束
加入成员 (文本, 编辑框1.内容)
写入数据 ()
_清除按钮_被单击 ()
.子程序 _清除按钮_被单击
编辑框1.内容 = “”
编辑框1.获取焦点 ()
.子程序 _修改按钮_被单击
文本 [记录] = 编辑框1.内容
写入数据 ()
.子程序 _查找按钮_被单击
.如果真 (编辑框2.内容 = “”)
信息框 (“请输入关键词!”, 0, )
返回 ()
.如果真结束
.计次循环首 (取数组成员数 (文本), 记录)
.如果真 (寻找文本 (文本 [记录], 编辑框2.内容, , 假) ≠ -1)
跳出循环 ()
.如果真结束
.计次循环尾 ()
.如果真 (记录 > 取数组成员数 (文本))
信息框 (“未找到你要的记录,请减少关键词!”, 0, )
返回 ()
.如果真结束
修改按钮.禁止 = 假
录入按钮.禁止 = 真
编辑框1.内容 = 文本 [记录]
.子程序 写入数据
文本内容 = “”
.计次循环首 (取数组成员数 (文本), 记录)
.如果真 (文本 [记录] = “”)
到循环尾 ()
.如果真结束
文本内容 = 文本内容 + 文本 [记录] + #换行符
.计次循环尾 ()
写到文件 (取运行目录 () + “\新建.txt”, 到字节集 (文本内容))
__启动窗口_创建完毕 ()
能不能在点击:查找后,跳出对话框里面显示内容呀?
追答在".子程序 _录入按钮_被单击"中,最后一句"_清除按钮_被单击 ()",删除掉
求易语言一个简单的小程序
删除名字 ()信息框 (“姓名:” + 编辑框1.内容 + “ 已删除”, 0, ).如果真结束 读数据库 ().子程序 删除名字, 逻辑型 跳到 (记录)删除 ()彻底删除 ()返回 (真).子程序 _列表_左键单击表项 编辑框1.内容 = 列表.取标题 (列表.现行选中项, 0)编辑框2.内容 = 列表.取标题 ...
用易语言 做个小程序,修改INI文件内容。
可以判断每个节名下的 IpAddr=192.168.1.70 时 BootDisk=XP3*0|DPAN*0|GAME*0|NETGAME*0 否则 BootDisk=SYS*0|DPAN*0|GAME*0|NETGAME*0 但 里面 ini文件名 的 路径 你要改一下哦 \/\/\/ .版本 2 .子程序 _按钮1_被单击 .局部变量 ini文件名, 文本型 .局部变量 配置节名, 文本...
怎么用易语言编写一个简单的商品条码和名称录入软件?
要想快捷的自动录入操作,可以用专门的脚本软件《阿冲全能点击王》来完成,这款阿冲全能点击王软件是支持批量录入数据的。
易语言 超级列表框 查找功能!
1、首先,运行易语言,然后选择“Windows窗口程序”并点击“确定”按钮,进入“Windows窗口程序”设计界面。2、在窗口上绘制超级列表框组件,今天我们做一个小程序,就是往超级列表框中,添加信息,类似学生信息数据表。3、修改相关组件的标题和其他属性,规范命名各组件的名称,以方便后续的代码编写。4、正...
用易语言制作一个小程序的问题 输入身份证 直接 得到 出生年月日_百度...
.程序集 窗口程序集1 .子程序 __启动窗口_创建完毕 编辑框1.输入方式 = 3 编辑框1.最大允许长度 = 18 .子程序 _按钮1_被单击 .局部变量 年, 文本型 .局部变量 月, 文本型 .局部变量 日, 文本型 .判断开始 (取文本长度 (编辑框1.内容) ≠ 18)信息框 (“身份证号码错误!”, 0, ...
怎么用易语言调用已经做好的按键小精灵、、、
首先你要设置小精灵自动运行,然后小精灵里的配置也可以用易语言读取,你可以参考易语言知识库的【写配置项】,然后只要修改配置项在运行小精灵就行了。如果要停止可以投递信息,最简单还是直接结束小精灵。
易语言 超级列表框内容查找
1、首先,运行易语言,然后选择“Windows窗口程序”并点击“确定”按钮,进入“Windows窗口程序”设计界面。2、在窗口上绘制超级列表框组件,今天我们做一个小程序,就是往超级列表框中,添加信息,类似学生信息数据表。3、修改相关组件的标题和其他属性,规范命名各组件的名称,以方便后续的代码编写。4、...
易语言穷举ip的小程序
计次循环首(4,i){ 整数型变量=整数型变量+左移(到整数(文本数组[i]),(i-1)*8)} 返回(整数型变量)} 返回文本型 整数型到ip(整数参数){ 字节集变量=到字节集(整数参数)文本变量=到文本(字节集变量[1])计次循环首(3,i){ 文本变量=文本变量+"."+到文本(字节集变量[i...
求高手用VB6或者易语言帮忙写个小程序,就几行代码
.版本 2 .支持库 eAPI .判断循环首 (真).如果真 (文件是否存在 (“E:\\123\\456.txt ”)) ' 检测E:\\123\\456.txt 终止进程 (“789.exe”) ' 如果文件存在,则关闭789.exe .如果真结束 延时 (10 × 1000) ' 延时10秒后再次检测456.txt的存在...如果真 (取运行目录 () = “”...
求一个简单的易语言源码,取系统运行时间的
代码如下:.版本 2 .支持库 spec .子程序 _按钮1_被单击 .局部变量 运行时间, 整数型, , , 毫秒 运行时间 = 取启动时间 ()调试输出 (取毫秒到天 (运行时间)).子程序 取毫秒到天, 文本型 .参数 参_秒, 整数型 .局部变量 参_秒, 整数型 .局部变量 天, 整数型 .局部变量 小时, 整数...