Регулярное выражение

[Smagulov85]

Всем привет! помогите правильно составить регулярное выражение

/^[A-Za-z0-9]+$/ это выражение разрешает вводить английские буквы и цифры слитно и без пробелов

Мне надо составить выражение в котором можно писать английские буквы и цифры слитно и без пробелов, но нельзя, чтобы были только одни английские буквы.

sdgf3424sdfgsdf234234 - правильно
4563456SDDFSADF43434GHMHK - правильно
343457457754634564 - правильно

sdfasdfasdfasdf - не правильно
IURETYIOWUYER - не правильно

[Black Fregat]

Может /^[A-Za-z]+[0-9][A-Za-z0-9]+$/

[Pavia]

Думаю так: /^(?![A-Za-z]+)[A-Za-z0-9]+$/

[Smagulov85]

Спасибо, что отозвались. Щас проверю

[Serge_Bliznykov]

Сообщение от Black Fregat

Может /^[A-Za-z]+[0-9][A-Za-z0-9]+$/

считает, что 9999assa1 неверное.

Сообщение от Pavia

Думаю так: /^(?![A-Za-z]+)[A-Za-z0-9]+$/

что-то вообще странно. или я проверять не умею, или оно не работает.

пишу, например, assa2345
чекер говорит, что искомое выражение не найдено.

Кстати, вопрос к ТС: а тут точно нужны регулярные выражения?

[Smagulov85]

Точно! если пользователь будет вводить данные как он хочет то программа сойдет сума.

надо чтобы результаты были как тут

sdgf3424sdfgsdf234234 - правильно
4563456SDDFSADF43434GHMHK - правильно
343457457754634564 - правильно

sdfasdfasdfasdf - не правильно
IURETYIOWUYER - не правильно

[Аватар]

Можно же проверить, что есть хоть одна цифра. Вот и проверь после проверки из #1

[Pavia]

/(?![A-Za-z]+$)[A-Za-z0-9]+/ вот такое проверил онлайн чекером, работает. Однако delphi не поддерживает оператор /?!/
Так что чисто регулярными неполучится.

[Serge_Bliznykov]

Сообщение от Smagulov85

Точно! если пользователь будет вводить данные как он хочет то программа сойдет сума.

Вы меня не поняли. я не против проверки на валидность. Но нужно делать обязательно. Я не уверен, что регулярные выражения могут решить любые СПЕЦИФИЧНЫЕ (как в данном случае) требования.

я примерно про это:

function InCorrectUserString(S : string):boolean;
var i  : integer;
  isNoDigits : boolean;
begin
    InCorrectUserString := false;
    isNoDigits := true;
    for i:=1 to Length(S) do 
      if S[i] not in ['a'..'z', 'A'..'Z', '0'..'9'] Then Exit
      else
         if  isNoDigits and (S[i] in ['0'..'9']) then isNoDigits := false;

    if isNoDigits then Exit;
    InCorrectUserString  := true
end;

Работать будет быстро. Код простой и очевидный. Сопровождать/изменять легко.

[Smagulov85]

Сообщение от Serge_Bliznykov

Работать будет быстро. Код простой и очевидный. Сопровождать/изменять легко.

Спасибо, но чет не работает

[dcc32 Error] main.pas(707): E2066 Missing operator or semicolon
[dcc32 Error] main.pas(707): E2015 Operator not applicable to this operand type

я тут правда придумал извращение. правда тупа и криво, но работает

procedure TForm1.Button1Click(Sender: TObject);
var
p, n : string;
begin
if ExecRegExpr ('^[A-Za-z0-9]+$', edit2.Text) then begin
p:= BoolToStr(ExecRegExpr ('^[A-Za-z0-9]+$', edit2.Text));
end else begin
p:= BoolToStr(ExecRegExpr ('^[A-Za-z0-9]+$', edit2.Text));
end;
if ExecRegExpr ('^[A-Za-z]+$', edit2.Text) then begin
n:= BoolToStr(ExecRegExpr ('^[A-Za-z]+$', edit2.Text));
end else begin
n:= BoolToStr(ExecRegExpr ('^[A-Za-z]+$', edit2.Text));
end;
if (p='-1') and (n='0') then begin
Label1.Caption:='Верно';
end else begin
Label1.Caption:='не верно';
end;
end;