Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
fox4um » Kodlama ve Komutlar » Rename komutu
Sevgili Arkadaşlar,
Rename komutunu kullanarak bir dosyanın adını değiştirince dosya adı küçükharfe çevrilerek değişiyor.
Örneğin : Rename file1.txt to Gelen Mektup.txt
komutunun sonucunda file1.txt in adı gelen mektup.txt oluyor. Bunu, yazdığım gibi, yani Gelen Mektup.txt olarak değiştirmenin bir yolu var mı?
İlgilenecek arkadaşlara şimdiden çok teşekkür ederim.
Sevgilerimle.
Erdal
kullandigin kodlari yayinlarsan daha iyi yardimci olabiliriz...
yinede proper() helpte incele
bir ornek
Local lcProperTest
lcProperTest='yeni gelen.txt'
Wait Window Proper(m.lcProperTest)
&& Sonuc : Yeni Gelen.txt
Sevgili Soykan,
kullandığım program satırı şöyle:
RENAME "&gerad" To "°is"
Önerin üzerine komutu şöyle yazdım:
RENAME "&gerad" To PROPER("°is")
Fakat değişen birşey olmadı . Dosya adı gene hep küçük harf oldu.
Yardımın ve ayırdığın zaman için çok teşekkür ederim.
Sevgilerimle.
Erdal
DECLARE INTEGER MoveFile IN kernel32;
STRING lpExistingFileName,;
STRING lpNewFileName
lpDosyaAd=GETFILE()
lpYeniDosyaAd=lpDosyaAd+"_yeni" && değişik dosya adı örnekleme
= MoveFile (lpDosyaAd, lpYeniDosyaAd)
* aynı zamanda dizin adlarını da değiştirebilirsin
Sevgili Konuka,
Göndermiş olduğun programla gene istediğim olmadı ama yeni birşey öğrendim. Ad değiştirme işini senin gösterdiğin yolla yaparsam dosya adı rename komutunun verdiği sonucun tersi oluyor ve dosya adı baştan sona büyükharf olarak değişiyor.
Benim istediğim ise şu:
Örneğin dosya1.txt isimli dosyayı, yazdığım gibi büyük ve küçük harfleri saklayarak değiştirebilmek. Yani dosya1.txt dosyasının adını aynen yazdığım gibi Gelen Mektup.txt olarak değiştirmek.
Yardımın ve harcadığın zaman için çok teşekkürederim.
Sevgilerimle.
Erdal
O zaman bu sekilde,
LOCAL lcOld,lcNew
lcOld='New Text Document.txt'
lcNew=PROPER('yeni mektup.txt')
oFso=CreateObject("Scripting.FileSystemObject")
oFso.MoveFile(m.lcOld,m.lcNew)
Soykan abi; kodu çalıştırdığımda aşağıdaki hatayı alıyorum.
OLE error code 0x800a0035: Unknown COM status code.
Neden olabilir?
Örneğin dosya1.txt isimli dosyayı, yazdığım gibi büyük ve küçük harfleri saklayarak değiştirebilmek. Yani dosya1.txt dosyasının adını aynen yazdığım gibi Gelen Mektup.txt olarak değiştirmek.
merhaba erdal
galiba kod senin istediğini yapıyor. ben denedim çalıştı
ancak GETFILE fonksiyonu dosya adını büyük harfe çeviriyor, sen onu nasıl yazarsan aynen uyguluyor !
dosyaad="AbRaKaDaBrA.txt"
GETFILE() => sonuç: ABRAKADABRA.TXT
yenidosyaadı="ABRAkadabra.tXt"
= MoveFile (DosyaAd, YeniDosyaAd) => sonuç: ABRAkadabra.tXt
PROPER fumksiyonu sadece ilk harfleri büyük yapıyor galiba -öyle istiyorsan kullan-, ancak movefile dosya adını "olduğu gibi" çeviriyor
Soykan abi; kodu çalıştırdığımda aşağıdaki hatayı alıyorum.
OLE error code 0x800a0035: Unknown COM status code.
Neden olabilir?
Hangisi WSH mi otekimi ?
Bende sorunsuz calisiyor
oFso.MoveFile(m.lcOld,m.lcNew)
Satırında hata veriyor.
Sevgili Konuka,
Senin Uyarın üzerine getfile fonksiyonunu kaldırdım ve lpDosyaAd ile lpYeniDosyaAd değişkenlerini programın içine el ile girince programın çok güzel çalışıp isimler istediğim gibi değişti.
Bütün herşey için çok çok teşekkür ederim.
Sevgilerimle.
Erdal
Yanlız anlayamadığım birşey var. Programda lpExistingFileName, ve lpNewFileName değişkenlerini kullanmadığın halde neden deklare ettin?
Visual Fox ProoFso.MoveFile(m.lcOld,m.lcNew)
Satırında hata veriyor.
New Text File.txt dosyasinin var olmasi gerek , right click new ile bir text dosya yarat onda sonra dene
Yanlız anlayamadığım birşey var. Programda lpExistingFileName, ve lpNewFileName değişkenlerini kullanmadığın halde neden deklare ettin?
O API funksiyonlarının formatı , öyle kullanılıyor. parametreleri önceden declare edip komut ile geçiyorsun.
Yani Her form için bir kere DECLARE komutunu kullandığın zaman (form1.Init eventte) , uygulama -movefile(...,...)- komutunu dilediğin kadar ve yerde kullanabilirsin.
başka API örnekleri:
*!*DELETE FILE için
DECLARE INTEGER DeleteFile IN kernel32 ;
STRING lpFileName
veya
*!*COPY FILE için
DECLARE INTEGER CopyFile IN kernel32 ;
STRING lpExistingFileName, ;
STRING lpNewFileName, ;
INTEGER bFailIfExists
Ufak bir uyari, MoveFile() API'yi kullanin, WSH kullanmayin. WSH guvenlik tehdidi olarak goruldugunden bircok yerde sistem yoneticileri tarafindan kullanim disi birakiliyor.
Emin değilim ama galiba bendeki hatada Antivirüsün yaptığı engelleme.
Çünkü daha önce çalışan bir çok Script komutu şu anda hata veriyor.
oFso.MoveFile(m.lcOld,m.lcNew)
ile dosya adları değiştirilebiliyor. Klasör adları nasıl değiştirilebilir acaba fikri olan var mı
oFso.MoveFolder(m.lcOld,m.lcNew)
Çok teşekkürler.
fox4um » Kodlama ve Komutlar » Rename komutu