Visual Basic para Aplicaciones - Algo dificil con cadena de texto

Life is soft - evento anual de software empresarial
   
Vista:

Algo dificil con cadena de texto

Publicado por ana isabel (4 intervenciones) el 08/01/2008 23:41:21
hola

la situacion es esta:
tengo un lector de barras ke al leer me genera este dato por ejemplo
1,45459,1

lo ke necesito es un comando para poner las comillas " despues de la coma, y otras comillas antes de la segunda coma
ke kede tipo asi 1,"45459",1

gracias se ke es facil pero no se como hacerlo, 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
información
Otras secciones de LWP con contenido de Visual Basic para Aplicaciones
- Código fuente de Visual Basic para Aplicaciones
- Cursos de Visual Basic para Aplicaciones
- Temas de Visual Basic para Aplicaciones
información
Códigos de Visual Basic para Aplicaciones
- Buscador para Excel
- Quinigrama
- Control de Stock

RE:Algo dificil con cadena de texto

Publicado por JuanC (243 intervenciones) el 09/01/2008 00:50:46
decidite: es algo difícil o es fácil??!!!

Sub test()
Dim sStr$
sStr = "1,45459,1"
sStr = Split(sStr, ",")(0) & ",""" & Split(sStr, ",")(1) & """," & Split(sStr, ",")(2)
MsgBox sStr
End Sub

Saludos desde Baires, JuanC
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

y para borrar espacios en blanco?

Publicado por ana isabel (4 intervenciones) el 09/01/2008 17:40:32
me funciono super bien el codigo, gracias, solo una pregunta

a veces el lector me arroja esto
1,12547, 3
osea me pone espacios despues de la segunda coma
como elimino esos espacios en blanco para ke kede
1,"12547",3

el codigo es este

Dim sStr$
sStr = Text1.Text
sStr = Split(sStr, ",")(0) & ",""" & Split(sStr, ",")(1) & """," & Split(sStr, ",")(2)
MsgBox sStr

te lo agradezco mil :) besos
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:y para borrar espacios en blanco?

Publicado por TheEmulator (29 intervenciones) el 09/01/2008 21:08:13
Hola
Usa la funcion Replace que busca una cadena y la remplaza con otra.

sStr = Replace(str," ","")
Lo que hace es buscar todos los espacios en blanco y los remplaza con una cadena vacia osea los borra(Nota que entre las primeras comillas dobles hay un espacio y en las segundas comillas no hay nada).

--------------
Dim sStr$
sStr = Text1.Text
sStr = Split(sStr, ",")(0) & ",""" & Split(sStr, ",")(1) & """," & Split(sStr, ",")(2)
sStr = Replace(str," ","")
MsgBox sStr
----------------

Saludos
TheEmulator
http://www.theemulator.tk
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

resuelto, gracias

Publicado por ana (4 intervenciones) el 09/01/2008 22:08:46
me funciono de maravilla, gracias tu lo sabes todo, te lo agradezco muchisimo
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:y para borrar espacios en blanco?

Publicado por Tito (1 intervención) el 25/09/2008 17:43:32
Gracias por la ayuda si funciona
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:y para borrar espacios en blanco?

Publicado por minkus (1 intervención) el 14/04/2009 12:02:46
hola quiero remplazar los espacios en blanco por cualquier caracter y despues sumar cuantos espacios en blanco tengo en visual basic 5
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:y para borrar espacios en blanco?

Publicado por german segura (1 intervención) el 22/09/2008 16:32:29
hola que tal mi duda es similar a esta nada mas que ami el lector me arroja asi:
55 2352 01 ó 52 77 07 80 me pone espacios en blanco cada lugar
como puedo quitarlos??
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