Visual Basic - ayuda

Life is soft - evento anual de software empresarial
 
Vista:

ayuda

Publicado por gpe (10 intervenciones) el 16/05/2001 02:47:23
hola :a todos ,de favor me podrian ayudar?, mi problema es el siguiente:
estoy tratando de generar un codigo de barras (ean13) pero en esa cadena de 12 dijitos hay un punto ¿como elimino ese punto para que no me genere una barra. EJEMPLO
1234567890.35 aqui son 13 dijitos el punto se tomo como caracter como lo elimino para que quede 123456789035 y sean solo 12 dijitos
y se pueda generar el dijito verificador.
esto se toma de tres campos es decir se esta haciendo una concatenacion y el punto viene de un indicador. Espero haberme explicado.
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

Publicado por Francisco Rossi (Stone Cold) (76 intervenciones) el 16/05/2001 04:35:11
Pueba este codigo, te cambiara todos los puntos por nada.

Solo para VB6, probe con el VB5 pero no lo tiene

Dim NUMEROCONCERO, NUM

NUMEROCONCERO = 1234567890.35
NUM = Replace(NUMEROCONCERO, ".", "")

MsgBox NUM
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

Publicado por Christian A. Valeria Celedón (217 intervenciones) el 16/05/2001 07:29:12
Para quitar el punto debes usar la función Replace. Por ejemplo:

Text1 = "1234567890.35"
Text2 = Replace(Text1, ".", "")

La función Replace solo está implementada en VB6. En todo caso, si dispones de una versión anterior puedes usar la siguiente función:

Private Function ReplaceVB5(Expression As String, Find As String, Replace As String) As String
Dim Pos As Integer
Dim Izquierda As String
Dim Derecha As String

Pos = InStr(1, Expression, Find)
If Pos = 0 Then
ReplaceVB5 = Expression
Exit Function
End If

Izquierda = Left(Expression, Pos - 1)
Derecha = Right(Expression, Len(Expression) - Pos - Len(Find) + 1)
ReplaceVB5 = Izquierda & Replace & Derecha
End Function

Luego, tendrías que llamarla de la siguiente forma:

Text1 = "1234567890.35"
Text2 = ReplaceVB5(Text1, ".", "")

Espero que te sirva...
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