作用:获取文件里面一共有多少行 返回值：获取文件里面一共有多少行 例子：
Func Example31() ;声明一个名为$filepath的局域变量，创建一个文件选择对话框，用户可以选择文件，返回选择的文件路径，并将此路径保存至$filepath变量中 Local $filepath = J_File_OpenDialog() ;声明一个名为$max的局域变量，将$filepath文件里面内容行数保存至这个变量中 Local $max = J_File_MaxCount($filepath) ;创建一个循环，从1到$max For $i = 1 To $max ;声明一个名为$nr的局域变量，将$filepath文件里面第$i行的内容保存至这个变量中 Local $nr = J_File_Read($filepath, $i) ;@crlf的意思是换行符，另起一行 ;通过系统信息提示框显示拼凑的文本 J_MsgBox("第" & $i & "行" & @CRLF & $nr) ;下一次循环 Next ;当读取文件内容第几行设置为0的时候，此函数会读取文件中的全部文本 Local $alltext = J_File_Read($filepath, 0) J_MsgBox($alltext) ;向文件尾部追加数据 J_File_Write($filepath, "追加一条数据", "追加") Local $alltext = J_File_Read($filepath, 0) ;校验追加的数据是否成功 J_MsgBox($alltext) ;把文件的数据替换掉 J_File_Write($filepath, "覆盖过后的数据", "覆盖") Local $alltext = J_File_Read($filepath, 0) ;校验覆盖的数据是否成功 J_MsgBox($alltext) EndFunc ;==>Example31作用:用于弹出一个文件选择窗口 返回值：用户选择文件的路径 例子：
Func Example31() ;声明一个名为$filepath的局域变量，创建一个文件选择对话框，用户可以选择文件，返回选择的文件路径，并将此路径保存至$filepath变量中 Local $filepath = J_File_OpenDialog() ;声明一个名为$max的局域变量，将$filepath文件里面内容行数保存至这个变量中 Local $max = J_File_MaxCount($filepath) ;创建一个循环，从1到$max For $i = 1 To $max ;声明一个名为$nr的局域变量，将$filepath文件里面第$i行的内容保存至这个变量中 Local $nr = J_File_Read($filepath, $i) ;@crlf的意思是换行符，另起一行 ;通过系统信息提示框显示拼凑的文本 J_MsgBox("第" & $i & "行" & @CRLF & $nr) ;下一次循环 Next ;当读取文件内容第几行设置为0的时候，此函数会读取文件中的全部文本 Local $alltext = J_File_Read($filepath, 0) J_MsgBox($alltext) ;向文件尾部追加数据 J_File_Write($filepath, "追加一条数据", "追加") Local $alltext = J_File_Read($filepath, 0) ;校验追加的数据是否成功 J_MsgBox($alltext) ;把文件的数据替换掉 J_File_Write($filepath, "覆盖过后的数据", "覆盖") Local $alltext = J_File_Read($filepath, 0) ;校验覆盖的数据是否成功 J_MsgBox($alltext) EndFunc ;==>Example31作用:获取文件里面某一行的数据,当行号为0的时候默认读取全部内容 返回值：返回文件指定行的内容 例子：
Func Example31() ;声明一个名为$filepath的局域变量，创建一个文件选择对话框，用户可以选择文件，返回选择的文件路径，并将此路径保存至$filepath变量中 Local $filepath = J_File_OpenDialog() ;声明一个名为$max的局域变量，将$filepath文件里面内容行数保存至这个变量中 Local $max = J_File_MaxCount($filepath) ;创建一个循环，从1到$max For $i = 1 To $max ;声明一个名为$nr的局域变量，将$filepath文件里面第$i行的内容保存至这个变量中 Local $nr = J_File_Read($filepath, $i) ;@crlf的意思是换行符，另起一行 ;通过系统信息提示框显示拼凑的文本 J_MsgBox("第" & $i & "行" & @CRLF & $nr) ;下一次循环 Next ;当读取文件内容第几行设置为0的时候，此函数会读取文件中的全部文本 Local $alltext = J_File_Read($filepath, 0) J_MsgBox($alltext) ;向文件尾部追加数据 J_File_Write($filepath, "追加一条数据", "追加") Local $alltext = J_File_Read($filepath, 0) ;校验追加的数据是否成功 J_MsgBox($alltext) ;把文件的数据替换掉 J_File_Write($filepath, "覆盖过后的数据", "覆盖") Local $alltext = J_File_Read($filepath, 0) ;校验覆盖的数据是否成功 J_MsgBox($alltext) EndFunc ;==>Example31作用：写入文件数据,默认追加模式,当文件不存在的时候会自动创建，模式分为追加：向文件末尾追加要写入的内容；覆盖：把原始文件内容替换为要写入的内容。 返回值：成功返回1，失败返回0 例子：
Func Example31() ;声明一个名为$filepath的局域变量，创建一个文件选择对话框，用户可以选择文件，返回选择的文件路径，并将此路径保存至$filepath变量中 Local $filepath = J_File_OpenDialog() ;声明一个名为$max的局域变量，将$filepath文件里面内容行数保存至这个变量中 Local $max = J_File_MaxCount($filepath) ;创建一个循环，从1到$max For $i = 1 To $max ;声明一个名为$nr的局域变量，将$filepath文件里面第$i行的内容保存至这个变量中 Local $nr = J_File_Read($filepath, $i) ;@crlf的意思是换行符，另起一行 ;通过系统信息提示框显示拼凑的文本 J_MsgBox("第" & $i & "行" & @CRLF & $nr) ;下一次循环 Next ;当读取文件内容第几行设置为0的时候，此函数会读取文件中的全部文本 Local $alltext = J_File_Read($filepath, 0) J_MsgBox($alltext) ;向文件尾部追加数据 J_File_Write($filepath, "追加一条数据", "追加") Local $alltext = J_File_Read($filepath, 0) ;校验追加的数据是否成功 J_MsgBox($alltext) ;把文件的数据替换掉 J_File_Write($filepath, "覆盖过后的数据", "覆盖") Local $alltext = J_File_Read($filepath, 0) ;校验覆盖的数据是否成功 J_MsgBox($alltext) EndFunc ;==>Example31 5.5 J_File_Create(文件路径) 作用：创建一个文件。 返回值：返回1 例子： Func Example31_1() J_File_Create("D:\1.txt") EndFunc ;==>Example31_1作用:获得文件夹下面全部的文件名称集合，可以配合J_EXP系列函数使用 返回值：返回文件夹下所有文件的集合 例子：
Func Example46() ;获得文件夹下所有文件的集合 Local $file_all = J_File_PathToAllFileName("D:\pic\") ;查看集合文件的个数 Local $max = UBound($file_all) ;创建一个For循环，用来遍历全部文件 For $i = 1 To $max ;取出当前循环文件的名称 Local $file = J_EXP($file_all, "", $i) ;在当前“我的工具”视图中创建这条数据 J_CreateItem($file) Next EndFunc ;==>Example46作用：文件的一些基础操作。 入参：动作可选值： 新建文件/删除文件/复制文件/移动文件/文件改名/获取文件大小 新建文件夹/删除文件夹/复制文件夹/移动文件夹/文件夹改名/获取文件夹大小 返回值：成功返回1，失败返回0
func Example47() ;文件夹操作： local $path = 'D:\file\测试文件' local $res = J_File($path,"是否存在") ;新建 if $res = 0 then J_File($path,"新建文件夹") EndIf ;移动 J_File($path,"移动文件夹","C:\file\测试文件") ;复制 J_File("C:\file\测试文件","复制文件夹","D:\file\测试文件new") ;改名 J_File("D:\file\测试文件new","文件夹改名","D:\file\测试文件rename") ;文件夹大小 local $size = J_File("D:\code","获取文件夹大小") Msgbox(0,"","大小(MB) :" & Round($size / 1024 / 1024)) ;删除文件夹 J_File("D:\nw2","删除文件夹") ;文件操作： local $filepath = 'D:\file\测试文件rename\11.txt' $res = J_File($filepath,"是否存在") ;新建 if $res = 0 then J_File($filepath,"新建文件") EndIf ;写值 J_File_Write($filepath,'你好，码栈',"追加") ;获取大小 local $size = J_File($filepath,"获取文件大小") j_msgbox("文件大小：字节" & $size) ;移动:将文件移动到目录：C:\file\测试文件下 J_File($filepath,"移动文件","C:\file\测试文件") ;复制:将文件复制到目录:D:\file下 J_File($filepath,"复制文件","D:\file") ;改名 J_File($filepath,"文件改名","C:\file\测试文件\22.txt") ;删除文件 J_File($filepath,"删除文件") endfunc; ==>本文转自码栈平台
