右键添加了一个新建空白文件(无后缀名)
现在是用vbs取时间秒来实现随机，怎么写可以没有新文件就建立新文件，有新文件，就在新文件后面加个序号，类推累加序号？ 本帖最后由 窄口牛 于 2023-1-4 19:55 编辑新的改成酱紫的了
执行一次建立一个文件。 VBS或批处理不会
习惯用ahk写
代码轻松完成
你要的功能太少了
你想好10条再来问
我给你现编
tt911 发表于 2018-4-23 09:42
VBS或批处理不会
习惯用ahk写
代码轻松完成
谢谢关注，给你发qq消息没看到？ 举个例子，先。 本帖最后由 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 +扩展名
vbs执行一次建立一个名字为新文件的空白文件没有扩展名，如果已经有一个，就后面加个数字1，已经有新文件1，就建立的名字叫新文件2。不用提问填写扩展名，提问也行。 我现在就是随机两位数字，不管有没有叫新文件的文件，用的是时间秒的末两位。 @echo off
::reg add "HKCR\Directory\Background\shell\newfile\command" /ve /d "wscript.exe c:\windows\新文件.vbs" /f
echo set fso=CreateObject("Scripting.FileSystemObject")>>%systemroot%\新文件.vbs
echo set fw=fso.createtextfile("新文件"^&""^&Second(Now),^2)>>%systemroot%\新文件.vbs
echo fw.close>>%systemroot%\新文件.vbs
重复概率不大，因为连续建立几个本身就不多。
窄口牛 发表于 2018-4-23 11:11
谢谢关注，给你发qq消息没看到？
私信 本帖最后由 slore 于 2018-4-24 11:18 编辑
不明白为什么用时间。。。会重复的。
就按你需求的逻辑，存在就加1，直到不存在建立有什么问题？
http://bbs.wuyou.net/forum.php?mod=viewthread&tid=386879 好的，我试试。 本帖最后由 窄口牛 于 2018-4-26 07:08 编辑
其实也就是vbs，ini，inf，lst，cfg，sh，lua，还有安卓86里的很多。 tt911 发表于 2018-4-23 09:42
VBS或批处理不会
习惯用ahk写
代码轻松完成
大师，好。
能否用AHK编一个能自定义快捷键的程序，或者只是AHK文件也可以
1，支持同目录下同名ini文件用于保存设置
2，支持相对路径
3，自定义的键，可以是 WIN+字母或数字
谢谢大师 @echo off
reg delete "HKCR\.txt\ShellNew" /f
reg add "HKCR\Directory\Background\shell\WinXNew" /v "MUIVerb" /d "新建" /f
reg add "HKCR\Directory\Background\shell\WinXNew" /v "Position" /d "Bottom" /f
reg add "HKCR\Directory\Background\shell\WinXNew" /v "SubCommands" /d "" /f
reg add "HKCR\Directory\Background\shell\WinXNew" /v "SeparatorAfter" /d "" /f
reg add "HKCR\Directory\Background\shell\WinXNew\shell" /ve /d "" /f
reg add "HKCR\Directory\Background\shell\WinXNew\shell\1.txt" /v "Icon" /d "imageres.dll,-2" /f
reg add "HKCR\Directory\Background\shell\WinXNew\shell\1.txt" /ve /d "空文件" /f
reg add "HKCR\Directory\Background\shell\WinXNew\shell\1.txt\command" /ve /d "wscript c:\windows\新文件.vbs" /f
echo set fso=createobject("scripting.filesystemobject") : name=^1>>%systemroot%\新文件.vbs
echo while fso.fileexists("新文件"^&""^&name)=true>>%systemroot%\新文件.vbs
echo name=name+1>>%systemroot%\新文件.vbs
echo wend>>%systemroot%\新文件.vbs
echo set o=fso.opentextfile("新文件"^&""^&name,2,true)>>%systemroot%\新文件.vbs
窄口牛 发表于 2018-6-3 10:06
不错，已经很完善了！{:3_148:} 通过vbs写文件头，那些只有文件头区分的文件就都可以建立。 是什么问题呢 本帖最后由 窄口牛 于 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
楼主的方法很好，期待更加完善 看来我的想法有问题，win右键新建的空白图像文件和文本改后缀一样效果。 思路很不错哦 感谢分享。
本帖最后由 窄口牛 于 2023-2-21 07:44 编辑
Option Explicit
Dim sTEXT,sFILE
sFILE = "grub.cfg"
sTEXT = "#This is a grub2 configuration file "
Call WriteFileUTF8_NOBOM(sFILE,sTEXT)
WScript.Echo(sTEXT)
Private Sub WriteFileUTF8_NOBOM(sFILE,sTEXT)
Const adSaveCreateNotExist = 1
Const adSaveCreateOverWrite = 2
Const adTypeBinary = 1
Const adTypeText = 2
Const adModeReadWrite = 3
Dim oUTF8Stream,oBinaryStream
Set oUTF8Stream = CreateObject("ADODB.Stream")
Set oBinaryStream = CreateObject("ADODB.Stream")
oUTF8Stream.Type = adTypeText
oUTF8Stream.Charset = "utf-8"
oUTF8Stream.Open
oUTF8Stream.WriteText sTEXT
oUTF8Stream.Position = 3 ' Skip BOM
oBinaryStream.Type = adTypeBinary
oBinaryStream.Mode = adModeReadWrite
oBinaryStream.Open
oUTF8Stream.CopyTo oBinaryStream
oUTF8Stream.Flush
oUTF8Stream.Close
oBinaryStream.SaveToFile sFILE, adSaveCreateOverWrite
oBinaryStream.Flush
oBinaryStream.Close
Set oUTF8Stream = Nothing
Set oBinaryStream = Nothing
End Sub
怎么粘到后面？用于创建cfg文件？
有新建文本文档的吗？ 谢谢分享。。。 https://s1.ax1x.com/2023/07/18/pCTRYH1.jpg
我的WIN10右键菜单这样 wfg1555 发表于 2023-7-20 11:32
我的WIN10右键菜单这样
求分享新建文件夹 和新建文本文档 源码
页:
[1]