Вывод в Label нужной строки .*txt

@Jansusi · Регистрация: 29.10.2013

Студворк — интернет-сервис помощи студентам

как вывести в label например строку 18 и именно выделенный текст.. в данном случаи ip?

@northener · 30.10.2013, 01:10

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

как вывести в label например строку

Откуда? Из картинки?

@Jansusi · 30.10.2013, 01:19 **[ТС]**

нет, из txt файла, а пример на картинке...

Добавлено через 2 минуты
Допустим файл 1.txt созданный посредством ipconfig/all > 1.txt, так вот из него надо взять только значение ip-адреса...

@Cyborg Drone · 30.10.2013, 02:04

Так, например.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.Button1Click(Sender: TObject);
 
var s, p: string;
    i, j: integer;
 
begin
  Memo1.Lines.LoadFromFile('{Путь до файла 1.тэикстэ}1.txt');
  s := Memo1.Lines[18 - 1];
  p := '';
  j := pos(':', s);
  if (j > 0) and (j + 2 < length(s))
    then
      begin
        i := j + 2;
        while (i <= length(s)) and (s[i] in ['0'..'9', '.']) do
          begin
            p := p + s[i];
            i := i + 1
          end;
        Edit1.Text := p
      end;
end;

Новые блоги и статьи Все статьи Все блоги /
AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .

@Jansusi 0 / 0 / 0 Регистрация: 29.10.2013 Сообщений: 4

	Вывод в Label нужной строки .txt 30.10.2013, 00:35. Показов* 2452. Ответов 3 Метки нет (Все метки) как вывести в label например строку 18 и именно выделенный текст.. в данном случаи ip? Миниатюры 0

@Jansusi 0 / 0 / 0 Регистрация: 29.10.2013 Сообщений: 4
	30.10.2013, 01:19 [ТС]
	нет, из txt файла, а пример на картинке... Добавлено через 2 минуты Допустим файл 1.txt созданный посредством ipconfig/all > 1.txt, так вот из него надо взять только значение ip-адреса... 0