Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
pupsik1475
0 / 0 / 0
Регистрация: 10.09.2015
Сообщений: 7
1

Анализ текстового файла

10.09.2015, 01:34. Просмотров 829. Ответов 4
Метки нет (Все метки)

я скажем так программист в ковычках и препад задал задание до 15 числа сделать текстовый анализ файлов в делфи
и я нефига не вдупляю что и как помогите прошу !!
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.09.2015, 01:34
Ответы с готовыми решениями:

Анализ текстового файла
Доброго времени суток. Помогите начинающему программисту, недавно столкнулся с...

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

MS Word - анализ файла
Доброго времени суток. Столкнулся с проблемой при реализации поставленной...

Анализ целостности файла
Товарищи. Добрый вечер. Помогите решить следующую задачу. Предположим есть...

Синтаксический анализ .pas файла
Привет. Требуется написать программу, которая проверяет корректность .pas...

4
pupsik1475
0 / 0 / 0
Регистрация: 10.09.2015
Сообщений: 7
10.09.2015, 08:47  [ТС] 2
спасибо за помощь )

Добавлено через 11 секунд
уже разобрался сижу делаю )
0
mss
10.09.2015, 11:47
  #3

Не по теме:

Цитата Сообщение от pupsik1475 Посмотреть сообщение
сижу делаю
дупло ?)

0
pupsik1475
0 / 0 / 0
Регистрация: 10.09.2015
Сообщений: 7
10.09.2015, 11:56  [ТС] 4
да еще какое ))

собственно вот дорогой мой дровосек ))
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
var
  Form1: TForm1;
  i,k, l, h , f : integer;
  s: String;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button3Click(Sender: TObject);
begin
OpenDialog1.Execute;
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
    k:=0;
  l:=0;
   for i:=0 to Memo1.Lines.Count do
   begin
      k:=length(Memo1.Lines[i]);
        if checkbox1.checked=true  then
        begin
          S:=Memo1.Lines[i];
          f:=0;
          for h:=1 to length(S) do
          begin
            if S[h]=' ' then
            f:=f+1;
          end;
            k:=k-f;
            end;
             l:=l+k;
          end;
 
       Edit1.Text:=FloatToStr(l);
       end;
 
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Clear;
memo1.Lines.Clear;
end;
 
end.
Добавлено через 1 минуту
это же сойдет за анализ текстового файла ?)) я посчитал количество символом в тексте )
0
mss
2635 / 2259 / 277
Регистрация: 24.12.2010
Сообщений: 13,725
10.09.2015, 12:56 5
Лучший ответ Сообщение было отмечено pupsik1475 как решение

Решение

Цитата Сообщение от pupsik1475 Посмотреть сообщение
это же сойдет за анализ текстового файла ?
Почем мне знать сойдет или не сойдет ?
Это тебе "препад" должен "вдуплить")
Ты ж для него "дупло" изобретаешь, не для меня)
1
10.09.2015, 12:56
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.09.2015, 12:56

Чтение и анализ данных из TXT файла
Добрый день. Помогите пожалуйста. Есть файл в котором данные вот такого...

Чтение текстового файла
У меня есть текстовый файл, где каждая переменная записывается с новой строки ...

Шифрование текстового файла
Собственно как можно зашифровать текстовый файл? подскажите самый простой...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru