Spanish [Resuelto] ¿Como leer linea a linea un texto de varias lineas?

[Sergio Castellari]

Situación:
Leer un campo tipo "Text" de una Base de datos MySQL que puede contener varias lineas o incluso ninguna. (actualmente al campo lo puede obtener por jRDC2)

Necesito:
a) Leer cuantas lineas de hasta 100 caracteres contiene.
b) Si tiene 1 o mas lineas, leer una a una mediante un bucle para luego ser agregadas a un B4XTable

Saludos

 

[josejad]

Echa un ojo a este post, y si no te va tal como indica prueba la última solución de Gabino

Split string to array (by CRLF) [Solved]

Hello good people, I have a long string with crlf already inside the string (string1&CRLF&string2&CRLF&string3 etc) how would I split it into an array ? in vb6 - buffer()=split(bigstring,crlf) how in B4x ? many thanks

www.b4x.com

 

[Sergio Castellari]

Hola @José J. Aguilar !!!!
GRACIAS!!!!!

Lo resolví así:

                    'Leo la Descripcion detallada renglon por renglon           
                    Dim lineas() As String                                                                'Inicializo un Array
                    lineas = Regex.Split(Chr(13),cDes)                                        'Separo cada linea x Chr(13) final
                    If lineas(0).ToLowerCase <> "Null".ToLowerCase Then        'Verifico si existe al menos un renglon con texto
                        For i=0 To lineas.Length -1                                                    'Leo cada renglon seaprado del array
                            Dim cLin As String                                                               
                            cLin = lineas(i).Trim                                                            'Quito espacios adelante/atras
                            If cLin.Length > 0 Then                                                        'Si tiene por lo menos una letra, la muestro
                              aCampos2.Initialize
                                aCampos2.Add("")
                                aCampos2.Add("")
                                aCampos2.Add(cLin)
                                aCampos2.Add("")
                                aCampos2.Add("D")
                                aRegistros.Add(aCampos2)
                            End If
                        Next
                    End If

En mi caso, necesitaba además que si una LINEA estaba vacía, tampoco la mostrara
Buen fin de semana!!!!!
Nos vemos!