>Does anyone have a way to check a string to ensure that there are not two like characters side by side. This is for a password validation routine?
>
>Thanks

Function HasNeighbourChar
lparameters tcStr
local llNeighBour, lcTemp, lnLastChar, lnCurChar
lcTemp=sys(2015)+'.tmp'
StrToFile(tcStr,lcTemp)
lnLastChar = -1
lnHandle=fopen(lcTemp)
do while !feof(lnHandle)
 lnCurChar = asc( fread(lnHandle,1) )
 if lnCurChar = lnLastChar
  * Neighbour chars
  llNeighBour = .T.
  exit
 else
   lnLastChar = lnCurChar
 endif
enddo
fclose(lnHandle)
erase (lcTemp)
return llNeighbour

Cetin