B4J Library [BANanoPHP] A collection of some inline PHP functions

Ola

Download

With intentions to do some PHP related functions, i've thought why not make a class with all functions that could be used. Besides uploading files, sending emails, we can do other things too. This is based on some stuff I have been using..

Will sectionalize the examples... and all follow the INLINE PHP approach.

In AppStart, ensure that your PHP settings are done properly..

'set php settings
    BANano.PHP_NAME = $"${AppName}.php"$
    BANano.PHPHost = $"http://${ServerIP}:${Port}/${AppName}/"$
    BANano.PHPAddHeader("Access-Control-Allow-Origin: *")

We will keep the list updated as we find more stuff..

 

[Mashiane]

1. Getting a list of files and directories from a folder.

We are using the root folder of where our app is published on..

Dim bPHP As BANanoPHP
    bPHP.Initialize
    'get directory listing
    Dim assetsList As String = BANano.CallInlinePHPWait(bPHP.DIRECTORY_LIST, bPHP.BuildDirectoryList("./"))
    Dim dl As BANAnoPHPDirList = bPHP.GetDirectoryList(assetsList)
    BANano.GetElement("body").Append(assetsList)
    Log(dl)

 

[Mashiane]

2. Checking existence of a file.

This returns 'yes' if the file exists and 'no' when the file does not exist.

Dim bPHP As BANanoPHP
        bPHP.Initialize
        Dim fe As String =     BANano.CallInlinePHPWait(bPHP.FILE_EXISTS, bPHP.BuildFileExists(sdatabasename))

#Code Updated on first post!

 

[Mashiane]

3. Creating a log file. Text you write to the file is appended. The log in this case sits on the root folder

Dim logFile As String = "./phplog.txt"
    
    BANano.CallInlinePHPWait(bPHP.FILE_LOG, bPHP.BuildWriteFile(logFile, "Started BANanoPHP"))
    BANano.CallInlinePHPWait(bPHP.FILE_LOG, bPHP.BuildWriteFile(logFile, "Created mashy.txt"))

Example output

2020-06-12 21:34:51 Started BANanoPHP
2020-06-12 21:34:51 Created mashy.txt
2020-06-12 21:34:52 Get file directory listing for root
2020-06-12 21:34:52 Check file existence for mashy.txt
2020-06-12 21:34:52 Read file contents for mashy.txt
2020-06-12 21:34:52 Append to file mashy.txt
2020-06-12 21:43:33 Started BANanoPHP
2020-06-12 21:43:33 Created mashy.txt
2020-06-12 21:43:33 Get file directory listing for root
2020-06-12 21:43:33 Check file existence for mashy.txt
2020-06-12 21:43:33 Read file contents for mashy.txt
2020-06-12 21:43:33 Append to file mashy.txt

 

[Mashiane]

4. Read the contents of a file and return text

In this example, we append the contents to the body of the page.

Dim strfc As String = BANano.CallInlinePHPWait(bPHP.GET_FILE, bPHP.BuildGetFile("./mashy.txt"))
    body.Append(strfc)
    body.Append("<br>")

 

[Mashiane]

5. Append text to an existing file, all added content will be added to the end of the file

BANano.CallInlinePHPWait(bPHP.FILE_APPEND, bPHP.BuildWriteFile("./mashy.txt", "Let's append some text!"))

 

[Mashiane]

6. Overwrite contents of a file. All contents of the file are over-written

BANano.CallInlinePHPWait(bPHP.FILE_WRITE, bPHP.BuildWriteFile("./mashy.txt", "This is a test file..."))

 

[Mashiane]

7. Copy a file from one location to another

We also call file exists to check if the file exists after being copied..

'copy a file
    BANano.CallInlinePHPWait(bPHP.FILE_LOG, bPHP.BuildWriteFile(logFile, "Copy mashy.txt"))
    BANano.CallInlinePHPWait(bPHP.FILE_COPY, bPHP.BuildFileCopy("./mashy.txt", "./assets/mashy1.txt"))
    Dim sfc As String = BANano.CallInlinePHPWait(bPHP.FILE_EXISTS, bPHP.BuildFileExists("./assets/mashy1.txt"))
    body.Append($"File Copy Exists: ${sfc}"$)
    body.Append("<br>")

 

[Mashiane]

8. Rename a file

We also run file exists to see if the rename was a success

