Visual Basic - contar letras

Life is soft - evento anual de software empresarial
   
Vista:

contar letras

Publicado por ricado (2 intervenciones) el 11/08/2009 05:07:46
hola gracias a todos de ante mano queria preguntar sobre un programa que me permita contar las letras que hay en un texoto ya sea escrito o abierto con extencion .txt o doc eso es lo menos importante pero que cuente cuantas letras hay en el texto
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:contar letras

Publicado por Pedro Luis (878 intervenciones) el 11/08/2009 08:10:24
La instruccion es Len(Variable)
Len(text1).
En el caso de un fichero texto
Variable=Line Input #1
Len(Variable), claro que esto no es un programa y no es lo que estás buscando.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:contar letras

Publicado por juan carlos (518 intervenciones) el 15/08/2009 02:02:38
hola ricardo :
te iba enviar el programa completo con el codigo fuente pero no se tu mail, si deseas el codigo fuente del programa enviame un mail a: mega.juca@hotmail.es
primer programa:
has esto:
1.-abre una forma nueva e inserta un textbox y un label1
2.-inserta este codigo

Private Sub Text1_KeyPress(KeyAscii As Integer)
Label1.Caption = Len(Text1)
End Sub
______________________________________________

segundo programa
si deseas leer todo un documento has esto:
1.- abre una forma
2.- inserta un CommonDialog1
3.- inserta un text1 y pon en multiline a true
4.- pon en scrollbars a both
5.- pon tres botones
6.- pon 2 labels
7.- inserta este codigo

Private Sub Command1_Click()
CommonDialog1.DialogTitle = "Abrir"
CommonDialog1.DefaultExt = "*.Txt"
CommonDialog1.Filter = "Archivos de texto (*.txt)|*.txt"
CommonDialog1.ShowOpen
Label1 = CommonDialog1.FileName
Dim n_File As Integer
Dim Contenido As String
'Número de archivo libre
n_File = FreeFile
'Abre el archivo indicado
Open Label1 For Input As n_File
'Lee todo los datos del archivo y lo almacena en la variable
Contenido = Input$(LOF(n_File), n_File)

'Cierra el archivo abierto
Close n_File
'Carga el contenido de la variable en el TextBox
Text1.Text = Contenido
Exit Sub
Err_Sub:

MsgBox Err.Description, vbCritical
End Sub

Private Sub Command2_Click()
Label2.Caption = Len(Text1) & " caracteres"
End Sub

Private Sub Command3_Click()
'liberamos la memoria
Set Form1 = Nothing
'terminamos el programa
End
End Sub

Private Sub Form_Load()
Command1.Caption = "Cargar"
Command2.Caption = "Contar"
Command3.Caption = "Salir"
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Label1.Caption = Len(Text1)
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar