How can I find and replace an unknown series of numbers, of known length, inside a string?

For example, I have the string "lajdsfasd 1234123412341234 asdf lkj". I don't know the number, but I know how long it is (credit card number). How can replace that CC number with other text?

Replace and Instr functions don't take wildcards (#, *).

I'm working in Access 2000 VBA, and deleting credit card data from our database.

thanks,

Conrad

I would split the string, and use the like operator to see if one of the component is a valid credit card number, something like:

p = split(mystring, " ")
dim stringOut as string
for i = 0 to ubound(p)
if p(i) like "################" then
stringOunt = StringOut & "**** "
else
stringOut = stringOut & p(i) & " "
endif
next

Marco

By using split function you can spilt the string with *,#
then you can use like operator in if condition

Charul Shukla

By using split function you can spilt the string with *,# or any space
then you can use like operator in if condition

Charul Shukla