|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.02.2007, 19:50 | #1 |
Регистрация: 17.12.2006
Сообщений: 3
|
Головоломка со строкой
В текстовом файле (777.txt) хранится отчёт о работе базы данных. Если во время работы никаких ошибок не было, то в последней строчке указанного файла будет 6 одинаковых чисел. Примерно так:
12.11.2006 game home doc 9 0 7 8 9 67890 67890 67890 67890 67890 67890 :; 6 Числа 67890 67890 67890 67890 67890 67890 идут подряд через один или несколько пробелов. Вопрос с «выдёргиванием» последней строчки из 777.txt я решил так: Source:=TstringList.Create; Source.LoadFromFile('C:\Log\777.txt '); R := Source[Source.Count-1]; Остаётся главный вопрос: как полученную строку проверить на наличие 4-х неизвестных «67890 67890 67890 67890 67890 67890», исключая [',', ';', ':', ' ', 'A'..'Z', 'a'..'z']? Почему не 6-ти? – На случай ошибки в БД! Т.е. нужно в Memo получить: Если 67890 67890 67890 67890 67890 67890 то Memo1.Lines.Add(‘Тест пройден’); Если 67890 12345 67890 67890 67890 67890 то Memo1.Lines.Add(‘Ошибка ’+Chisla); Если 67890 67890 12345 12345 67890 67890 то Memo1.Lines.Add(‘Ошибка ’+Chisla); |
04.02.2007, 21:30 | #2 |
Пользователь
Регистрация: 08.01.2007
Сообщений: 41
|
считай файл в TStrings, возьми последнюю, да замочи TStrings. какие проблемы, потом циклом считывай числа до первого встречного пробела, в массив. сколько чисел ты знаешь. осталось только сравнить.
а думать ты и не хотел вовсе. задумайся: Код:
Код:
Последний раз редактировалось psyke; 04.02.2007 в 22:26. |
06.02.2007, 08:03 | #3 |
Регистрация: 17.12.2006
Сообщений: 3
|
Вот если бы было:If proverka('??? ??? ??? ??? ???') then...Это же БД! Сейчас там 123 записи, а завтра 246!
|
06.02.2007, 09:31 | #4 |
Владимир М.
Участник клуба
Регистрация: 30.10.2006
Сообщений: 1,289
|
а вот я так и не понял, проверяем только последнюю строку ?
а если выделить число, и искать в осnавшейся строке его еще 5 раз ?
Берегите друг друга!
|
07.02.2007, 01:38 | #5 |
Пользователь
Регистрация: 08.01.2007
Сообщений: 41
|
ну и чё? отпирайся от данного примера. есть ф-я EOLN, думай.
я ж тебе показал как посчитать пробелы между числами... |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Головоломка | Vali_T | Помощь студентам | 9 | 24.05.2008 12:30 |
головоломка =) | Exo | Microsoft Office Excel | 4 | 14.04.2008 17:06 |
интересная головоломка | Vereshagina | Помощь студентам | 9 | 11.03.2008 10:16 |
Головоломка! | Selena | SQL, базы данных | 1 | 14.11.2007 11:43 |