Küçük Çapta Program Yazacak Biri Lazım(Ücretyle)

13/Ağu/13 18:32

Kısayol

Şikayet

Özel Mesaj

baristbt

Kayıt Tarihi: 20/Nisan/2011

11den beri konuyu takip ediyorum.

diyorum ne istiyor nasıl olucak çart çurt boş zaman çok ilgileniriz.

lakin 2 sayfadır isim değiştirme olayından başka söylenen bişi yok..

kolay gelsin.

http://www.leyladansonra.com/

Alıntı yap

13/Ağu/13 19:06

Kısayol

Şikayet

Özel Mesaj

real_agabey

Kayıt Tarihi: 28/Ekim/2003

Sana yazilmisini soyleyim

bhnk google.com Renamer

Alıntı yap

13/Ağu/13 19:25

Kısayol

Şikayet

Özel Mesaj

YekteranBaymedir

Kayıt Tarihi: 10/Temmuz/2009

real_agabey bunu yazdı

Sana yazilmisini soyleyim

bhnk google.com Renamer

arkadaşın istediği isimleri tamamen random üretmesi değil.

kendi koyduğu isimler (1.txt 2.txt 3.txt 4.txt) kendi arasında kombinasyona uğrasın

1.txt-> 2.txt

2.txt-> 1.txt

3.txt -> 4.txt

4.txt -> 3.txt gibi.

isimler aynı kalacak yani.

Arkadaşa verdiğim programı buraya da yazayım belki ihtiyacı olan başka biri çıkar (neye lazım onu hala çözebilmiş değilim xD )

KOD BAŞLANGICI (AUTOIT YANİ AU3 DOSYASI)

Global $k = 0, $r_dizi = '', $uzanti = '', $uzantisiz = '', $s = ''
$a = FileSelectFolder("a", "")

$search = FileFindFirstFile($a & "\*.*")

If $search = -1 Then

     MsgBox(0, "Hata", "Dosya veya klasör bulunamadı")

     Exit

EndIf

While 1

     $file = FileFindNextFile($search)

     If @error Then ExitLoop

     $s = $s & "|" & $file

WEnd

FileClose($search)

$s = StringReplace($s, "|", "", 1)

$s = StringSplit($s, "|", 1)

If $s[0] < 2 Then Exit

 

For $i = 1 To $s[0]

     $file = $s[$i]

     If StringInStr($file, ".") Then

          $temp = StringSplit($file, ".")

          $temp = $temp[$temp[0]]

          $uzanti = $uzanti & '|' & $temp

          $uzantisiz = $uzantisiz & "|" & StringReplace($file, "." & $temp, "", -1, 2)

     Else

          $tempsiz = $file

     EndIf

Next

 

$uzanti = StringReplace($uzanti, "|", "", 1)

$uzanti = StringSplit($uzanti, "|", 1)

$uzantisiz = StringSplit(StringReplace($uzantisiz, "|", "", 1), "|")

$max = $s[0]

While 1

     $r = Random(1, $max, 1)

     If Not StringInStr($r_dizi, "|" & $r & '|') Then

          $r_dizi = $r_dizi & '|' & $r & '|'

          $k = $k + 1

          If $k = $s[0] Then ExitLoop

     EndIf

WEnd

$r_dizi = StringReplace($r_dizi, "|", @CRLF)

$r_dizi = StringRegExpReplace(StringRegExpReplace($r_dizi, "(\v)+", @CRLF), "(^\v*)|(\v*\Z)", "")

$debug = StringReplace($r_dizi, @CRLF, " ")

 

$r_dizi = StringSplit($r_dizi, @CRLF, 1)

 

