【院刊】-【201504期】你所不知道的小代码分享 _ 学院院刊

查看: 13958\|回复: 15	[技术交流] 【院刊】-【201504期】你所不知道的小代码分享 [复制链接]

果兒

组别初中三年级
UID2220985
帖子396
精华0
鲜花532 朵
铜币2506 个
银币334 个
在线时间480
注册时间2013-10-27

1^#

字体大小: t T

发表于 2015-04-22 18:34 | |只看楼主

你所不知道的小代码分享

本文由按键学院提供技术支持

按键学院交流群（1群已满）：376122403

零基础学按键精灵群（2群）：372671254

随着院刊一篇篇的发布，小编感觉能出院刊的题材越来越少了，或许是小编能力有限、或许是思维暂时枯竭，总之小编今日没想到比较好的题材，请大家允许小编今日在此水一发，再分享一些小知识、小代码，并请大家如果有比较好的题材或者认为重要的知识跟帖发出了，以供小编参考下，小编这厢有礼了

文件读取与写入

记得咱们按键3级认证问答题中有这么一道题目：读取路径为C:\ajjl.txt记事文本中所有内容，弹窗显示，请作答。（不允许出现文本中本来没有的字符串以及符号）

基本上所有童鞋的答案都是直接调用File文件插件里的ReadFileEx命令来读取（注意：ReadFileEx命令读取后默认会在每行内容后加个“|”号把每行内容隔开），然后用replace函数把“|”替换成空字符或换行符，类似代码如下：

Text = Plugin.File.ReadFileEx("C:\ajjl.txt")
Text=Replace (text,"|",vbcr)
Msgbox Text

复制代码

这种方法确实高效、快捷，但是今天一个童鞋小小的提问却让小编犯难了：

如果要读取的文档里本身就含有“|”符号，或者有时候使用File插件无法正常读取到文档内容，我们应该怎么办呢?

下面就分享下不使用File文件插件，利用微软的文件系统对象fso实现读取和写入文本内容的代码:

//读取文件内容
Function ReadFile(Path)
Dim fso, fileobj
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileobj = fso.OpenTextFile(Path, 1, False)
ReadFile = fileobj.ReadAll
MsgBox ReadFile
Call fileobj.Close()
Set fso = Nothing
Set fileobj = Nothing
End Function
//向文件写入内容
Function WriteFile(Path, Text)
Dim fso, fileobj
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileobj = fso.OpenTextFile(Path, 2, True)
Call fileobj.Write(Text)
Call fileobj.Close()
Set fso = Nothing
Set fileobj = Nothing
End Function

复制代码

遍历文件到列表框

核心代码

//遍历文件夹的所有文件，并添加到列表框中
Function ScanFile(Path)
Dim fso, pathobj, fileobj
Set fso = CreateObject("Scripting.FileSystemObject")
Set pathobj = fso.GetFolder(Path)
// 这里修改列表框的名字
Form1.ListBox1.list = ""
For Each fileobj In pathobj.Files
Call Form1.ListBox1.AddItem(fileobj.Name)
Next
Set pathobj = Nothing
Set fso = Nothing
End Function

复制代码

上面的代码可以实现遍历某个文件夹下的所有文件，并把它们添加到列表框中，具体有什么实际作用呢，这可是个“仁者见仁、智者见智”的问题，小编就举个比较简单的用这个功能跟其他控件搭配实现批处理文件的功能

相关控件代码

