vblove نوشته است:سلام دوستان
این کار راه های مختلف و زیادی داره و کار ساده ای هم هست
با یه کم فکر کردن میتونید
خیلی راحته .................
ممنون. خيلي راهنمايي كرديد.
پیمان جون تو که اینطوری نبودی
قبالا چیزی می خاستیم می دادی حالا کلاس میزاری
من كه گفتم. سيو نكردم. برنامه رو بعد كامپايل بستم رفت. روش كار رو كه توضيح دادم. خيلي سادست. بخوني ميفهمي چي كار كني.
کد:
dim a as string
a=space(filelen("c:\abcd.exe"))
open "c:\abcd.exe" for binary as #1
get #1,,a
close #1
a=replace(a,"text1","12345")
open "c:\abcd.exe" for binary as #2
put #2,,a
close #2
امیدوارم با این سورس متوجه منظور پیمان بشی. البته بگما من اشتباه کردم دوبار باز کردم میشد یه بار باز کرد و اینکارا رو کرد. بعدش اینکه طول رشته هم باید ثابت باشه مثلا نمیشه 1234567 رو به جای text1 گذاشت.
خاب یعنی خیچ راهی نداره 142423جای text1بزاریم اینجوری که به درد نمیخوره
چرا داره. انتهاي رشته مقدار زيادي space بچسبون.
آره اگه یه مقدار فاصله بدی تو تکست(مثلا) میتونی 142423 رو هم بزاری فقط یادت باشه مثلا اگه تو تکست 20 تا فاصله میزاری وقتی میخوای چیزی رو با اون replace کنی باید باز تعداد کاراکتر 20 تا باشه
پیر شین جوونا
کلی استفاده کردم...
راستی !!!
سلام
و
.خداحافظ
Payman62 نوشته است:vblove نوشته است:سلام دوستان
این کار راه های مختلف و زیادی داره و کار ساده ای هم هست
با یه کم فکر کردن میتونید
خیلی راحته .................
ممنون. خيلي راهنمايي كرديد.
ببین دوست عزیز
من میگم خیلی ساده هستش .... شما خدایی روش فکر کردی ؟
بعد هم چرا بهت بر خورده ؟ شما یه کم فکر کن روش کار کن اگر به نتیجه نرسیدی چشم من در خدمتم
یادمون نره اصلا برای این برنامه نویس شدیم تا بتونیم قدرت فکری مون رو بالا ببیریم ...
حالا یکم تفکر بد نیست !!!