B4J Library [BANanoPhpFileAPI] PHP File Management for BANano

Ola

Some time ago I published this.

[PHP] The Ultimate File Management PHP Functions

Hi there Attached please find some useful php for file management. This is something that I have been wanting for a very long time, decided to create one myself. 1. Zip a folder to a file 2. UnZip a file to a target location 3. Create a text file (recursively) 4. Append to a text file 5...

www.b4x.com

So here is the BANano Version. #Have Fun, Extend.

BANanoPHP

• Initialize (sLogFile As String, bIncludeResponses As Boolean) As BANanoPHP
  initialize the class for use
  sLogFile - you can pass it the LogFile name if you want to keep logs of what the library is doing
  bIncludeResponses - include the response of the operations of the logs
• FileGetInfo (fileObj As Map) As FileInfo
  gets the infor about the file from file input
  
  'gets the file info from an input component and save to FileInfo type
  dim fi As FileInfo = FileGetInfo(fileObj)
• FileUploadWait (fileO As Map, limit As Long, targetDir As String) As FileInfo
  upload file to server and return success or error
  server should have write permissions
  targetDir - the target directory, will be created if it does not exist
  fo is the file object for file input change event
  
  'upload a file to assets folder
  Dim res As String = BANano.Await(FileUploadWait(fo, "./assets"))
• DeleteLogFileWait As String
  delete the log file
  
  'delete the log file
  Dim res As String = BANano.Await(bPHP.DeleteLogFile)
• UpdateLogWait (content As String) As String
  update a log file with content
  
  'update the log file
  Dim res As String = BANano.Await(bPHP.UpdateLogWait("Started BANanoPHP..."))
• FileCreateWait (fileName As String, content As String) As String
  write a text file and wait
  
  'create a new text file with contents
  Dim res As String = BANano.Await(bPHP.FileCreateWait("./assets/mashy.txt", "Creating a new text file"))
• DirectoryListWait (directoryPath As String) As Map
  get the directory listing
  
  'get the directory listing
  Dim dl As Map = BANano.Await(bPHP.DirectoryListWait("./"))
• FileExistsWait (fn As String) As String
  check file existence and returns yes or no
  
  'check file existence
  Dim fe As string = BANano.Await(bPHP.FileExistsWait("./mashy.txt"))
  if fe = "yes" then
  'the file exists
  else
  'the file does not exist
  end if
• DirectoryRenameWait (oldname As String, newname As String) As String
  rename / move a directory
  
  'rename or move a directory
  Dim res As String = BANano.Await(bPHP.DirectoryRenameWait("./assets1", "./assets2"))
• DirectoryExistsWait (fn As String) As String
  check directory existence and returns yes or no
  
  'check directory existence
  Dim fe As string = BANano.Await(bPHP.DirectoryExistsWait("./anele"))
  if fe = "yes" then
  'the directory exists
  else
  'the directory does not exist
  end if
• FileReadWait (fn As String) As String
  get the file contents
  
  'get the file contents
  Dim text As String = BANano.Await(bPHP.FileReadWait("./mashy.txt"))
• FileAppendWait (fn As String, content As String) As String
  append text to a file use \n for new lines
  
  'append text to a file
  Dim res As String = BANano.Await(bPHP.FileAppendWait("./mashy.txt", "This is new content..."))
• FileAppendNewLineWait (fn As String) As String
  append a new line to a file
  
  'append a new line to a file
  Dim res As String = BANano.Await(bPHP.FileAppendNewLineWait("./mashy.txt"))
• FileRenameWait (oldname As String, newname As String) As String
  rename a file
  
  'rename a file to another returns file existence
  dim res as string = BANano.Await(bPHP.FileRenameWait("./mashy.txt", "./mashy1.txt"))
• FileCopyWait (fn As String, newLocation As String) As String
  copy a file to another or another directory, it will create folder structure if not existing when copying to another directory
  'Example: bPHP.FileCopyWait("./mashy.txt", "./mashy1.txt")
  'Example: bPHP.FileCopyWait("./mashy.txt", "./assets/mashy1.txt")
  
  'copy the file
  Dim res As String = BANano.Await(bPHP.FileCopyWait("./mashy.txt", "./mashy1.txt"))
• FileDeleteWait (fn As String) As String
  delete a file
  
  'delete the file
  Dim res As String = BANano.Await(bPHP.FileDeleteWait("./mashy.txt"))
• DirectoryCreateWait (dirName As String) As String
  create a directory, this also can create recursively
  Example: bPHP.DirectoryCreateWait("./mashy")
  Dim res As String = BANano.Await(bPHP.DirectoryCreateWait("./anele/mashy/mbanga/is/enjoying/BANanoPHP"))
  
  'create a directory
  bPHP.DirectoryCreateWait("./mashy/1")
• WebsiteGetHTMLWait (siteURL As String) As String
  get an html file from site
  
  'get the HTML of a website
  Dim res As String = BANano.Await(bPHP.WebsiteGetHTMLWait("http://thedomain.com"))
• GetJSONWait (siteURL As String) As String
  get json
  
  'get JSON from an API
  Dim res As String = BANano.Await(bPHP.GetJSONWait("http://jsonip.com"))
• GetIPAddressWait As String
  get your internet IP address
  
  'get IP Address
  Dim res As String = BANano.Await(bPHP.GetIPAddressWait)
• DirectoryDeleteWait (dirName As String) As Boolean
  delete directory completely
  
  'delete the directory recursibely
  Dim res As String = BANano.Await(bPHP.DirectoryDeleteWait("./assets/anele"))
• DirectoryListRecursiveWait (dirName As String) As List
  directory list recursively
  
  'get the directory listing recursively
  Dim res As String = BANano.Await(bPHP.DirectoryListRecursiveWait("./assets/mashy"))
• ZipDirectoryWait (dirName As String, zipFileName As String) As String
  zip a directory
  
  'zip the directory to a file
  Dim res As String = BANano.Await(bPHP.ZipDirectoryWait("./scripts", "./mashy.zip"))
• UnZipWait (zipFileName As String, targetFolder As String) As String
  unzip a file
  
  'unzip the file to a target location, target folders will be created if they dont exist
  Dim res As String = BANano.Await(bPHP.UnZipWait("./mashy.zip", "./assets"))
• DirectoryCopyWait (dirName As String, targetLocation As String) As String
  directory copy, target location folder is created if it does not exist
  
  'copy the directory to a new location, target folders will be created if they dont exist
  Dim res As String = BANano.Await(bPHP.DirectoryCopy("./scripts", "./backup scripts"))
• PathInfoWait (dirName As String) As String
  get path info for a file
  
  'get path info for a file
  Dim res As String = BANano.Await(bPHP.PathInfoWait("./scripts/file1.txt"))
  Dim pm As Map = BANano.FromJson(pathinfo)
  Dim dirname as string = pm.get("dirname")
  Dim basename as string = pm.get("basename")    'file name with extension
  Dim extension as string = pm.get("extension")
  Dim filename as string = pm.get("filename")    'filename without extension
• SendEmailWait (fromEmail As String, toEmail As String, ccEmail As String, subject As String, message As String)
  send an email
  to send email via gmail, you need to set less secure apps on https://myaccount.google.com/
  1. Click Security
  
  'send an email
  bPHP.SendEmailWait("from@gmail.com", "to@gmail.com", "cc@gmail.com", "Test Email", "Have you received this...")

#SharingTheGoodness