Function 获取当前所选内容(行号)
获取当前所选内容 = split(Form1.ListBox1.list,"|")(行号)
End Function
Event Form1.Button2.Click
ScanFile Form1.BrowseBox1.Path
End Event
Event Form1.Button4.Click '删除选定文件
文件路径 = Form1.BrowseBox1.Path &"\"&获取当前所选内容(Form1.ListBox1.ListIndex)
Form1.ListBox1.RemoveItem Form1.ListBox1.ListIndex
MessageBox 文件路径&"该文件已删除"
Call Plugin.File.DeleteFile(文件路径)
End Event
Event Form1.Button5.Click '重命名选定文件
文件路径 = Form1.BrowseBox1.Path &"\"&获取当前所选内容(Form1.ListBox1.ListIndex)
Form1.ListBox1.RemoveItem Form1.ListBox1.ListIndex
新名称 = Form1.InputBox1.Text
Call Plugin.File.ReNameFile(文件路径, Form1.BrowseBox1.Path & "\" & 新名称)
MessageBox "该文件已重命名"& 新名称
ScanFile Form1.BrowseBox1.Path
End Event

复制代码

效果演示图

: 您所在的用户组无法下载或查看附件

如何循环找多图

由于按键自身的找图功能不像大漠等其他第三方插件那样，图片名字参数里可以直接写入多张图片一起查找，很多刚接触按键找图的新手基本都会问按键自身如何循环找多图或者找多图代码如何精简，小编最初学习的时候也遇到过类似的问题，当时看了某大神这篇帖子学到了很多

[backcolor=rgb(249, 249, 249)]

建议没看过的童鞋都看看这篇帖子：【循环找图】教你如何循环找图,查找多图!【总结脚本】

谢谢大家阅读，记得给小编送支花花！顺手点个赞

[tr=rgb(143, 188, 143)]


按键精灵安卓班（第一期）大肆招生啦~	回实战班：回合制通用教学火热报名
招生对象：零基础用户，快速学会按键精灵安卓版招生人数：70人【报名时间】：3/18——4/6 【学费】：128RMB 【学习日期】：1个月（2015.4.6-2015.4.27）【上课时间】：周1、周3、周5 19：30--21：30 【上课导师】：梦幻小飞侠【实战游戏】：[天天富翁]、[三国之刃]、[梦幻西游]、[天龙八部]	本期重点：回合制游戏--神武学习时效：终生有效上课时间：周2、周4、周6的 20：00--22：00 导师：工程师07 技术支持：果儿（院刊编辑）
点我进入按键学院报名啦招生细节进群咨询招生办主任：2群-372671254（优先加入） 1群-376122403

已有5评分我要评分查看所有评分

本主题由超级版主瑞祥幽冥狼于 2022/1/28 17:46:41 执行审核帖子操作

按键学院免费交流群：376122403

按键学院招生计划
按键学院系统教程

回顶部

发送短消息 UID 4029163 帖子 87 精华 0 鲜花 0 朵铜币 232 个银币 0 个性别在线时间 2220 注册时间 2016-07-24 最后登录 2017-01-04 3518795425 查看公共资料搜索主题搜索帖子 3518795425 木棍虐你组别小学四年级 UID4029163 帖子87 精华0 鲜花0 朵铜币232 个银币0 个在线时间2220 注册时间2016-07-24 按键精灵开发者2级可通过提升认证等级来升级勋章：rz.anjian.com	2^# 字体大小: t T 发表于 2016-12-06 17:22 \| \|只看该用户不好了IP


	回顶部

发送短消息 UID 948716 帖子 232 精华 0 鲜花 -3 朵铜币 418 个银币 8 个性别在线时间 5260 注册时间 2011-12-27 最后登录 2024-08-21 查看公共资料搜索主题搜索帖子 88655613 8866 组别初中一年级 UID948716 帖子232 精华0 鲜花-3 朵铜币418 个银币8 个在线时间5260 注册时间2011-12-27 按键精灵开发者2级可通过提升认证等级来升级勋章：rz.anjian.com	3^# 字体大小: t T 发表于 2016-12-15 07:31 \| \|只看该用户包括了包括了：文件检测、进程检测、内存检测、界面：文件检测、进程检测、内存检测、界面


	回顶部

发送短消息 UID 4237425 帖子 191 精华 0 鲜花 0 朵铜币 281 个银币 0 个性别在线时间 4460 注册时间 2016-12-04 最后登录 2017-08-12 343805827 查看公共资料搜索主题搜索帖子 wakes wakes 组别初中一年级 UID4237425 帖子191 精华0 鲜花0 朵铜币281 个银币0 个在线时间4460 注册时间2016-12-04	4^# 字体大小: t T 发表于 2017-01-10 21:28 \| \|只看该用户 6666666666666


	回顶部

发送短消息 UID 2475051 帖子 276 精华 0 鲜花 -3 朵铜币 566 个银币 -2 个性别在线时间 4600 注册时间 2014-04-19 最后登录 2023-05-31 1551493699 查看公共资料搜索主题搜索帖子 1551493699 1551493699 组别初中二年级 UID2475051 帖子276 精华0 鲜花-3 朵铜币566 个银币-2 个在线时间4600 注册时间2014-04-19 按键精灵开发者1级可通过提升认证等级来升级勋章：rz.anjian.com	5^# 字体大小: t T 发表于 2017-01-27 12:29 \| \|只看该用户 211111111111111


	回顶部

发送短消息 UID 4409510 帖子 49 精华 0 鲜花 0 朵铜币 131 个银币 0 个性别在线时间 1100 注册时间 2017-04-05 最后登录 2017-07-26 查看公共资料搜索主题搜索帖子 591253830 组别小学二年级 UID4409510 帖子49 精华0 鲜花0 朵铜币131 个银币0 个在线时间1100 注册时间2017-04-05	6^# 字体大小: t T 发表于 2017-05-30 16:23 \| \|只看该用户看看学习学习


	回顶部

发送短消息 UID 2998029 帖子 149 精华 0 鲜花 -1 朵铜币 465 个银币 162 个性别在线时间 23920 注册时间 2015-01-09 最后登录 2023-03-17 查看公共资料搜索主题搜索帖子 djkldy cold 组别小学六年级 UID2998029 帖子149 精华0 鲜花-1 朵铜币465 个银币162 个在线时间23920 注册时间2015-01-09 按键精灵开发者4级可通过提升认证等级来升级勋章：rz.anjian.com	7^# 字体大小: t T 发表于 2017-06-14 09:40 \| \|只看该用户看看。。。。。。。。。


	回顶部

发送短消息 UID 4609782 帖子 85 精华 0 鲜花 -2 朵铜币 131 个银币 -2 个性别在线时间 2360 注册时间 2017-08-29 最后登录 2018-03-21 查看公共资料搜索主题搜索帖子 yan349166799 小颜子组别小学四年级 UID4609782 帖子85 精华0 鲜花-2 朵铜币131 个银币-2 个在线时间2360 注册时间2017-08-29	8^# 字体大小: t T 发表于 2017-09-11 09:58 \| \|只看该用户哇哦好像很酷的样子
	努力很久还是一个屁

	回顶部

发送短消息 UID 2289031 帖子 276 精华 0 鲜花 -2 朵铜币 488 个银币 -2 个性别在线时间 6340 注册时间 2013-12-07 最后登录 2019-07-23 781481781 查看公共资料搜索主题搜索帖子你想点就点你想点就点组别初中二年级 UID2289031 帖子276 精华0 鲜花-2 朵铜币488 个银币-2 个在线时间6340 注册时间2013-12-07	9^# 字体大小: t T 发表于 2017-10-24 15:24 \| \|只看该用户学习。。。。。。。。。。


	回顶部

发送短消息 UID 2117617 帖子 242 精华 0 鲜花 -1 朵铜币 548 个银币 0 个性别在线时间 3080 注册时间 2013-09-03 最后登录 2018-12-23 84705770 查看公共资料搜索主题搜索帖子 hzl479 hzl479 组别初中一年级 UID2117617 帖子242 精华0 鲜花-1 朵铜币548 个银币0 个在线时间3080 注册时间2013-09-03	10^# 字体大小: t T 发表于 2017-10-30 16:02 \| \|只看该用户学习了啊


	回顶部

发送短消息 UID 4696398 帖子 301 精华 0 鲜花 23 朵铜币 2007 个银币 -1 个性别在线时间 8420 注册时间 2017-10-30 最后登录 2019-08-12 查看公共资料搜索主题搜索帖子 chenjiagui_2001 组别初中二年级 UID4696398 帖子301 精华0 鲜花23 朵铜币2007 个银币-1 个在线时间8420 注册时间2017-10-30	11^# 字体大小: t T 发表于 2017-11-28 06:15 \| \|只看该用户好好学习 12886


	回顶部

发送短消息 UID 4728064 帖子 68 精华 0 鲜花 -4 朵铜币 110 个银币 -4 个性别在线时间 1280 注册时间 2017-11-16 最后登录 2018-01-25 查看公共资料搜索主题搜索帖子小白941025 组别小精灵商业作者 UID4728064 帖子68 精华0 鲜花-4 朵铜币110 个银币-4 个在线时间1280 注册时间2017-11-16	12^# 字体大小: t T 发表于 2017-11-29 11:46 \| \|只看该用户学习下


	回顶部

发送短消息 UID 4788348 帖子 175 精华 0 鲜花 0 朵铜币 290 个银币 0 个性别在线时间 1240 注册时间 2017-12-15 最后登录 2018-02-19 查看公共资料搜索主题搜索帖子端木若水组别初中一年级 UID4788348 帖子175 精华0 鲜花0 朵铜币290 个银币0 个在线时间1240 注册时间2017-12-15	13^# 字体大小: t T 发表于 2017-12-28 09:35 \| \|只看该用户赶紧来学习。


	回顶部

发送短消息 UID 3804330 帖子 568 精华 0 鲜花 26 朵铜币 1810 个银币 10 个性别在线时间 14520 注册时间 2016-03-11 最后登录 2018-08-31 133852525 查看公共资料搜索主题搜索帖子 lmtingbao lmtingbao 组别高中二年级 UID3804330 帖子568 精华0 鲜花26 朵铜币1810 个银币10 个在线时间14520 注册时间2016-03-11	14^# 字体大小: t T 发表于 2017-12-30 08:45 \| \|只看该用户小代码分享


	回顶部

发送短消息 UID 6401110 帖子 25 精华 0 鲜花 16 朵铜币 29 个银币 19 个性别在线时间 0 注册时间 2019-04-20 最后登录 2024-01-10 1054771900 查看公共资料搜索主题搜索帖子 1054771900 1054771900 组别小学一年级 UID6401110 帖子25 精华0 鲜花16 朵铜币29 个银币19 个在线时间0 注册时间2019-04-20	15^# 字体大小: t T 发表于 2022-01-28 11:27 \| \|只看该用户 66666666


	回顶部

发送短消息 UID 1350318 帖子 122 精华 0 鲜花 70 朵铜币 149 个银币 75 个性别在线时间 1260 注册时间 2012-10-05 最后登录 2024-11-26 653025156 查看公共资料搜索主题搜索帖子 fhqdxvlong fhqdxvlong 组别小学六年级 UID1350318 帖子122 精华0 鲜花70 朵铜币149 个银币75 个在线时间1260 注册时间2012-10-05	16^# 字体大小: t T 发表于 2023-07-28 09:01 \| \|只看该用户哈哈哈哈哈哈


	回顶部

上一主题| 下一主题

[技术交流] 【院刊】-【201504期】你所不知道的小代码分享 [复制链接]