Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 24.06.2014, 12:56   #1 (permalink)
Юрий96
Новичок
 
Регистрация: 24.06.2014
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Pascal ABC, проверка описания переменных

Мне нужно в текстовом файле (или переменной) проверить правильность описания переменной с помощью регулярных выражений. У меня почему-то не получается. Помогите, пожалуйста, доделать, чтобы работало. То-есть, если в тексте правильно описано, то выдать: корректно. А если нет, то сказать, например, какая переменная записана дважды.
Вот текст:
program regv;
uses
System.Text.RegularExpressions;
var
s: string := 'var i1,i2: integer; st2,i2: string[5];';
begin
{Readln(s);}
foreach s0: string in Regex.Split(s, ' +') do
Writeln(s0);
{foreach m: Match in Regex.Matches(s, 'var') do
Write(m.Value); }
foreach m: Match in Regex.Matches(s, '(?!var)[s;](((\w+)[,\s]*)+(\s*)\s*)(integer│string))+') do
Write(m.Success);

if FALSE then writeln('1 ,w'); {строка и позиция - при ошибке}
else writeln('Описание корректное'); {ЕСЛИ нет ошибок}
endif;

end.
Юрий96 вне форума   Ответить с цитированием

Старый 24.06.2014, 12:56
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Об этом уже говорилось в некоторых темах, вот их список

Проверка конденсатора
Расчёт значений функции двух переменных
Чтение и запись из файла и в файл массива данных строковых переменных. Turbo Pascal
Проверка реле в ИБП

Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 02:19.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.