Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.08.29;
Скачать: [xml.tar.bz2];

Вниз

RichEdit   Найти похожие ветки 

 
Diman   (2004-08-16 12:06) [0]

Как в тексте(rtf), записанном в поле RichEdit1(из файла), выбрать строки, которые начинаются с Цифры(0..9)?


 
TUser ©   (2004-08-16 12:25) [1]

if Строка[i][1] in ["0".."9"] then
  {выбрать}


 
Diman   (2004-08-16 12:44) [2]

Можно ли так написать?var s,s1: string;
   sfil: textfile;
//...
    assignfile (sfil,RichEdit1.Lines.LoadFromFile(edit1.Text));
    reset (sfil);
repeat
    readln(sfil,s);
    if s in ["0".."9"] then
    s1 = s;
until EOF(sfil);


 
still   (2004-08-16 13:31) [3]

Написать-то можно все что угодно. Вопрос будет ли работать, и если будет, то как? :)
Ты что сделать-то хочешь этим кодом?


 
Diman   (2004-08-16 15:31) [4]

Про этот код забудьте...(он не работает:(
Мне надо из файла RTF выбрать строки, с числами, они точно начинаются с цифры, другие нет, и записать эти строки в другой файл, а потом я буду открывать числовой файл в EXCEL.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.08.29;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.035 c
4-1089879852
Dysan
2004-07-15 12:24
2004.08.29
как установить крупный/мелкий шрифт


1-1092315832
Реактор
2004-08-12 17:03
2004.08.29
Копия экрана


3-1091540445
AndrewK
2004-08-03 17:40
2004.08.29
Как вызвать создания ConnectionString?


3-1091619121
Алексей
2004-08-04 15:32
2004.08.29
FOX, ADO и отрицательный числа


1-1092389979
Чайник
2004-08-13 13:39
2004.08.29
StringGrid





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский