Visual Basic - Contar espacios en Blanco

Life is soft - evento anual de software empresarial
 
Vista:

Contar espacios en Blanco

Publicado por Angelo (2 intervenciones) el 31/10/2005 02:54:21
Saludos,

Necesito hacer un programa que me lea como entrada cualquier cadena de caracteres, me elimine los espacios en blanco y cuente esos espacios en blanco para luego mostrarlos en una caja de texto. ¿Cómo se hace?

También quiero saber cómo puedo hacer para comparar esa cadena con una serie de símbolos por separado, es para saber si cada caracter de esa cadena contiene los símbolos que yo he declarado como constantes.

Hay una instrucción en VB en la que uno compara una cadena con cualquier caracter desde la A-Z, ¿cómo es que se escribe?

Mil gracias.
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
sin imagen de perfil

RE:Contar espacios en Blanco

Publicado por Raúl Santiago (178 intervenciones) el 31/10/2005 09:40:56
Busca la ayuda de la instrucción Instr, con este encuentras los caracteres que necesitas, luego mira Mid para coger los datos de la cadena en dos trozos y borrar el del medio, haces esto n veces y listo
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 espacios en Blanco

Publicado por Eli (49 intervenciones) el 31/10/2005 17:49:51
‘Compañero a ver si te sirve este código
‘Lo primero contamos los espacios en blanco y unimos la cadena
'Segundo comparamos con los caracteres deseados

Primero creas 4 TextBox con los nombres por defecto
Segundo 2 botones Cmdcontar, CmdComparar

Text1 =Digitamos la frase a evaluar
Text2 =Presentamos la frase anterior unida sin espacios
Text3 =Presentaos el total de espacios en blanco que tiene la frase
Text4 =Presentamos el total de las comparaciones acertadas

Private Sub Cmdcontar_Click()
Espacios = 0
Posicion = 1
Total = Len(Text1.Text)
Letra = LCase(Mid(Text1.Text, Posicion, 1))
For i = 1 To Total
If Letra = " " Then
Espacios = Espacios + 1
Else
'Aqui uno el texto sin espacios
Text2.Text = Text2.Text + Letra
End If
Posicion = Posicion + 1
Letra = LCase(Mid(Text1.Text, Posicion, 1))
Next i
Text3.Text = Espacios

End Sub

‘Luego comparamos el resultado anterior que guardamos en la caja de texto 2
‘con los caracteres que queramos por ejemplo “a b c” y ponemos el resultado
‘en otra caja de texto

Private Sub CmdComparar_Click()
Dim TotalEncontrado As Integer
Posicion = 1
Total = Len(Text2.Text)
Letra = LCase(Mid(Text2.Text, Posicion, 1))
For i = 1 To Total
'Comparación de la cadena
Select Case Letra
Case "a" 'Escriba el simbolo o letra deseado
TotalEncontrado = TotalEncontrado + 1
Case "b" 'Escriba el simbolo o letra deseado
TotalEncontrado = TotalEncontrado + 1
Case "c" 'Escriba el simbolo o letra deseado
TotalEncontrado = TotalEncontrado + 1
End Select

Posicion = Posicion + 1
Letra = LCase(Mid(Text2.Text, Posicion, 1))
Next i
Text4.Text = TotalEncontrado

End Sub

Suerte, salu2
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