2002-09-28 16:27

' InvCase$ - A string function which converts each alpha character's case to its opposite
'
' Not really useful, but something different :)

     $IFNDEF __INVCASE$_INC: $DEFINE __INVCASE$_INC

      FUNCTION InvCase$(ByRef Str AS STRING) AS STRING
       FOR i=1 TO LEN(Str)
        IF MID$(Str, i, 1)=UCASE$(MID$(Str, i, 1)) THEN
         Str=REPLACE$(Str, LCASE$(MID$(Str, i, 1)), i)
        ELSE
         Str=REPLACE$(Str, UCASE$(MID$(Str, i,1)), i)
        END IF
       NEXT i

       Result=Str
      END FUNCTION

     $ENDIF

2002-09-28 16:27