碼棧開發手冊(四)---編碼方式開發(文件相關函數)
3.1 J_File_MaxCount(文件路徑)
作用:獲取文件裏麵一共有多少行
返回值:獲取文件裏麵一共有多少行
例子:
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
3.2 J_File_OpenDialog([標題默認:請選擇文件])
作用:用於彈出一個文件選擇窗口
返回值:用戶選擇文件的路徑
例子:
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
3.3 J_File_Read(文件路徑,第幾行)
作用:獲取文件裏麵某一行的數據,當行號為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
3.4 J_File_Write(文件路徑,寫入內容,[模式:追加/覆蓋])
作用:寫入文件數據,默認追加模式,當文件不存在的時候會自動創建,模式分為追加:向文件末尾追加要寫入的內容;覆蓋:把原始文件內容替換為要寫入的內容。
返回值:成功返回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
6.6 J_File_PathToAllFileName(文件夾路徑)
作用:獲得文件夾下麵全部的文件名稱集合,可以配合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
6.7 J_File(文件(夾)路徑,動作,值)
作用:文件的一些基礎操作。
入參:動作可選值:
新建文件/刪除文件/複製文件/移動文件/文件改名/獲取文件大小
新建文件夾/刪除文件夾/複製文件夾/移動文件夾/文件夾改名/獲取文件夾大小
返回值:成功返回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; ==>
本文轉自碼棧平台
最後更新:2017-05-10 13:31:17