Gerar Código de Barras ASP [Probema]

[Igor Meireles 0]

Boa tarde,

 

Peguei esse código na internet para gerar código de barras, porem ele tem um problema.

 

Todo código que eu gero sai com um "0" a mais no começo, que eu nao consigo remover de jeito nenhum.

 

Segue a função:

Function getCodigoBarras(ByVal Numeros, ByVal st)

	

	Dim F, F1, F2, i, Texto
	Dim arrCodigoBarra(99)
	Dim htmlCodigoBarra
	htmlCodigoBarra         = ""
	Const Fino		= 1
	Const Largo		= 3
	Const Altura	        = 25
	
	if isempty(arrCodigoBarra(0)) Then
	
		arrCodigoBarra(0) = "00110"
		arrCodigoBarra(1) = "10001"
		arrCodigoBarra(2) = "01001"
		arrCodigoBarra(3) = "11000"
		arrCodigoBarra(4) = "00101"
		arrCodigoBarra(5) = "10100"
		arrCodigoBarra(6) = "01100"
		arrCodigoBarra(7) = "00011"
		arrCodigoBarra(8) = "10010"
		arrCodigoBarra(9) = "01010"
		
		For F1 = 9 To 0 Step -1
		
			For F2 = 9 To 0 Step -1
			
				F = F1 * 10 + F2
				Texto = ""
				For i = 1 To 5
					Texto = Texto & Mid(arrCodigoBarra(F1), i, 1) + Mid(arrCodigoBarra(F2), i, 1)
				Next
				
				arrCodigoBarra(f) = Texto
				
				
				
			Next
			
		Next
		
	End if

	'Construindo o código HTML do código de barras
	'Guarda inicial
	htmlCodigoBarra = htmlCodigoBarra & "<img src=p.jpg width=" & Fino & " height=" & Altura & " border=0>"
	htmlCodigoBarra = htmlCodigoBarra & "<img src=b.jpg width=" & Fino & " height=" & Altura & " border=0>"
	htmlCodigoBarra = htmlCodigoBarra & "<img src=p.jpg width=" & Fino & " height=" & Altura & " border=0>"
	htmlCodigoBarra = htmlCodigoBarra & "<img src=b.jpg width=" & Fino & " height=" & Altura & " border=0>"
	htmlCodigoBarra = htmlCodigoBarra & "<img"
'Response.Write htmlCodigoBarra

	Texto = Numeros
	
	'HTML dos dados
	Do While Len(Texto) > 0
	
		i		= Cint(Left(Texto,2))
		Texto	= Right(Texto, Len(Texto)- 2)
		F		= arrCodigoBarra(i)
		For i = 1 To 10 Step 2
			If Mid(F, i, 1) = "0" Then
				F1 = Fino
			Else
				F1 = Largo
			End If
			
			htmlCodigoBarra = htmlCodigoBarra & " src=p.jpg width=" & F1 & " height=" & Altura & " border=0><img"
			
			If mid(F, i + 1, 1) = "0" Then
				F2 = Fino
			Else
				F2 = Largo
			End If

			htmlCodigoBarra = htmlCodigoBarra & " src=b.jpg width=" & F2 & " height=" & Altura & " border=0><img"
	
		Next
	Loop
	
	'Guarda final
	htmlCodigoBarra = htmlCodigoBarra & " src=p.jpg width=" & Largo & " height=" & Altura & " border=0>"
	htmlCodigoBarra = htmlCodigoBarra & "<img src=b.jpg width=" & Fino & " height=" & Altura & " border=0>"
	htmlCodigoBarra = htmlCodigoBarra & "<img src=p.jpg width=1 height=" & Altura & " border=0>"
	
	'Retornando a função
	getCodigoBarras	= htmlCodigoBarra
	Response.Write (getCodigoBarras)
	Response.Write ("<br>0"&Numeros)
	
End Function

Se alguém puder ajudar eu agradeço.

[xanburzum 169]

dá uma olhada no fórum que postei alguns outros códigos, pode te ajudar

[Gustavo Emygdio Barboza 24]

Igor no último response.write da função tem <br>0 &numeros

 

Tente sem ele...

[xanburzum 169]

realmente, é este zero a mais aí no print... Mas por que foi colocado ?

[Fábio BN 17]

E aquele Padrão 128C que o Correio utiliza para CEP, alguém tem?

 

Abraços!