新建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
}