SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: Soultaker en Domingo 17 de Octubre de 2004, 06:41

Título: Se Puede Evaluar Un Enter
Publicado por: Soultaker en Domingo 17 de Octubre de 2004, 06:41

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

Título: Re: Se Puede Evaluar Un Enter
Publicado por: sergiotarrillo en Martes 19 de Octubre de 2004, 01:15

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

Título: Re: Se Puede Evaluar Un Enter
Publicado por: Soultaker en Martes 19 de Octubre de 2004, 03:21

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:

Título: Re: Se Puede Evaluar Un Enter
Publicado por: sergiotarrillo en Martes 19 de Octubre de 2004, 09:11

: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....

Título: Re: Se Puede Evaluar Un Enter
Publicado por: Soultaker en Martes 19 de Octubre de 2004, 20:56

Hey Serghio gracias voy a probar tu codigo y de ahi te aviso si es lo que queria hacer. Gracias.

Título: Re: Se Puede Evaluar Un Enter
Publicado por: timpsoft en Martes 19 de Octubre de 2004, 21:39

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