|
|
#1
|
||||
|
||||
Вот вам готовый код. Что-то добренький я сегодня.
Код:
program Project1; {$APPTYPE CONSOLE} uses SysUtils,Classes,StrUtils; Const KeyWordsCount = 2; KeyWords: Array[1..KeyWordsCount] of String = ('begin','end'); Var File1,File2: TextFile; i,p: Integer; s: String; begin AssignFile(File1, 'C:\Documents and Settings\All Users\Документы\tmssoftware\TAdvMemo Demos\uAddictSpellCheck.pas'); Reset(File1); AssignFile(File2, 'c:\test.txt'); Rewrite(File2); while not Eof(File1) do begin ReadLn(File1, s); s := StringReplace(s,' ',' ',[rfReplaceAll]) + ' '; for i := 1 to KeyWordsCount do begin p := PosEx(KeyWords[i], AnsiLowerCase(s), 1); while p > 0 do begin WriteLn(File2, KeyWords[i]); p := PosEx(KeyWords[i], AnsiLowerCase(s), p+Length(KeyWords[i])); end; end; end; CloseFile(File2); CloseFile(File1); end. Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |