无忧启动论坛

 找回密码
 注册
搜索
系统gho:最纯净好用系统下载站投放广告、加入VIP会员,请联系 微信:wuyouceo
查看: 12783|回复: 33
打印 上一主题 下一主题

[求助] 右键添加了一个新建空白文件(无后缀名)

[复制链接]
跳转到指定楼层
1#
发表于 2018-4-22 21:36:51 来自手机 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
现在是用vbs取时间秒来实现随机,怎么写可以没有新文件就建立新文件,有新文件,就在新文件后面加个序号,类推累加序号?

评分

参与人数 1无忧币 +5 收起 理由
gutaiping2006 + 5 非常便利!

查看全部评分

来自 17#
 楼主| 发表于 2020-2-18 22:13:18 | 只看该作者
本帖最后由 窄口牛 于 2023-1-4 19:55 编辑


新的改成酱紫的了
右键添加新建空白文件.rar (1.04 KB, 下载次数: 36)



回复

使用道具 举报

2#
 楼主| 发表于 2018-4-22 23:07:47 来自手机 | 只看该作者
执行一次建立一个文件。
回复

使用道具 举报

3#
发表于 2018-4-23 09:42:41 | 只看该作者
VBS或批处理不会
习惯用ahk写
代码轻松完成
你要的功能太少了
你想好10条再来问
我给你现编

点评

大师,好。 能否用AHK编一个能自定义快捷键的程序,或者只是AHK文件也可以 1,支持同目录下同名ini文件用于保存设置 2,支持相对路径 3,自定义的键,可以是 WIN+字母或数字 谢谢大师  详情 回复 发表于 2018-4-28 17:33
谢谢关注,给你发qq消息没看到?  详情 回复 发表于 2018-4-23 11:11
回复

使用道具 举报

4#
 楼主| 发表于 2018-4-23 11:11:32 | 只看该作者
tt911 发表于 2018-4-23 09:42
VBS或批处理不会
习惯用ahk写
代码轻松完成

谢谢关注,给你发qq消息没看到?

点评

私信  详情 回复 发表于 2018-4-23 14:36
没收到啊。  发表于 2018-4-23 11:26
回复

使用道具 举报

5#
发表于 2018-4-23 11:32:21 | 只看该作者
举个例子,先。
回复

使用道具 举报

6#
发表于 2018-4-23 11:42:23 | 只看该作者
本帖最后由 tt911 于 2018-4-23 11:46 编辑

楼主你这个要求不太明确
我还是来个我思路的吧
1. 弹出一个输入框来,用户输入扩展名
2.然后在资源管理器中 ,自动的生成一个《以当前日期+扩展名》的文件
3.按一下热键就生成一个
思路源于http://bbs.wuyou.net/forum.php?mod=viewthread&tid=408265

要想i+1 也不难
关键你是想记录下来呢
下次还能用呢?  还是本次临时i+1下去呢?

构思不同,两种实现方式就有差别了。

你的随机 不如 这样生成: 生成当前 年月日+时分秒
最后组合成: 当前 年月日+时分秒   +i+1 +扩展名
回复

使用道具 举报

7#
 楼主| 发表于 2018-4-23 11:52:56 来自手机 | 只看该作者
vbs执行一次建立一个名字为新文件的空白文件没有扩展名,如果已经有一个,就后面加个数字1,已经有新文件1,就建立的名字叫新文件2。不用提问填写扩展名,提问也行。
回复

使用道具 举报

8#
 楼主| 发表于 2018-4-23 11:55:06 来自手机 | 只看该作者
我现在就是随机两位数字,不管有没有叫新文件的文件,用的是时间秒的末两位。

点评

那样不好,有可能两个文件名一样  发表于 2018-4-23 12:01
那样不好,有可能两个文件名一样  发表于 2018-4-23 12:00
回复

使用道具 举报

