无忧启动论坛

标题: 右键添加了一个新建空白文件(无后缀名) [打印本页]
作者: 窄口牛    时间: 2018-4-22 21:36
标题: 右键添加了一个新建空白文件(无后缀名)
现在是用vbs取时间秒来实现随机，怎么写可以没有新文件就建立新文件，有新文件，就在新文件后面加个序号，类推累加序号？
作者: 窄口牛    时间: 2018-4-22 23:07
执行一次建立一个文件。
作者: tt911    时间: 2018-4-23 09:42
VBS或批处理不会
习惯用ahk写
代码轻松完成
你要的功能太少了
你想好10条再来问
我给你现编
作者: 窄口牛    时间: 2018-4-23 11:11
tt911 发表于 2018-4-23 09:42
VBS或批处理不会
习惯用ahk写
代码轻松完成

谢谢关注，给你发qq消息没看到？
作者: dos时代菜鸟    时间: 2018-4-23 11:32
举个例子，先。
作者: tt911    时间: 2018-4-23 11:42
本帖最后由 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 +扩展名
作者: 窄口牛    时间: 2018-4-23 11:52
vbs执行一次建立一个名字为新文件的空白文件没有扩展名，如果已经有一个，就后面加个数字1，已经有新文件1，就建立的名字叫新文件2。不用提问填写扩展名，提问也行。
作者: 窄口牛    时间: 2018-4-23 11:55
我现在就是随机两位数字，不管有没有叫新文件的文件，用的是时间秒的末两位。
作者: 窄口牛    时间: 2018-4-23 14:29
  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
复制代码


重复概率不大，因为连续建立几个本身就不多。
作者: 窄口牛    时间: 2018-4-23 14:36
窄口牛 发表于 2018-4-23 11:11
谢谢关注，给你发qq消息没看到？

私信
作者: slore    时间: 2018-4-24 11:17
本帖最后由 slore 于 2018-4-24 11:18 编辑

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

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

http://bbs.wuyou.net/forum.php?mod=viewthread&tid=386879
作者: 窄口牛    时间: 2018-4-24 11:40
好的，我试试。
作者: 窄口牛    时间: 2018-4-26 07:07
本帖最后由 窄口牛 于 2018-4-26 07:08 编辑

其实也就是vbs，ini，inf，lst，cfg，sh，lua，还有安卓86里的很多。
作者: houxiren    时间: 2018-4-28 17:33
tt911 发表于 2018-4-23 09:42
VBS或批处理不会
习惯用ahk写
代码轻松完成

大师，好。
能否用AHK编一个能自定义快捷键的程序，或者只是AHK文件也可以
1，支持同目录下同名ini文件用于保存设置
2，支持相对路径
3，自定义的键，可以是 WIN+字母或数字
谢谢大师
作者: 窄口牛    时间: 2018-6-3 10:06
  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
复制代码

作者: holley2008    时间: 2018-6-3 16:38
窄口牛 发表于 2018-6-3 10:06

不错，已经很完善了！
作者: 窄口牛    时间: 2020-2-18 22:13
本帖最后由 窄口牛 于 2023-1-4 19:55 编辑


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



作者: 窄口牛    时间: 2020-2-19 22:46
通过vbs写文件头，那些只有文件头区分的文件就都可以建立。
作者: moxue289890    时间: 2020-2-20 19:01
是什么问题呢
作者: 窄口牛    时间: 2023-1-4 20:44
本帖最后由 窄口牛 于 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
作者: gutaiping2006    时间: 2023-1-5 08:20
楼主的方法很好，期待更加完善
作者: 窄口牛    时间: 2023-1-5 21:10
看来我的想法有问题，win右键新建的空白图像文件和文本改后缀一样效果。
作者: yyz2191958    时间: 2023-1-7 07:33
思路很不错哦
作者: a583091790    时间: 2023-1-8 11:43
感谢分享。

作者: 窄口牛    时间: 2023-2-20 16:51
本帖最后由 窄口牛 于 2023-2-21 07:44 编辑
  1. Option Explicit

  3. Dim sTEXT,sFILE

  5. sFILE = "grub.cfg"
  6. sTEXT = "#This is a grub2 configuration file "

  8. Call WriteFileUTF8_NOBOM(sFILE,sTEXT)

  10. WScript.Echo(sTEXT)

  12. Private Sub WriteFileUTF8_NOBOM(sFILE,sTEXT)
  13.     Const adSaveCreateNotExist = 1
  14.     Const adSaveCreateOverWrite = 2
  15.     Const adTypeBinary = 1
  16.     Const adTypeText = 2
  17.     Const adModeReadWrite = 3

  19.     Dim oUTF8Stream,oBinaryStream
  20.     Set oUTF8Stream = CreateObject("ADODB.Stream")
  21.     Set oBinaryStream = CreateObject("ADODB.Stream")

  23.     oUTF8Stream.Type = adTypeText
  24.     oUTF8Stream.Charset = "utf-8"
  25.     oUTF8Stream.Open
  26.     oUTF8Stream.WriteText sTEXT
  27.     oUTF8Stream.Position = 3 ' Skip BOM

  29.     oBinaryStream.Type = adTypeBinary
  30.     oBinaryStream.Mode = adModeReadWrite
  31.     oBinaryStream.Open

  33.     oUTF8Stream.CopyTo oBinaryStream
  34.     oUTF8Stream.Flush
  35.     oUTF8Stream.Close

  37.     oBinaryStream.SaveToFile sFILE, adSaveCreateOverWrite
  38.     oBinaryStream.Flush
  39.     oBinaryStream.Close

  41.     Set oUTF8Stream = Nothing
  42.     Set oBinaryStream = Nothing
  43. End Sub
复制代码


怎么粘到后面？用于创建cfg文件？
作者: wfg1555    时间: 2023-7-18 10:30
有新建文本文档的吗？
作者: zncs520    时间: 2023-7-18 21:17
谢谢分享。。。
作者: wfg1555    时间: 2023-7-20 11:32

我的WIN10右键菜单这样
作者: wwdzcdb    时间: 2023-11-6 22:40
wfg1555 发表于 2023-7-20 11:32
我的WIN10右键菜单这样

求分享新建文件夹 和新建文本文档 源码
作者: 远大的理想    时间: 2024-7-20 18:22
谢谢分享，很有用



欢迎光临 无忧启动论坛 (http://wuyou.net/) Powered by Discuz! X3.3