B4J Library [BANanoVueMaterial]: The first complete opensource VueJS UX based framework for BANano

thinktank said:

splash screen addition will be highly useful.

Click to expand...

1. Charts do not exist ie. eCharts and ChartKick
2. Quill editor is not included
3. Prism is not included
4. InfoBox is not included
5. Faker is not included (own developed class)
6. CircleCounter is not included
7. ArcCounter is not included
8. OXML i.e. excel reporting is not included.
9. Designer is not included.

1. We create a button and add it to a container.
2. When clicked, we show the file selector
3. On file change in the selector, we read the file contents with a promise.
4. When the file contents are got, we display in console log. Off course, you can do whatever you need with text file contents

Sub Code
    vm = pgIndex.vm
    'create a container to hold all contents
    Dim cont As VMContainer = vm.CreateContainer(name, Me)
    'hide this container
    cont.Hide
    '
    Dim btnTextFile As VMButton = vm.CreateButton("btnTextFile", Me).SetLabel("Read Text File Without Upload")
    cont.AddControlS(btnTextFile.Button, btnTextFile.ToString, 1, 1, 6, 6, 6, 6)
   
    'add container to page
    vm.AddContainer(cont)
    ' add an invisible file selector
    vm.AddFileSelect(Me, "fucomponent")
   
End Sub


Sub btnTextFile_click(e As BANanoEvent)
    vm.ShowFileSelect("fucomponent")
End Sub

Sub fucomponent_change(e As BANanoEvent)
    Dim fileList As List = vm.GetFileListFromTarget(e)
    If fileList.size = 0 Then Return
    'only process 1 file
    Dim fr As String = fileList.get(0)
    '
    Dim Result As Map
    Dim promise As BANanoPromise = vm.readAsText(fr)
    promise.Then(Result)
        'get the json content
        Dim txt As String = Result.get("result")
        Log(txt)
        '
    promise.Else(Result)
        Dim compError As String = Result.get("result")
        Log(compError)
    promise.End
   
    'nully file component so we can select same file
    vm.NullifyFileSelect("fucomponent")
End Sub

Mashiane said:

Upcoming Updates: Reading Excel files and processing the output

This is featured in the "modFiles" examples to import Excel worksheet.

This returns a JSON list that you can process anyway you want. This reads the first worksheet in the workbook.


1. Add a button to select the file

B4X:

Dim btnExcelFile As VMButton = vm.CreateButton("btnExcelFile", Me).SetLabel("Read Excel File Without Upload")
    cont.AddControlS(btnExcelFile.Button, btnExcelFile.ToString, 2, 1, 12, 12, 12, 12)

2. Add a file select

B4X:

vm.AddFileSelect(Me, "xlscomponent")

3. Add the click event for the file selector

B4X:

Sub btnExcelFile_click(e As BANanoEvent)
    vm.ShowFileSelect("xlscomponent")
End Sub

4. Trap the file change event and read the contents of the excel file.

B4X:

Sub xlscomponent_change(e As BANanoEvent)
    Dim fileList As List = vm.GetFileListFromTarget(e)
    If fileList.size = 0 Then Return
    'only process 1 file
    Dim fr As String = fileList.get(0)
    '
    Dim Result As Map
    Dim promise As BANanoPromise = vm.readAsBinaryString(fr)
    promise.Then(Result)
        'get the json content
        Dim data As String = Result.get("result")
        '
        Dim be As BANanoExcel
        be.initialize
        Dim records As List = be.ReadFile(data)
        Log(records)
        dtExcel.SetDataSource(records)
        '
    promise.Else(Result)
        Dim compError As String = Result.get("result")
        Log(compError)
    promise.End
  
    'nully file component so we can select same file
    vm.NullifyFileSelect("xlscomponent")
End Sub

In our case we load the contents of the excel sheet to the data-table, use dtExcel.SetDataSource(?) The data table column names are CaseSenSitive now!!

B4X:

'add a table to the page use the same columns in the excel file
    dtExcel = vm.CreateDataTable("dtExcel", "OrderDate", Me)
    dtExcel.SetTitle("Orders")
    dtExcel.AddSearch
    dtExcel.AddColumn("OrderDate", "Order Date")
    dtExcel.AddColumn("Region", "Region")
    dtExcel.AddColumn("Rep", "Rep")
    dtExcel.AddColumn("Item", "Item")
    dtExcel.AddColumn("Units", "Units")
    dtExcel.AddColumn("Unit Cost", "Unit Cost")
    dtExcel.AddColumn("Total", "Total")
    cont.AddControlS(dtExcel.DataTable, dtExcel.ToString, 3, 1, 12, 12, 12, 12)

Click to expand...