Visual Basic - Ayuda!!! plizzz

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda!!! plizzz

Publicado por Jesse (7 intervenciones) el 27/09/2007 19:58:53
buen ps tengo este problema jeje quiero sacar las iniciales de un nombre que cuando precione un boton me aparescan las iniciales en un textbox tomadas de otro textbox pero con el nombre completo lo necesito para hacer un numero de control que tome las iniciales y genere algun otro numero automatico bueno ps es todo de antemano muchas grax
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:Ayuda!!! plizzz

Publicado por niwdeloko (53 intervenciones) el 27/09/2007 21:05:46
mira si te sriev esto:

cadena = "tu nombre completo"

i =0
' para empezar la primera incial si o si
inciales= mid(cadena,1,1)
do while i <= len(cadena)
if mid(cadena,i,1) =" " then
inciales = iniciales & mid(cadena,i+1,1)
else
endif
i = i+1

loop

msgbox inciales

'lo acomodas a tu antojo
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:Ayuda!!! plizzz

Publicado por Jesse (7 intervenciones) el 28/09/2007 04:44:02
Grax por responder jeje pero no me funciona ;_; me marca error en esta linea

If Mid(cadena, i, 1) = " " Then

Me podrian decir como arreglarlo? muchas gracias.
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:Ayuda!!! plizzz

Publicado por Jesse (7 intervenciones) el 28/09/2007 05:52:22
ya quedoooo!!!!!! jejeje muchas grax niwadeloko.

Asi quedo jeje

i = 1
For i = i To Len(Text1.Text)

If Mid(Text1.Text, i, 1) = " " Then
Text2.Text = Text2.Text & Mid(Text1.Text, i + 1, 1)
Else
End If

Next i

la variable i no se queria iniciar desde cero y ps desde 1 no me muestra la primer inicial del nombre completo jeje pero si le dejas un espacio al principio del nombre ya la muestra jeje. De nuevo muchas grax.
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