Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Private xl As XLUtils
End Sub
Public Sub Initialize
End Sub
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
xl.Initialize
Dim parser As CSVParser
parser.Initialize
Dim tr As TextReader
tr.Initialize2(File.OpenInput("C:\Users\H\Downloads\countries-20140629.csv", ""), "Windows-1252")
Dim input As String = tr.ReadAll
Dim table As List = parser.Parse(input, ",", False)
CreateWorkbook(table, "C:\Users\H\Downloads\test.xlsx")
End Sub
Private Sub CreateWorkbook (Table As List, FileName As String)
Dim wb As XLWorkbookWriter = xl.CreateWriterBlank
Dim sheet As XLSheetWriter = wb.CreateSheetWriterByName("Sheet1")
Dim address As XLAddress = xl.AddressName("A1")
For Each row() As String In Table
address.Col0Based = 0
For Each cell As String In row
sheet.PutString(address, cell)
address.Col0Based = address.Col0Based + 1
Next
address.Row0Based = address.Row0Based + 1
Next
Dim TitleStyle As XLStyle = wb.CreateStyle.FontBold(12).ForegroundColor(xl.COLOR_GREY_25_PERCENT)
sheet.AddStylesToRange(xl.CreateXLRange(xl.AddressName("A1"), xl.AddressName("C1")), Array(TitleStyle))
sheet.AutoSizeColumn(0)
sheet.AutoSizeColumn(1)
sheet.AutoSizeColumn(2)
wb.SaveAs(FileName, "", False)
End Sub