I have this small function to add text to a list.
Work fine if I compile in a project.
But if I add the exact same function code to my main project, the compiler say:
Syntax Error
'next' expected
'(' expected
Anybody can explain, what I'm makin wrong?
Work fine if I compile in a project.
But if I add the exact same function code to my main project, the compiler say:
Syntax Error
'next' expected
'(' expected
Anybody can explain, what I'm makin wrong?
B4X:
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim cadena As String
cadena= "La batalla de Normandía, llamada en clave Operación Overlord, fue la operación militar efectuada por los Aliados durante la Segunda Guerra Mundial que culminó con la invasión de los territorios de Europa occidental ocupados por la Alemania nazi. La operación dio comienzo el 6 de junio de 1944 con el desembarco de Normandía (Operación Neptune, más conocida como el Día D). Un asalto aerotransportado llevado a cabo por mil doscientas aeronaves precedió al desembarco anfibio, que involucró a cinco mil barcos. El día 6 de junio, ciento sesenta mil soldados cruzaron el canal de la Mancha de Inglaterra a Francia y hacia finales de agosto las tropas aliadas en suelo francés eran más de tres millones."
' cadena="Hola"
Private EditText1 As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
' Activity.LoadLayout("main")
justificar_izquierda(cadena, 10, 1)
'EditText1.Text=cadena
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub justificar_izquierda (cadenaj As String, maximo_caracteres As Int, maximo_lineas As Int)
Dim SF As StringFunctions
Dim listaS As List
Dim Lista_final As List
Dim lista3 As List
Dim cadena_temporal As String
Dim Cadena_final As String
listaS.Initialize
Lista_final.Initialize
lista3.Initialize
SF.Initialize
listaS= SF.StringToList(cadenaj, False, False)
For i=0 To listaS.Size -1
cadena_temporal= listaS.Get(i) & cadena_temporal
If cadena_temporal = maximo_caracteres Or cadena_temporal.Length > maximo_caracteres Then
Lista_final.Add(Cadena_final)
cadena_temporal=listaS.Get(i)
Cadena_final=listaS.Get(i)
Else If cadena_temporal.Length < maximo_caracteres Then
Cadena_final=Cadena_final &" "& listaS.Get(i)
End If
Next
If Cadena_final.Length < maximo_caracteres Then
Lista_final.Add(Cadena_final)
End If
For i = 0 To Lista_final.Size -1
Log(Lista_final.Get(i))
Next
End Sub
Attachments
Last edited: