Убедитесь, что первый символ строк в верхнем регистре в QB64

Question

Есть ли способ убедиться, что первый символ в FirstName и LastName только в верхнем регистре?

DIM FirstName AS STRING
DIM LastName AS STRING

CLS

INPUT "Enter First Name: ", FirstName
INPUT "Enter Last Name: ", LastName

Answer 1

Вы можете использовать строковые функции LEFT$ и UCASE$ в тандеме:

first$ = LEFT$(FirstName, 1)
last$ = LEFT$(LastName, 1)
IF first$ <> UCASE$(first$) OR last$ <> UCASE$(last$) THEN
    PRINT "error: first letter of names must be capitalized"
    END
END IF

Если вы не хотите, чтобы программа выходила, вы можете просто изменить ее на прописные, используя MID$ выражение:

first$ = LEFT$(FirstName, 1)
last$ = LEFT$(LastName, 1)
IF first$ <> UCASE$(first$) THEN
    MID$(FirstName, 1, 1) = UCASE$(first$)
ELSEIF last$ <> UCASE$(last$) THEN
    MID$(LastName, 1, 1) = UCASE$(last$)
END IF

Для получения дополнительной информации о работе со строками и преобразованиях и другой информации, см. Вики QB64 .