你所不知道的小代码分享

mimi_rice

你所不知道的小代码分享

[img=570,0]该链接无法确定安全[/img]

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

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

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

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

文件读取与写入{:5_133:}

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

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

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

复制代码

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

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

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

游客，如果您要查看本帖隐藏内容请回复

批处理文件
核心代码

游客，如果您要查看本帖隐藏内容请回复

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

相关控件代码

1. Function 获取当前所选内容(行号)
   
2.     获取当前所选内容 = split(Form1.ListBox1.list,"|")(行号)
   
3. End Function
   
4. Event Form1.Button2.Click
   
5.     ScanFile Form1.BrowseBox1.Path
   
6. End Event
   
7. Event Form1.Button4.Click '删除选定文件
   
8.     文件路径 = Form1.BrowseBox1.Path &"\"&获取当前所选内容(Form1.ListBox1.ListIndex)
   
9.     Form1.ListBox1.RemoveItem Form1.ListBox1.ListIndex
   
10.     MessageBox  文件路径&"该文件已删除"
    
11.     Call Plugin.File.DeleteFile(文件路径)
    
12. End Event
    
13. Event Form1.Button5.Click '重命名选定文件
    
14.     文件路径 = Form1.BrowseBox1.Path &"\"&获取当前所选内容(Form1.ListBox1.ListIndex)
    
15.     Form1.ListBox1.RemoveItem Form1.ListBox1.ListIndex
    
16.     新名称 = Form1.InputBox1.Text
    
17.     Call Plugin.File.ReNameFile(文件路径, Form1.BrowseBox1.Path & "\" & 新名称)
    
18.     MessageBox  "该文件已重命名"& 新名称
    
19.     ScanFile Form1.BrowseBox1.Path
    
20. End Event

复制代码

效果演示图


如何循环找多图

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

{:4_95:}建议没看过的童鞋都看看这篇帖子：该链接无法确定安全

联系我时，请说是在 挂海论坛 上看到的，谢谢！

肉体缠绵↗

只有对楼主表示感谢，才能表达我现在的心情！

辅助

不错,非常好,谢谢了

栀子花开

貌似很不错的样子

Team莫寒

就喜欢楼主这样的哈哈哈

113562

非本地股反对广泛

ringk

支持楼主,绝对顶你...谢谢！

qqshqq

着玩意还是很有用处的。。。

ccok

打酱油的啦，飘过赚点海币而已。

maomaos

謝謝分享！~