public function testeString(byref s as string) as boolean
dim i as long, letzteZiffer as long
dim schar as string, lchar as long
dim ZifferVorhanden(1 to 7) as boolen
testeString = false
if not len(s) = 9 then exit function
letzteZiffer = 0
for i = 1 to 7: ZifferVorhanden(i) = false: next
for i = 1 to 9
schar = mid(s, i, 1)
if schar =
"x"
then
letzteZiffer = 0
elseif instr(
"1234567"
, schar) then
lchar = clng(schar)
if lchar < letzteZiffer then exit function
letzteZiffer = lchar
ZifferVorhanden(lchar) = true
else
exit function
end if
next
for i = 1 to 7
if not ZifferVorhanden(i) then exit function
next
testeString = true
end function