Ver Mensaje Individual
  #18 (permalink)  
Antiguo 19/09/2008, 10:48
Avatar de moradazo
moradazo
 
Fecha de Ingreso: julio-2008
Ubicación: [email protected]
Mensajes: 355
Antigüedad: 15 años, 10 meses
Puntos: 2
Respuesta: Visual Basic 2005: TextBox

Gracias David, lo resolvi de esta forma:

Código PHP:
Dim slinea As String ""
Dim cadena1 As String ""
Dim cadena2 As String ""
          
If System.IO.File.Exists(C:/test.txt) = True Then
            Dim objReader 
As New System.IO.StreamReader(C:/test.txt), System.Text.Encoding.Default)
            Do While 
objReader.Peek() <> -1
                sLinea 
objReader.ReadLine()
                If 
sLinea.StartsWith("Espanol"Then
                    cadena1 
sLinea
                End 
If
                If 
sLinea.StartsWith("Ingles"Then
                    cadena2 
sLinea
                    TextLine 
TextLine & (cadena1 vbNewLine cadena2) & vbNewLine
                End 
If
            
Loop
            objReader
.Close()
        
End If 
Este codigo hace una lectura de un archivo de texto (C:/test.txt) aceptando todos los acentos y caracteres especiales como la "ñ" (System.Text.Encoding.Default). Lo que hace es tomar las cadenas que empiezan por Espanol y las ordena en una variable tipo String (cadena1), luego otra condicion de que cuando empiezan en Ingles se agreguen en otra variable tipo String (Cadena2). Al final se concatenaran con brincos de lineas, el orden que yo necesite hacerle. Se puede agregar por ahi un contador para sumar las lineas del textbox.

Gracias!