Trying to construct a smart string literal to be passed to a BBCodeView.
The BBCodeView needs to show items lined up in 2 columns, and I am using a TableRow Sub to construct this string.
Having a problem constructing this string literal and tried many variations, but so far not been successful.
Code should be something like this, just to construct the first row:
	
	
	
	
	
	
	
		
			
			
			
			
			
		
	
	
	
		
	
	
		
	
Any advice how this can be done?
RBS
			
			The BBCodeView needs to show items lined up in 2 columns, and I am using a TableRow Sub to construct this string.
Having a problem constructing this string literal and tried many variations, but so far not been successful.
Code should be something like this, just to construct the first row:
			
				B4X:
			
		
		
		Sub MakeStringLiteral
    Dim str As String
    str = $"
${TableRow(${Array As String("App version", ${strVersion})})}
"$
   
End Sub
Sub TableRow(arrFields() As String) As String
   
    Select Case arrFields.Length
        Case 1
            Return $"
[Span MinWidth=100%x Alignment=center]${arrFields(0)}[/Span]"$
        Case 2
            Return $"
[Span MinWidth=50%x Alignment=center]${arrFields(0)}[/Span]
[Span MinWidth=50%x Alignment=center]${arrFields(1)}[/Span]"$
        Case 3
            Return $"
[Span MinWidth=33%x Alignment=center]${arrFields(0)}[/Span]
[Span MinWidth=33%x Alignment=center]${arrFields(1)}[/Span]
[Span MinWidth=33%x Alignment=center]${arrFields(2)}[/Span]"$
        Case 4
            Return $"
[Span MinWidth=25%x Alignment=center]${arrFields(0)}[/Span]
[Span MinWidth=25%x Alignment=center]${arrFields(1)}[/Span]
[Span MinWidth=25%x Alignment=center]${arrFields(2)}[/Span]
[Span MinWidth=25%x Alignment=center]${arrFields(3)}[/Span]"$
        Case 5
            Return $"
[Span MinWidth=20%x Alignment=center]${arrFields(0)}[/Span]
[Span MinWidth=20%x Alignment=center]${arrFields(1)}[/Span]
[Span MinWidth=20%x Alignment=center]${arrFields(2)}[/Span]
[Span MinWidth=20%x Alignment=center]${arrFields(3)}[/Span]
[Span MinWidth=20%x Alignment=center]${arrFields(4)}[/Span]"$
        Case Else
            Return ""
    End Select
   
End SubAny advice how this can be done?
RBS
 
				 
 
		 
 
		 
 
		 
 
		 
 
		