Arsip: apikasi untuk me-Rename file

more 18 years ago
jarangkonek
Mas2&Mbak2 Delphi-id-ers..
Informasinya donk. ada gak program delphi yang me-rename file. kebetulan aku disuruh rename file tp jumlahnya ribuan file .jpg dan .mpg dalam satu folder.
format file nya sih hampir sama semua. contoh: 123456 - apapun_caranya-ini_harushilang.jpg atau 234567 - ini_juga_ilang.mpg
harus direname menjadi 123456.jpg dan 234567.mpg
sekarang ini sih saya rename secara manual.
klo ada sourceCodenya atau aplikasinya yg udah jd juga boleh.
matur nuwun sanget yeeeee....

more 18 years ago
mas_kofa
pake komponen filelistbox lalu tentukan directory-nya ke folder tersebut
listbox1.directory := foldergambar;
lalu scan file pada filelistbox
for i := 0 to filelistbox1.items.count - 1 do
begin
filelistbox1.itemindex := i;
ext := extractfileext(filelistbox1.filename); // ambil extensi file,
renamefile(filelistbox1.filename,nama_baru_file + ext;
end;
selamat mencoba
S'moga menjadi ilmu yang bermanfaat..............
more 18 years ago
jarangkonek
@mas_kofa:Bro Kofa maksih ya atas script nya...diatas tp mau tny lagi nih untuk barisfor i := 0 to filelistbox1.items.count - 1 do begin filelistbox1.itemindex := i; ext := extractfileext(filelistbox1.filename); // ambil extensi file, renamefile(filelistbox1.filename,nama_baru_file + ext; end;
renamefile(filelistbox1.filename,nama_baru_file + ext;
nah, nama_baru_file ini didapat dari 6 baris pertama nama file tersebut filelistbox1.filename
berati kita harus mendefinisikan nama_baru_file := ???
more 18 years ago
mas_kofa
nah, nama_baru_file ini didapat dari 6 baris pertama nama file tersebut filelistbox1.filename6 baris pertama ???? atau 6 huruf pertama ??? kalo 6 huruf pertama tambahin / rubah coding jd sbb : for i := 0 to filelistbox1.items.count - 1 do begin filelistbox1.itemindex := i; nf := extractfilename(filelistbox1.filename); ext := extractfileext(filelistbox1.filename); // ambil extensi file, renamefile(filelistbox1.filename,copy(nf,1,6) + ext); end;

more 18 years ago
jarangkonek
hehe...tul 6 huruf pertama...
makasih ya atas scripnya Bro mas kofa...
more ...
- Pages:
- 1
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- Menggunakan RandG
by agnes in Hal umum tentang Pascal Indonesia more 16 years ago - Bantuin membuat program ambil acak
by fongers in Bedah Kasus more 17 years ago - Cara Tampilin Nomor Halaman Rave Report ....
by sianchan in Tip n Trik Pemrograman more 14 years ago - table fastreport
by muktaf in Reporting more 17 years ago - [warning] : Variable not have been initialized
by jajang in Tip n Trik Pemrograman more 16 years ago - mass cashtoword di fast report
by jonathan_giuliano in Reporting more 15 years ago - memberikan input pd PC melalui port parallel dan usb?
by gormet in Enginering more 18 years ago - Mengubah warna MainMenu Bar
by myCorro in Tip n Trik Pemrograman more 18 years ago - Bikin form login...
by pikachu in Hal umum tentang Pascal Indonesia more 18 years ago - Auto Send Mail
by xproof in Tip n Trik Pemrograman more 15 years ago