PDA

View Full Version : بررسی فایل ها یک filelist به صورت خودکار



ArshamHacker
جمعه 30 شهریور 1386, 20:17 عصر
سلام
من تازه با سایت خوبتون و پر بارتون آشنا شدم !
میخواستم بپرسم :
ما یه فایل لیست دارم که توش مثلا 20 تا فایل htm هست من میخوام این فایل های htm
به ترتیب از اول لیست تا آخر تو یه richtextbox لود شه و مثلا عبات <htm> از توشون حذف شه !
یعنی عمل باز شدن فایل htm و حذف شدن تگ <htm> برای همه فایل های موجود در فایل لیست انجام شه !
اگر کمکم کنیم خیلی ممنون میشم !

__siavash__
شنبه 31 شهریور 1386, 00:54 صبح
شما میخوای تمام فایل هایی که تو یه فایل لیست هستند و HTM هستند دونه دونه باز کنی و عبارت <HTM> رو از داخلشون پاک کنی ؟

والا دقیقا نمیدونم این فایل ها رو چه جوری باز میکنند اما اگه خیلی عجله داری بیا اونا رو با پسوند txt ذخیره کن بعد با OpenStatment بازشون کن و عبارت مورد نظرت رو توشون جستجو کن
کار با OpenStatment رو بلدی ؟

ArshamHacker
شنبه 31 شهریور 1386, 10:30 صبح
خیلی ممنون از جوابتون ولی نه من کار با OpenStatment رو بلد نیستم میشه بیشتر راهنماییم کنید ! ؟
حالا همون txt هم باشه !

__siavash__
شنبه 31 شهریور 1386, 12:56 عصر
ببین این یه فایل txt تو مسیر مشخص شده درست میکنه

Open ("F:\Test.txt") For Output As #1
Print #1, "siavash"
Close #1
اینم برای خوندن یه فایل متنی
فایل تکست باز میشه و خط به خط خونده میشه و تو متغییر ریخته میشه حالا مینونی توی اون سرچ کنی چ


Dim ReadLine as String
Open ("F:\Test.txt") For Input As #2
Do Until EOF(2) = True
Line Input #2, ReadLine
Loop
Close #2

ArshamHacker
شنبه 31 شهریور 1386, 12:59 عصر
آقا ممنون ولی مثل اینکه شما درست متوجه منظور من نشدید !
من میخوام تو یه فایل لیست فایل ها از بالا به پایین چک بشن ! یعنی از بالا به پایین به ترتیب تو یه rich textbox باز شن و بعد از یه تغغیر ذخیره شن !
من اینو :

از بالا به پایین به ترتیب تو یه rich textbox باز شن و بعد از یه تغیر ذخیره شن !
بلدم فقط نمیدونم چه جوری باید به ترتیب باز شن !
با حلقه for نمیشه ؟ اگه میشه کدشو بگین !