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

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

sergiotarrillo

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

Soultaker

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

 
Dim Arch As System.IO.StreamReader
Dim Cadena As String
Cadena = Arch.ReadToEnd()
MsgBox (Cadena)

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.

sergiotarrillo

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

Soultaker

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

timpsoft

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

SoloCodigo

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

Soultaker

Se Puede Evaluar Un Enter

sergiotarrillo

Re: Se Puede Evaluar Un Enter

Soultaker

Re: Se Puede Evaluar Un Enter

sergiotarrillo

Re: Se Puede Evaluar Un Enter

Soultaker

Re: Se Puede Evaluar Un Enter

timpsoft

Re: Se Puede Evaluar Un Enter