Sander Tuulik AK41: Difference between revisions
From ICO wiki
Jump to navigationJump to search
No edit summary |
No edit summary |
||
| (11 intermediate revisions by the same user not shown) | |||
| Line 1: | Line 1: | ||
== | ==Ülessanne== | ||
Loo skript, mis leiab etteantud kataloogist või kettalt samanimelised failid ja väljastab nende nimekirja. | Loo skript, mis leiab etteantud kataloogist või kettalt samanimelised failid ja väljastab nende nimekirja. | ||
===Skript=== | |||
<source lang="powershell"> | |||
# Skript,mis otsib ettemääratud katalogist samanimelised failid ja | |||
# väljastab nimekirja | |||
# Kasutajalt küsitakse,kus kataloogist otsida | |||
# Kasutajalt sisendi küsimine | |||
$kaust = Read-Host "Millisest kataloogist otsida samanimelisi faile?" | $kaust = Read-Host "Millisest kataloogist otsida samanimelisi faile?" | ||
Write-Host "Samanimelisi faile otsiti kataloogist: $kaust" | Write-Host "Samanimelisi faile otsiti kataloogist: $kaust" | ||
$ | # $list väärtuseks kõikide failide nimekiri,sisestatud asukohast ja | ||
# alamkataloogidest | |||
$list = get-childitem $kaust -recurse | |||
# Võtan listist unikaalsed kirjed ära | |||
$dir1 = $list | group | ? {$_.count -gt 1}| % {$_.group} | $dir1 = $list | group | ? {$_.count -gt 1}| % {$_.group} | ||
# Tühi rida | |||
echo "" | echo "" | ||
if(!$dir1){Write-Host "Samanimelisi faile polnud kataloogis: $kaust"} | if(!$dir1){Write-Host "Samanimelisi faile polnud kataloogis: $kaust"} | ||
# Väljundi formaadi muutmine(täisnimi) | |||
$dir1 | format-table -a fullname | $dir1 | format-table -a fullname | ||
</source> | </source> | ||
Latest revision as of 00:26, 31 January 2011
Ülessanne
Loo skript, mis leiab etteantud kataloogist või kettalt samanimelised failid ja väljastab nende nimekirja.
Skript
# Skript,mis otsib ettemääratud katalogist samanimelised failid ja
# väljastab nimekirja
# Kasutajalt küsitakse,kus kataloogist otsida
# Kasutajalt sisendi küsimine
$kaust = Read-Host "Millisest kataloogist otsida samanimelisi faile?"
Write-Host "Samanimelisi faile otsiti kataloogist: $kaust"
# $list väärtuseks kõikide failide nimekiri,sisestatud asukohast ja
# alamkataloogidest
$list = get-childitem $kaust -recurse
# Võtan listist unikaalsed kirjed ära
$dir1 = $list | group | ? {$_.count -gt 1}| % {$_.group}
# Tühi rida
echo ""
if(!$dir1){Write-Host "Samanimelisi faile polnud kataloogis: $kaust"}
# Väljundi formaadi muutmine(täisnimi)
$dir1 | format-table -a fullname
