Visual Basic - Encontrar coma (,) en cadena de texto y borrarla

Life is soft - evento anual de software empresarial
   
Vista:

Encontrar coma (,) en cadena de texto y borrarla

Publicado por Omar (56 intervenciones) el 05/03/2009 20:25:38
Que tal foro.

Tengo una funcion para convertir numeros a letras, pero le aplico el formatnumber para que los valores me aparezcan bien y a partir de ahi no me da bien el valor con letra, el detalle es la coma. Alguien me puede decir como ubicarla y despues eliminarla ?

Si tengo yo 250000.00 me pone el texto bien, pero si tengo 250,000.00 ahi viene el problema.

Este es mi codigo:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Function SumarImporte()
Dim I As Currency
Dim Contador As Currency
'*****VARIABLES DE VALORES*****
Dim Subt As Currency
Dim Iva As Currency
Dim Tot As Currency
 
Dim CTot() As String
 
For I = 1 To MSFGridReg.Rows - 1
Contador = Contador + MSFGridReg.TextMatrix(I, 4)
Next I
 
Subt = Contador
TXTSUB.Text = FormatNumber(Subt, 2)
Iva = Subt * 0.15
TXTIVA.Text = FormatNumber(Iva, 2)
Tot = Subt + Iva
TXTTOT.Text = FormatNumber(Tot, 2)
 
CTot = Split(TXTTOT.Text, Mid$(Format$(1.1, "#.#"), 2, 1))
 
With tNum2Text
    TXTLETRA.Text = "***" + " " + .Numero2Letra(CTot(0), , , , , Masculino, Masculino) + " " + TipoMoneda + " " + CTot(1) + "/" + "100" + " " + "***"
End With
End Function


Alguien me puede dar una ayudita ?

De antemano, 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

RE:Encontrar coma (,) en cadena de texto y borrar

Publicado por P3L30N2009 (701 intervenciones) el 05/03/2009 20:55:56
Para eliminar la coma utiliza la función Replace:

Dim s As String
s = Replace(Text1, ",", "")

y otra cosa, para concatenar cadenas en VB no utilices el signo de mas (+) que te puede dar disgustos, sino el ampersand (&).
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

RE:Encontrar coma (,) en cadena de texto y borrar

Publicado por Omar (56 intervenciones) el 05/03/2009 21:39:11
Mil Gracias peleon, era lo que necesitaba.

Podras decirme que tipo de problemas da el signo de mas o cual es la diferencia entre el y el ampersand ?

Un abrazo desde Mexico.
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

Pero no siempre traen coma !

Publicado por Omar (56 intervenciones) el 05/03/2009 21:59:23
Como buscaria si trae coma la quita, sino no haga nada ?

:(
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:Pero no siempre traen coma !

Publicado por P3L30N2009 (701 intervenciones) el 05/03/2009 22:02:12
No tienes que buscar nada, si la coma existe la elimina y si no existe no hace nada, es decir, se queda como está.
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:Encontrar coma (,) en cadena de texto y borrar

Publicado por laura (1 intervención) el 05/06/2009 01:46:36
escritoresfilofosos imbestigadores y poetas cuentan que un mitico continente desaparecido en el atlantico por una misteriosa castrastrofe. su nombre tancomo se lee enlas leyendas de la antiguedad era atlantide ; poceida por una riquesa poseida la cibilisacion refinilizadiama y sus habitantes eran los guerdianes de una sabiduria milenaria.
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:Encontrar coma (,) en cadena de texto y borrar

Publicado por german (1 intervención) el 04/12/2012 17:32:50
muchas gracias amigo por este codigo me fue de gran ayuda

"Dim s As String
s = Replace(Text1, ",", "") "
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:Encontrar coma (,) en cadena de texto y borrar

Publicado por Amadeo (1 intervención) el 10/06/2013 21:50:01
Gracias mi pana
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