'rename a file
    BANano.CallInlinePHPWait(bPHP.FILE_LOG, bPHP.BuildWriteFile(logFile, "Rename mashy1.txt"))
    BANano.CallInlinePHPWait(bPHP.FILE_RENAME, bPHP.BuildFileRename("./assets/mashy1.txt", "./assets/mashy2.txt"))
    Dim sfc As String = BANano.CallInlinePHPWait(bPHP.FILE_EXISTS, bPHP.BuildFileExists("./assets/mashy2.txt"))
    body.Append($"File Rename Exists: ${sfc}"$)
    body.Append("<br>")

 

[Mashiane]

9. Delete a file (this does not work on a directory)

We also run file exists to see if the deletion of the file worked.

'delete a file
    BANano.CallInlinePHPWait(bPHP.FILE_LOG, bPHP.BuildWriteFile(logFile, "Delete mashy2.txt"))
    BANano.CallInlinePHPWait(bPHP.FILE_DELETE, bPHP.BuildFileDelete("./assets/mashy2.txt"))
    Dim sfc As String = BANano.CallInlinePHPWait(bPHP.FILE_EXISTS, bPHP.BuildFileExists("./assets/mashy2.txt"))
    body.Append($"File Deleted Exists: ${sfc}"$)
    body.Append("<br>")

 

[Mashiane]

10. Create / Make Directories - this creates directories recursively.

'create a directory
    BANano.CallInlinePHPWait(bPHP.FILE_LOG, bPHP.BuildWriteFile(logFile, "Create recursive directories"))
    BANano.CallInlinePHPWait(bPHP.DIRECTORY_MAKE, bPHP.BuildDirectoryMake("./assets/anele/mashy/mbanga/is/enjoying/BANanoPHP"))

Example output..

 

[Mashiane]

11. Get HTML content from a URL (for example when you want to parse the content etc)

'get html from URL
    BANano.CallInlinePHPWait(bPHP.FILE_LOG, bPHP.BuildWriteFile(logFile, "Get html from url"))
    Dim html As String = BANano.CallInlinePHPWait(bPHP.FILE_GETHTML, bPHP.BuildFileGetHTML("http://www.google.com"))
    Log(html)

We have logged the html to the console.log

 

[Mashiane]

12. Get JSON content from a URL. We have used a free API here to get IP of computer as shown in the internet

'get json from URL
    BANano.CallInlinePHPWait(bPHP.FILE_LOG, bPHP.BuildWriteFile(logFile, "Get json from url"))
    Dim json As String = BANano.CallInlinePHPWait(bPHP.FILE_GETJSON, bPHP.BuildFileGetJSON("http://jsonip.com"))
    body.Append($"URL JSON: ${json}"$)

 

[Mashiane]

13. Recursive folder listing...

'recursive listing
    BANano.CallInlinePHPWait(bPHP.FILE_LOG, bPHP.BuildWriteFile(logFile, "Recursive listing"))
    Dim rl As String = BANano.CallInlinePHPWait(bPHP.DIRECTORY_LISTRECURSIVE, bPHP.BuildDirectoryListRecursive("."))
    Dim lst As List = BANano.FromJson(rl)
    Log(lst)

Sample output

 

[Mashiane]

14. Zip a directory recursively / Zip a single file

'directory zip
    BANano.CallInlinePHPWait(bPHP.FILE_LOG, bPHP.BuildWriteFile(logFile, "Directory zip"))
    BANano.CallInlinePHPWait(bPHP.DIRECTORY_ZIP, bPHP.BuildDirectoryZip("./scripts", "./scripts.zip"))

 

[Mashiane]

15. Unzip a file

'file unzip
    BANano.CallInlinePHPWait(bPHP.FILE_LOG, bPHP.BuildWriteFile(logFile, "File Unzip"))
    BANano.CallInlinePHPWait(bPHP.FILE_UNZIP, bPHP.BuildFileUnzip("./scripts.zip", "./assets"))

 

[Mashiane]

17. Copy a directory to another

'copy a directory
    BANano.CallInlinePHPWait(bPHP.FILE_LOG, bPHP.BuildWriteFile(logFile, "Directory Copy"))
    BANano.CallInlinePHPWait(bPHP.DIRECTORY_COPY, bPHP.BuildDirectoryCopy("./scripts", "./scripts backup"))