新建ahk文件,并写入注释符,方便注释

 ;*************************************************文件名*******************************************************; 
  文件全名=AHK_0.ahk                                                                                            ;
 while    (FileExist(文件全名))                                                                                   ;
   {                                                                                                            ;
     数字 := 0 + A_Index                                                                                        ;
     文件全名=AHK_ %数字% .ahk                                                                                  ;
   }                                                                                                            ;
MsgBox,,,% 文件全名,0.4                                                                                         ;
      file=%文件全名%                                                                                           ;新建文件
;***************************************************************************************************************;

 

 

;*************************************************字符串********************************************************;
分割线=;******************************************************************************************;             ; 分割线
注释符 := ”                                                                                          `;”        ;
                                                                                                                ;注释符  
注释符 =`r`n %注释符%`r`n                                                                                       ;
        分割线=`r`n%分割线%`r`n                                                                                 ;
;***************************************************************************************************************;

 

;***************************************************************************************************************;
loop 2                                                                                                          ;
    {                                                                                                           ;
      FileWriteLine(file,分割线,1,1)                                                                            ;写入分割线
        loop 8                                                                                                  ;
             {                                                                                                  ;
                                                                                                                ;
               FileWriteLine(file,注释符,1,1)                                                                   ;注释符 ,写入第一行,
                                                                                                                ;                                 
        }                                                                                                       ;
      FileWriteLine(file,分割线,1,1)                                                                            ;写入分割线
}                                                                                                               ;
;***************************************************************************************************************;

 

 

FileWriteLine( _File, _Data = “”, _Linenum = 1, _Replace = true ) { 

    FileRead, _FileData, % _File

    _DataBefore := Substr( _FileData, 1, Instr( _FileData, “`r`n”, false, 1, _Linenum – 1 ) )

    _DataAfter := Substr( _FileData, Instr( _FileData, “`r`n”, false, 1, ( _Replace ? _Linenum : _Linenum – 1 ) ) )

    _FileData := _DataBefore . _Data . _DataAfter

    FileDelete, % _File
    FileAppend, % _FileData, % _File
}

 

 

给TA买糖
共{{data.count}}人
人已赞赏
学习

ahk快速新建文件,解放麻烦的右键,还能同名判断自动加数字标签

2021-9-23 9:03:34

AHKV1办公学习工具

通过网页来远程控制电脑

2021-10-3 21:33:55

0 条回复 A文章作者 M管理员
    暂无讨论,说说你的看法吧
个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索