For $i = 1 To $s[0]

     FileMove($a & '\' & $s[$i], $a & '\' & $uzantisiz[$i] & '.bak')

Next

 

For $i = 1 To $s[0]

     $kacinci_isim = Int($r_dizi[$i])

     $yeni_isim = $uzantisiz[$kacinci_isim] & '.' & $uzanti[$i]

     FileMove($a & '\' & $uzantisiz[$i] & '.bak', $a & '\' & $yeni_isim)

     $debug = $debug & @CRLF & StringFormat('$i=%s $r=%s eski=%s yeni=%s', $i, $kacinci_isim, $s[$i], $yeni_isim)

Next

KOD BİTİŞİ

YekteranBaymedir tarafından 13/Ağu/13 19:28 tarihinde düzenlenmiştir

Alıntı yap

13/Ağu/13 21:17

Kısayol

Şikayet

Özel Mesaj

real_agabey

Kayıt Tarihi: 28/Ekim/2003

@daft

eline saglik fakat Renamer programiyla senin dediklerin de yapilir.

Alıntı yap

13/Ağu/13 21:49

Kısayol

Şikayet

Özel Mesaj

Fatih54

Kayıt Tarihi: 16/Ağustos/2012

Daft bunu yazdı

real_agabey bunu yazdı

Sana yazilmisini soyleyim

bhnk google.com Renamer

arkadaşın istediği isimleri tamamen random üretmesi değil.

kendi koyduğu isimler (1.txt 2.txt 3.txt 4.txt) kendi arasında kombinasyona uğrasın

1.txt-> 2.txt

2.txt-> 1.txt

3.txt -> 4.txt

4.txt -> 3.txt gibi.

isimler aynı kalacak yani.

Arkadaşa verdiğim programı buraya da yazayım belki ihtiyacı olan başka biri çıkar (neye lazım onu hala çözebilmiş değilim xD )

KOD BAŞLANGICI (AUTOIT YANİ AU3 DOSYASI)

Global $k = 0, $r_dizi = '', $uzanti = '', $uzantisiz = '', $s = ''
$a = FileSelectFolder("a", "")

$search = FileFindFirstFile($a & "\*.*")

If $search = -1 Then

     MsgBox(0, "Hata", "Dosya veya klasör bulunamadı")

     Exit

EndIf

While 1

     $file = FileFindNextFile($search)

     If @error Then ExitLoop

     $s = $s & "|" & $file

WEnd

FileClose($search)

$s = StringReplace($s, "|", "", 1)

$s = StringSplit($s, "|", 1)

If $s[0] < 2 Then Exit

 

For $i = 1 To $s[0]

     $file = $s[$i]

     If StringInStr($file, ".") Then

          $temp = StringSplit($file, ".")

          $temp = $temp[$temp[0]]

          $uzanti = $uzanti & '|' & $temp

          $uzantisiz = $uzantisiz & "|" & StringReplace($file, "." & $temp, "", -1, 2)

     Else

          $tempsiz = $file

     EndIf

Next

 

$uzanti = StringReplace($uzanti, "|", "", 1)

$uzanti = StringSplit($uzanti, "|", 1)

$uzantisiz = StringSplit(StringReplace($uzantisiz, "|", "", 1), "|")

$max = $s[0]

While 1

     $r = Random(1, $max, 1)

     If Not StringInStr($r_dizi, "|" & $r & '|') Then

          $r_dizi = $r_dizi & '|' & $r & '|'

          $k = $k + 1

          If $k = $s[0] Then ExitLoop

     EndIf

WEnd

$r_dizi = StringReplace($r_dizi, "|", @CRLF)

$r_dizi = StringRegExpReplace(StringRegExpReplace($r_dizi, "(\v)+", @CRLF), "(^\v*)|(\v*\Z)", "")

$debug = StringReplace($r_dizi, @CRLF, " ")

 

$r_dizi = StringSplit($r_dizi, @CRLF, 1)

 

For $i = 1 To $s[0]

     FileMove($a & '\' & $s[$i], $a & '\' & $uzantisiz[$i] & '.bak')

Next

 

For $i = 1 To $s[0]

     $kacinci_isim = Int($r_dizi[$i])

     $yeni_isim = $uzantisiz[$kacinci_isim] & '.' & $uzanti[$i]

     FileMove($a & '\' & $uzantisiz[$i] & '.bak', $a & '\' & $yeni_isim)

     $debug = $debug & @CRLF & StringFormat('$i=%s $r=%s eski=%s yeni=%s', $i, $kacinci_isim, $s[$i], $yeni_isim)

Next

KOD BİTİŞİ

AutoIt çok güzel bir şey aslında ama çoğu kişi kullanmaz. Yani gidip .Net ile yapılanı kullanılacağına bu kullanılsın daha iyi. Eğer çalışıyorsa pratikte çok kullanşlı olur.

Alıntı yap

14/Ağu/13 14:41

Kısayol

Şikayet

Özel Mesaj

YekteranBaymedir

Kayıt Tarihi: 10/Temmuz/2009

Fatih54 bunu yazdı

Daft bunu yazdı

real_agabey bunu yazdı

AutoIt çok güzel bir şey aslında ama çoğu kişi kullanmaz. Yani gidip .Net ile yapılanı kullanılacağına bu kullanılsın daha iyi. Eğer çalışıyorsa pratikte çok kullanşlı olur.

ne için kullanılacağına bağlı. pratik çözümler için autoit 10 numara 5 yıldız.

ama profesyönel bir şey yazacağında autoit birçok konuda yetersiz kalır ve zorlanırsın.

ben işimi kolaylaştıracak programlar yazıyorum, adı üstüne otomatikleştiriyorum :)

Alıntı yap

14/Ağu/13 14:55

Kısayol

Şikayet

Özel Mesaj

Darkparadise