LCASE$ function

Purpose:

LCASE$ converts a string to lower case.

RetStr = LCASE$(MainStr AS STRING)

Example:

DIM RetStr$

RetStr$ = LCASE$("ABCDEFG")

PRINT RetStr$

Result:

abcdefg

BCX Console Sample Programs using the LCASE$ function.

• S27.bas
• S61.bas
• S81.bas

MCASE$ function

Purpose:

MCASE$ converts a string to Mixed Case. Mixed Case means the first letter of each word is Capitalized.

RetStr = MCASE$(MainStr AS STRING)

Example:

DIM RetStr$
RetStr$ = MCASE$("this is a test")
PRINT RetStr$

Result:

This Is A Test

UCASE$ function

Purpose:

UCASE$ converts a string to UPPER CASE.

RetStr = UCASE$(MainStr AS STRING)

Example:

DIM RetStr$
RetStr$ = UCASE$("abcdefg")
PRINT RetStr$

Result:

ABCDEFG

BCX Console Sample Programs using the UCASE$ function.

• S03.bas
• S27.bas
• S36.bas
• S61.bas
• S81.bas
• S94.bas
• S99.bas

Example:

' ---------------------------------------------------------------------------
'         CFC ( Change File Case ) version 1.0 by Kevin Diggins
'  Changes the case of ALL file and directory names in the current directory
'  Usage: CFC  [U] [L] [M] ( U,L,M specifies UPPER, lower, or Mixed Case)
' ---------------------------------------------------------------------------
' Written for BCX -- The BASIC to C Translator and the LCC-WIN32 C compiler
' ---------------------------------------------------------------------------

MACRO UPPER = 1
MACRO LOWER = 2
MACRO MIXED = 3

GLOBAL A$ , FCase

IF ARGC = 1 THEN
  ?  "----------------------------------------------------------------------"
  ?  " CFC ( Change File Case ) by Kevin Diggins            [- Freeware - ] "
  ?  " Changes case of all file and directory names in the current directory   "
  ?  " Usage: CFC  [U] [L] [M]  (ULM specifies UPPER, lower, or Mixed Case) "
  ?  "----------------------------------------------------------------------"
  ?  " Made with BCX - The BASIC to C Translator & The LCC-Win32 C compiler "
  ?  "----------------------------------------------------------------------"
  END
END IF

SELECT CASE UCASE$(COMMAND$)
  CASE "U"
  FCase = UPPER

  CASE "L"
  FCase = LOWER

  CASE "M"
  FCase = MIXED

  CASE ELSE
  ? "Usage: CFC  [U] [L] [M] ( U,L,M specifies UPPER, lower, or Mixed Case)"
  END
END SELECT

A$ = FINDFIRST$("*.*")

IF A$ <> "." AND A$ <> ".." AND A$ <> "" THEN
  RENAME A$ , ChangeCase$(A$)
  ? "Changing ", A$ , " to " , ChangeCase$(A$)
END IF

WHILE LEN(A$) > 0
  A$ = FINDNEXT$
  IF A$ <> "." AND A$ <> ".." AND A$ <> "" THEN
    RENAME A$ , ChangeCase$(A$)
    ? "Changing ", A$ , " to " , ChangeCase$(A$)
  END IF
WEND

FUNCTION ChangeCase$ (A$)
  SELECT CASE FCase
    CASE UPPER
    FUNCTION = UCASE$(A$)
    CASE LOWER
    FUNCTION = LCASE$(A$)
    CASE MIXED
    FUNCTION = MCASE$(A$)
    CASE ELSE
    FUNCTION = A$
  END SELECT
END FUNCTION

$CASE_OFF and $CASE_ON directives

Purpose:

When performing string comparisons, $CASE_OFF changes the default behavior to case insensitive until BCX encounters a $CASE_ON statement which restores the default, case sensitive, behavior.

 string comparisons are case sensitive
$CASE_OFF
 string comparisons are case insensitive
$CASE_ON
 string comparisons are case sensitive

Remarks:

Case sensitive string comparisons are the default in all BASIC language dialects.

Example:

IF "dog" = "DoG" THEN PRINT "Dogs are equal" ELSE PRINT "Dogs are not equal"

$CASE_OFF ' Turn off case-sensitivity when comparing strings 
IF "dog" = "DoG" THEN PRINT "Dogs are equal" ELSE PRINT "Dogs are not equal"

$CASE_ON' Turn on case-sensitivity when comparing strings 
IF "dog" = "DoG" THEN PRINT "Dogs are equal" ELSE PRINT "Dogs are not equal"

Result:

Dogs are not equal
Dogs are equal
Dogs are not equal