Removing character when scanning

[memcom]

We have a symbol omnilink scanner and I want to replace the first character from a barcode with a different character when I scan it. Example: I scan a barcode "babc1234" and I want the result to be "#abc1234" The first character will always be "b" and the replacement character will always be "#" Is there any way to do this?

Thanks,
Michael

 

[jlasman]

I would think it would be a trivial transformation for your underlying application.

Jim Asman
jlasman@telus.net

 

[DougP]

If you have the manual for the scanner
It should have and programming page in it to append a character(s) or prefix to the data just scanned.


DougP, MCP, A+

 

[DougP]

It appears you want to substitute a character. This can be done as well.


DougP, MCP, A+

 

[67peshawar294]

memcom,
As jlasman said, simple transform.
Why not put a textbox on the forms and reports that use the [barcode] field and add as the controlsource;
="#" & mid([barcode],2,12]
(twelve is arbitrary. Use a number that is >= to the longest scan.) That way you always have the original scan.
jim

 

[memcom]

I am scanning into a program that I do not have access to changing. It is a small program and I only have the exe file.

 

[DougP]

Is this what you have?

http://www.symbol.com/products/barcode_scanners/barcode_scannersacc_omnilink_u.html

DougP, MCP, A+

 

[memcom]

Yes that is what I have. I just found the programming manual and I will try it in just a little while.

 

[DougP]

memcom,
So what did you find out?

DougP, MCP, A+

 

[memcom]

I was able to program the scanner so that after the scan was made, it sent the home key, the delete key, the character I wanted to add, the end key and then enter. It seems to have worked great.

 

[DougP]

Fantastic !!!!


DougP, MCP, A+

 

[NMickey]

Hi memcom,

I hope this code can help you.
Dim strReplace as string
Dim strChange as string


strReplace = UCase(Microsoft.VisualBasic.Left(txtbox.Text, 1))

'If first string in textbox = 'a', then replace 'a' by '#'
if strReplace = "a" then
strChange = textbox.text
strChange = Replace(strChange , strReplace , "#")
End if

Hope this help you.

 

[NightGhos]

textbox.text = "#" & mid(textbox.text,2,len(textbox.text))

===================================
Never underestimate the power of stupid people in big numbers
===================================