Функция IsLatin

IsLatin

Проверяет является ли строка набором букв и цифр A-Z, 0-9

IsLatin(*c.Character)

Параметры

*c.Character

Указатель на строку

Возвращаемое значение

Успех:	Возвращает:
	#True - строка соответствует требуемым критериям
	#False - строка не соответствует требуемым критериям

Примечания

Регистр букв не учитывается

См. также

IsDigital, IsFloat, IsHex, ValidChar

Пример

Procedure IsLatin(*c.Character)
    Protected flag = #True

    If *c = 0 Or *c\c = 0
        ProcedureReturn 0
    EndIf

    Repeat
        If Not ((*c\c >= '0' And *c\c <= '9') Or (*c\c >= 'a' And *c\c <= 'z') Or (*c\c >= 'A' And *c\c <= 'Z') Or *c\c = '_')
            flag = #False
            Break
        EndIf
        *c + SizeOf(Character)
    Until Not *c\c

    ProcedureReturn flag
EndProcedure

Debug IsLatin(@"123")
Debug IsLatin(@"12 3")
Debug IsLatin(@"qwerty")
Debug IsLatin(@"")
Debug IsLatin(@" ")