Visual Basic - delimitador

Life is soft - evento anual de software empresarial
   
Vista:

delimitador

Publicado por alejandra (5 intervenciones) el 08/10/2008 20:58:31
hola a todos ojala me puedan ayudar ya que es un pequeño detalle pero no se como resolverlo

miren tengo un programita que corta un txt delimitado por _ giones bajos hasta ahi super bien el problema es que cuando corta el testo no respeta lineas y junta la primera linea con la segunda yo necesito la informacion que esta al principio de la linea y algo que esta entremedio ntonces no puedo extraer lo que esta al principio de la linea ya que me la junta con la linea anterior y entre una y otra lineas no hay delimitador .

ejemplo texto sin cortar

12_21351_132111511
35_21515_21515151

deberia quedar asi
12
21351
132111511

35
21515
21515151

pero queda asi

12
21351
132111511||35
21515
21515151

oyala me puedan ayudar de ante mano muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:delimitador

Publicado por quique (85 intervenciones) el 08/10/2008 21:32:11
y cual es el codigo que pones?

y estas segura que hay un salto de linea en el txt entre
12_21351_132111511
y
35_21515_21515151

???

oyala te pueda ayudar y de ante mano de nada!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:delimitador

Publicado por alejandra (5 intervenciones) el 08/10/2008 23:27:18
Private Sub Command1_Click()
Dim inf As String ' a inf se le pasan todos los datos del textbox1
Dim strArray() As String 'es el arreglo que se le pasa el archivo txt
Dim intCount As Integer

'Dim delimitador As String
Delimitador = Text2 '
inf = Text1 ' aqui se le pasan todos los datos de text1 a inf

strArray = Split(inf, Delimitador) ' aqui se toma el arreglo completo y se aplica 'strArray = Split(inf, delimitador2)
' strArray = Split(strArray(-1), " ")
List1.Clear
For intCount = LBound(strArray) To UBound(strArray)

List1.AddItem strArray(intCount) ' a list1 se le asign el arreglo para mostrar los subindices disponibles
Next
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:delimitador

Publicado por Paul (16 intervenciones) el 09/10/2008 05:12:39
Que tal Alejandra, te armé una función, espero que te sirva, según mis pruebas, los resultados son los que vos necesitás.

'---------------------------------------------------------------
Function Formatear(Texto As String) As String
Dim Lineas As Variant, Items As Variant
Dim i As Integer, j As Integer, Ret As String

Ret = ""
Lineas = Split(Texto, vbNewLine)

For i = LBound(Lineas) To UBound(Lineas)
If (Lineas(i) <> "") Then
Items = Split(Lineas(i), "_")

For j = LBound(Items) To UBound(Items)
Ret = Ret & Items(j) & vbNewLine
Next j
Ret = Ret & vbNewLine
End If
Next i

Lineas = ""
Items = ""
Formatear = Ret
End Function
'---------------------------------------------------------------

Suerte!
Paul.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar