Programa para contar caracteres y palabras*. Act. 20/08/10

Iniciado por Braayhaan, 19 Agosto 2010, 03:05 AM

0 Miembros y 1 Visitante están viendo este tema.

Braayhaan

Pequeña aplicación para Contar los Caracteres/Palabras que hay en un texto plano, incluye opciones para abrir y guardar un documento.

Version Anterior


Nueva version


Descargar Proyecto

Nuevas opciones para cambiar la tipografia utilizada y tambien el color.

Modificado los botones ya no son como los feos de Windows xD

Modificada la fuente de la aplicacion por mi Preciada "Segoe UI"" Se habran dado cuenta que la uso en todos mis programas no? xD


[D4N93R]

Si le pones la opción de contar palabras lo añado a la lista de posts interesantes.. :)

Braayhaan

Okokok dejame ver que puedo hacer xDD

Lunfardo

#3
ajja me parece que te emocionaste con WPF =P , sin ofender, al contrario , muy buen trabajo


supongo que estos programas lo estas haciendo para practicar (por como vos dijiste,no tiene mucha utilidad), asi que estaria bueno que le vallas agregando funcionalidades



salu2 =D


pd: hace falta un manual de wpf para el foro  :silbar:

[D4N93R]

SmogMX pues vayan haciéndolo xD a mi no me gusta mucho que digamos xD Diseñando soy buen panadero xD

Keyen Night

Ayudo y comento ;D

Me gusta tu iniciativa Braayhaan ;)

Para contar las palabras puedes contar los espacios vacios (" ") y sumarle 1 ya que

Hola Texto De Prueba

Tiene 3 espacios + 1 = 4 Palabras

Tambien puedes agregarle contar vocales y consonantes entre muchas cosas más que podrías contar...
La Fé Mueve Montañas...
                                    ...De Dinero

La programación es más que un trabajo es más que un hobby es una pasión...

Braayhaan

Bueno he conseguido hacerlo funcionar pero de una forma muy peculiar solo funciona una sola vez xD

este es el code que he usado

Código (vbnet) [Seleccionar]
    Dim con As Integer = 1
        Dim i As Integer
        Dim Cadena As String
        Cadena = TextBox1.Text
        For i = 1 To Len(Cadena)
            If Mid(Cadena, i, 1) = " " Then
                con = con + 1
            End If
        Next
        Label1.Text = CStr(con)


Me funciona perfecto pero al dar click de nuevo al boton pasa esto: ejemplo escribo "hola como estas" pone que hay 3 palabras en el label, pero al darle click nuevamente al boton me suma ese resultado entonces me sale 6 xDD.

Supongo que la solucion a esto debe ser sencilla pero ahorita no se me ocurre nada si me pueden echar una mano con eso se los agradeceria :P

Salu2

[D4N93R]

Te doy una idea, primero agarra el string de todo el texto. LUego haces un split por \r\n o \n de esa forma te da un arreglo por cada párrafo. Ahora iteras cada párrafo y haces un split por el char ' ' espacio! y listo :) cuentas y ya xD

EDIT, creo que si haces un split por new char[] { '\n' , ' '} tambien debe funcionar!

Siuto

¿Con que sacaste la imagen de la ventana que esta sombreada?

Braayhaan

ehhh Impr pant pet sis y el efecto shadow del Photoshop xd