Поиск

← →
atas-sheriff © (2006-12-03 21:38) [0]

Здраствуйте мастера ;). Всё ми знаєм такую игру Counter-Strike там есть карты (в папке maps) и навернека каждий играл з ZBoTaмы которим нужни NAV файлы. И так вопрос такой: мне надо чтоби эта программа находила для каждой карти (*.bsp) недостающий NAV файл:
Пример:
aim_ak-colt.bsp
aim_ak-m4.bsp
aim_awp3.bsp
aim_aztec2003.bsp
aim_aztec_nf.bsp

aim_ak-colt.nav
aim_ak-m4.nav
aim_awp3.nav
aim_aztec2003.nav

Как ви заметили там нету aim_aztec_nf.nav. и так нужно чтоби прога находила таку недостачу. И если можна иходниками.

← →
Kolan © (2006-12-03 21:44) [1]

> знаєм

Что за слово такое?

> Как ви заметили

Грузин что-ли?

> так нужно чтоби прога находила

FindFirst итд.. В справке все есть... Неполучится, ждем конкретных вопросов.

← →
atas-sheriff © (2006-12-03 22:28) [2]

Я нашол FindFirst и переправил на:
procedure TForm1.Button1Click(Sender: TObject); var sr: TSearchRec; fa: Integer; begin StringGrid1.RowCount := 1; fa:=Я так понял что здесь чтота написать надо???? with StringGrid1 do begin RowCount := 0; if FindFirst(Edit1.Text, fa, sr) = 0 then begin repeat if (sr.Attr and fa) = sr.Attr then begin RowCount := RowCount + 1; Cells[1,RowCount-1] := sr.Name; Cells[2,RowCount-1] := IntToStr(sr.Size); end; until FindNext(sr) <> 0; FindClose(sr); end; end; end;

← →
Anatoly Podgoretsky © (2006-12-04 08:57) [3]

> atas-sheriff © (03.12.06 21:38)

И в чем проблема?
Два цикла, в первом nav файлы загоняются в сортированый StringList, во по bsp смотрится есть ли оно в StringList

← →
atas-sheriff © (2006-12-04 18:01) [4]

Я зделал так:

procedure TForm1.Button1Click(Sender: TObject); var sr1,sr2: TSearchRec; fa,i: Integer; begin fa:=faAnyFile; with ListBox1 do begin Items.Clear; if FindFirst(Edit1.Text, fa, sr1) = 0 then begin repeat Delete(sr1.Name,pos(".nav",sr1.Name),4); Items.Add(sr1.Name); until FindNext(sr1) <> 0; FindClose(sr1); end; end; begin with ListBox2 do begin Items.Clear; if FindFirst(Edit2.Text, fa, sr2) = 0 then begin repeat Delete(sr2.Name,pos(".bsp",sr2.Name),4); Items.Add(sr2.Name); until FindNext(sr2) <> 0; FindClose(sr2); end; end; end; end;

Но не до конца.
>по bsp смотрится есть ли оно в StringList
А как это зделать???

← →
vidiv © (2006-12-04 18:16) [5]

создаешь list.bat с двумя строчками внутри:

@for %%I IN (*.bsp) DO @IF NOT EXIST "%%~nI.nav" @echo %%~nI.nav @pause

кидаешь его в папку с картами, запускаешь и наслаждаешься =)

← →
atas-sheriff © (2006-12-04 18:19) [6]

Спасибо vidiv ©! а на Delphi???

Он тебе нужен, Дельфи?

Ех....) Ладно. Делфи штука хорошая но BAT Rulezzzz.

@del list.txt @for %%I IN (*.txt) DO @IF NOT EXIST "%%~nI.htm" @echo %%~nI.htm >>list.txt @start list.txt @cls

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