9#
 楼主| 发表于 2018-4-23 14:29:43 | 只看该作者
  1. @echo off
  2. ::reg add "HKCR\Directory\Background\shell\newfile\command" /ve /d "wscript.exe c:\windows\新文件.vbs" /f
  3. echo set fso=CreateObject("Scripting.FileSystemObject")>>%systemroot%\新文件.vbs
  4. echo set fw=fso.createtextfile("新文件"^&""^&Second(Now),^2)>>%systemroot%\新文件.vbs
  5. echo fw.close>>%systemroot%\新文件.vbs
复制代码


重复概率不大,因为连续建立几个本身就不多。
回复

使用道具 举报

10#
 楼主| 发表于 2018-4-23 14:36:14 | 只看该作者
窄口牛 发表于 2018-4-23 11:11
谢谢关注,给你发qq消息没看到?

私信
回复

使用道具 举报

11#
发表于 2018-4-24 11:17:11 来自手机 | 只看该作者
本帖最后由 slore 于 2018-4-24 11:18 编辑

不明白为什么用时间。。。会重复的。

就按你需求的逻辑,存在就加1,直到不存在建立有什么问题?

http://bbs.wuyou.net/forum.php?mod=viewthread&tid=386879
回复

使用道具 举报

12#
 楼主| 发表于 2018-4-24 11:40:15 来自手机 | 只看该作者
好的,我试试。
回复

使用道具 举报

13#
 楼主| 发表于 2018-4-26 07:07:13 来自手机 | 只看该作者
本帖最后由 窄口牛 于 2018-4-26 07:08 编辑

其实也就是vbs,ini,inf,lst,cfg,sh,lua,还有安卓86里的很多。
回复

使用道具 举报

14#
发表于 2018-4-28 17:33:43 | 只看该作者
tt911 发表于 2018-4-23 09:42
VBS或批处理不会
习惯用ahk写
代码轻松完成

大师,好。
能否用AHK编一个能自定义快捷键的程序,或者只是AHK文件也可以
1,支持同目录下同名ini文件用于保存设置
2,支持相对路径
3,自定义的键,可以是 WIN+字母或数字
谢谢大师
回复

使用道具 举报

15#
 楼主| 发表于 2018-6-3 10:06:39 | 只看该作者
  1. @echo off
  2. reg delete "HKCR\.txt\ShellNew" /f
  3. reg add "HKCR\Directory\Background\shell\WinXNew" /v "MUIVerb" /d "新建" /f
  4. reg add "HKCR\Directory\Background\shell\WinXNew" /v "Position" /d "Bottom" /f
  5. reg add "HKCR\Directory\Background\shell\WinXNew" /v "SubCommands" /d "" /f
  6. reg add "HKCR\Directory\Background\shell\WinXNew" /v "SeparatorAfter" /d "" /f
  7. reg add "HKCR\Directory\Background\shell\WinXNew\shell" /ve /d "" /f
  8. reg add "HKCR\Directory\Background\shell\WinXNew\shell\1.txt" /v "Icon" /d "imageres.dll,-2" /f
  9. reg add "HKCR\Directory\Background\shell\WinXNew\shell\1.txt" /ve /d "空文件" /f
  10. reg add "HKCR\Directory\Background\shell\WinXNew\shell\1.txt\command" /ve /d "wscript c:\windows\新文件.vbs" /f
  11. echo set fso=createobject("scripting.filesystemobject") : name=^1>>%systemroot%\新文件.vbs
  12. echo while fso.fileexists("新文件"^&""^&name)=true>>%systemroot%\新文件.vbs
  13. echo name=name+1>>%systemroot%\新文件.vbs
  14. echo wend>>%systemroot%\新文件.vbs
  15. echo set o=fso.opentextfile("新文件"^&""^&name,2,true)>>%systemroot%\新文件.vbs
复制代码

点评

不错,已经很完善了!  详情 回复 发表于 2018-6-3 16:38
回复

使用道具 举报

16#
发表于 2018-6-3 16:38:24 | 只看该作者

不错,已经很完善了!
回复

使用道具 举报

18#
 楼主| 发表于 2020-2-19 22:46:36 来自手机 | 只看该作者
通过vbs写文件头,那些只有文件头区分的文件就都可以建立。
回复

使用道具 举报

19#
发表于 2020-2-20 19:01:33 | 只看该作者
是什么问题呢
回复

使用道具 举报

20#
 楼主| 发表于 2023-1-4 20:44:15 | 只看该作者
本帖最后由 窄口牛 于 2023-1-4 20:46 编辑

图像文件,不能用文件头解决,但是vbs可以用wia建立图片
'On Error Resume Next
Set v = CreateObject("WIA.Vector")
For i = 1 To 12 * 12
        v.Add &HFF8B0000
Next
Set Img = v.ImageFile(12,12)
Img.SaveFile "Blue." & Img.FileExtension


如何可以像win的建立bmp那样空白的?有了bmp就能转换成PNG GIF JPEG TIFF
回复

使用道具 举报

21#
发表于 2023-1-5 08:20:25 | 只看该作者
楼主的方法很好,期待更加完善
回复

使用道具 举报

22#
 楼主| 发表于 2023-1-5 21:10:35 | 只看该作者
看来我的想法有问题,win右键新建的空白图像文件和文本改后缀一样效果。
回复

使用道具 举报

23#
发表于 2023-1-7 07:33:49 | 只看该作者
思路很不错哦
回复

使用道具 举报

24#
发表于 2023-1-8 11:43:10 | 只看该作者
感谢分享。

回复

使用道具 举报

25#
 楼主| 发表于 2023-2-20 16:51:08 | 只看该作者
本帖最后由 窄口牛 于 2023-2-21 07:44 编辑
  1. Option Explicit

  2. Dim sTEXT,sFILE

  3. sFILE = "grub.cfg"
  4. sTEXT = "#This is a grub2 configuration file "

  5. Call WriteFileUTF8_NOBOM(sFILE,sTEXT)

  6. WScript.Echo(sTEXT)

  7. Private Sub WriteFileUTF8_NOBOM(sFILE,sTEXT)
  8.     Const adSaveCreateNotExist = 1
  9.     Const adSaveCreateOverWrite = 2
  10.     Const adTypeBinary = 1
  11.     Const adTypeText = 2
  12.     Const adModeReadWrite = 3

  13.     Dim oUTF8Stream,oBinaryStream
  14.     Set oUTF8Stream = CreateObject("ADODB.Stream")
  15.     Set oBinaryStream = CreateObject("ADODB.Stream")

  16.     oUTF8Stream.Type = adTypeText
  17.     oUTF8Stream.Charset = "utf-8"
  18.     oUTF8Stream.Open
  19.     oUTF8Stream.WriteText sTEXT
  20.     oUTF8Stream.Position = 3 ' Skip BOM

  21.     oBinaryStream.Type = adTypeBinary
  22.     oBinaryStream.Mode = adModeReadWrite
  23.     oBinaryStream.Open

  24.     oUTF8Stream.CopyTo oBinaryStream
  25.     oUTF8Stream.Flush
  26.     oUTF8Stream.Close

  27.     oBinaryStream.SaveToFile sFILE, adSaveCreateOverWrite
  28.     oBinaryStream.Flush
  29.     oBinaryStream.Close

  30.     Set oUTF8Stream = Nothing
  31.     Set oBinaryStream = Nothing
  32. End Sub
复制代码


怎么粘到后面?用于创建cfg文件?
回复

使用道具 举报

26#
发表于 2023-7-18 10:30:30 | 只看该作者
有新建文本文档的吗?
回复

使用道具 举报

27#
发表于 2023-7-18 21:17:06 | 只看该作者
谢谢分享。。。
回复

使用道具 举报

28#
发表于 2023-7-20 11:32:24 | 只看该作者

我的WIN10右键菜单这样
回复

使用道具 举报

29#
发表于 2023-11-6 22:40:21 | 只看该作者
wfg1555 发表于 2023-7-20 11:32
我的WIN10右键菜单这样

求分享新建文件夹 和新建文本文档 源码
回复

使用道具 举报

30#
发表于 2024-7-20 18:22:39 | 只看该作者
谢谢分享,很有用
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|捐助支持|无忧启动 ( 闽ICP备05002490号-1 )

闽公网安备 35020302032614号

GMT+8, 2024-11-9 02:48

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表