• Domingo 17 de Noviembre de 2024, 17:17

Autor Tema:  Se Puede Evaluar Un Enter  (Leído 2312 veces)

Soultaker

  • Miembro HIPER activo
  • ****
  • Mensajes: 972
  • Nacionalidad: pe
    • Ver Perfil
Se Puede Evaluar Un Enter
« en: Domingo 17 de Octubre de 2004, 06:41 »
0
Hola que tal como estan tengo una pregumta supongamos que en una variable de tipo "String" cuyo nombre sea "File", en esa variable yo almaceno todo el contenido de un bloc de notas tal y como esta en el archivo (osea con los Enter), como hago para evaluar cuantos Enter existen en esa variable. Espero que me hayan entendido. Si saben como es posible hacer eso avisenme pee. Gracias a todos. Bye.

Ahh me olvidaba felicitaciones Serghio por ser el nuevo moderador de Visual Basic .NET
http]
foros,programacion, c, c++, java,
linux, videojuegos, directX, .NET,
visual basic,robotica,microprocesadores

Para los nuevos usuarios de este Foro, por favor leerse esta discusión.
Cómo Hacer Preguntas De Forma Inteligente

Ojos que no ven... pisan caquita
Camarón que se duerme... muere electrocutado


<<< Harol Moreyra Bendezú >>>

sergiotarrillo

  • Moderador
  • ******
  • Mensajes: 1059
    • Ver Perfil
    • http://sergiot2.com/blog
Re: Se Puede Evaluar Un Enter
« Respuesta #1 en: Martes 19 de Octubre de 2004, 01:15 »
0
ohe como que no quiso salir el programa:

Primero: queria que cuente el programa y a la vez lo muestre en un RichTextBox, me la salía lo segundo pero lo primero nada, asi que tuve pruebe y pruebe, y llegue a la conclusión que: cuando usas un objeto Stream, ya no puedes usarlo otra vez, no se porque, pero eso pasaba a ver si un tigre .Net nos da la respuesta, lo que hize es abrir el archivo dos veces...

Aqui esta la funcion que cuenta los Enters:
Citar
Public Sub LeerEnter(ByVal arch As System.IO.StreamReader)

      Dim strTexto As String
      Dim nroEnter As Integer = 0


      'verificando si hay que leer
      While arch.Peek >= 0
         'si lee otra linea
         arch.ReadLine()
         nroEnter += 1
      End While

      'mostrar mensajes
      MsgBox("se encontraron " & nroEnter.ToString() & " enters en el texto")
   End Sub


Sergio Tarrillo
Blog]miBlog[/url]

No me visiten!

Soultaker

  • Miembro HIPER activo
  • ****
  • Mensajes: 972
  • Nacionalidad: pe
    • Ver Perfil
Re: Se Puede Evaluar Un Enter
« Respuesta #2 en: Martes 19 de Octubre de 2004, 03:21 »
0
Hey seghio que tal el codigo que me das veo que si funciona pero tu estas usando el ReadLine con la variable arch lo que yo quiero es usar el ReadToEnd tambien con la variable arch, el ReadToEnd te leo todo el archivo por lo tanto en la variable arch te va a mostrar todo el contenido del bloc de notas mientras que el ReadLine te lee linea por linea, digamos que quiero hacer esto.
Código: Text
  1.  
  2. Dim Arch As System.IO.StreamReader
  3. Dim Cadena As String
  4. Cadena = Arch.ReadToEnd()
  5. MsgBox (Cadena)
  6.  
  7.  
Digamos como hago para leer los Enter de la variable Cadena que es de tipo String, en el codigo que me das estas leyendo los Enter pero del mismo bloc de notas que es la variable Arch y de tipo System.IO.StreamReader. Espero que me hayas entendido.

 :comp:
http]
foros,programacion, c, c++, java,
linux, videojuegos, directX, .NET,
visual basic,robotica,microprocesadores

Para los nuevos usuarios de este Foro, por favor leerse esta discusión.
Cómo Hacer Preguntas De Forma Inteligente

Ojos que no ven... pisan caquita
Camarón que se duerme... muere electrocutado


<<< Harol Moreyra Bendezú >>>

sergiotarrillo

  • Moderador
  • ******
  • Mensajes: 1059
    • Ver Perfil
    • http://sergiot2.com/blog
Re: Se Puede Evaluar Un Enter
« Respuesta #3 en: Martes 19 de Octubre de 2004, 09:11 »
0
:devil:   sorry, pense que te envie el código tambien tienes razón en lo que dices primero lo abro en Stream, y luego lo leo en StreamReader...

ahi te envio el código para que lo pruebes....
El mensaje contiene 1 archivo adjunto. Debes ingresar o registrarte para poder verlo y descargarlo.


Sergio Tarrillo
Blog]miBlog[/url]

No me visiten!

Soultaker

  • Miembro HIPER activo
  • ****
  • Mensajes: 972
  • Nacionalidad: pe
    • Ver Perfil
Re: Se Puede Evaluar Un Enter
« Respuesta #4 en: Martes 19 de Octubre de 2004, 20:56 »
0
Hey Serghio gracias voy a probar tu codigo y de ahi te aviso si es lo que queria hacer. Gracias.
http]
foros,programacion, c, c++, java,
linux, videojuegos, directX, .NET,
visual basic,robotica,microprocesadores

Para los nuevos usuarios de este Foro, por favor leerse esta discusión.
Cómo Hacer Preguntas De Forma Inteligente

Ojos que no ven... pisan caquita
Camarón que se duerme... muere electrocutado


<<< Harol Moreyra Bendezú >>>

timpsoft

  • Miembro activo
  • **
  • Mensajes: 53
    • Ver Perfil
    • http://www.msdnlive.net/
Re: Se Puede Evaluar Un Enter
« Respuesta #5 en: Martes 19 de Octubre de 2004, 21:39 »
0
Prueba con esto:
       Dim nroEnters As Integer
        Dim file As New StreamReader("C:\Datos.txt", System.Text.Encoding.ASCII)
        Dim strDatos As String = file.ReadToEnd
        nroEnters = strDatos.Split(ControlChars.NewLine).Length