یه سوال از ویژال کارایه حرفه ای

[Payman62]

سلام دوستان

این کار راه های مختلف و زیادی داره و کار ساده ای هم هست
با یه کم فکر کردن میتونید
خیلی راحته .................

ممنون. خيلي راهنمايي كرديد.

[vorojax]

پیمان جون تو که اینطوری نبودی
قبالا چیزی می خاستیم می دادی حالا کلاس میزاری

[Payman62]

من كه گفتم. سيو نكردم. برنامه رو بعد كامپايل بستم رفت. روش كار رو كه توضيح دادم. خيلي سادست. بخوني ميفهمي چي كار كني.

[arashps]

کد:

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

[arashps]

امیدوارم با این سورس متوجه منظور پیمان بشی. البته بگما من اشتباه کردم دوبار باز کردم میشد یه بار باز کرد و اینکارا رو کرد. بعدش اینکه طول رشته هم باید ثابت باشه مثلا نمیشه 1234567 رو به جای text1 گذاشت.

[vorojax]

خاب یعنی خیچ راهی نداره 142423جای text1بزاریم اینجوری که به درد نمیخوره

[Payman62]

چرا داره. انتهاي رشته مقدار زيادي space بچسبون.

[arashps]

آره اگه یه مقدار فاصله بدی تو تکست(مثلا) میتونی 142423 رو هم بزاری فقط یادت باشه مثلا اگه تو تکست 20 تا فاصله میزاری وقتی میخوای چیزی رو با اون replace کنی باید باز تعداد کاراکتر 20 تا باشه

[seyyed]

پیر شین جوونا
کلی استفاده کردم...


راستی !!!
سلام


و
.خداحافظ

[vblove]

سلام دوستان

  این کار راه های مختلف و زیادی داره  و کار ساده ای هم هست
  با یه کم فکر کردن میتونید
خیلی راحته .................

ممنون. خيلي راهنمايي كرديد.

ببین دوست عزیز

من میگم خیلی ساده هستش .... شما خدایی روش فکر کردی ؟
بعد هم چرا بهت بر خورده ؟ شما یه کم فکر کن روش کار کن اگر به نتیجه نرسیدی چشم من در خدمتم

[Darg]

یادمون نره اصلا برای این برنامه نویس شدیم تا بتونیم قدرت فکری مون رو بالا ببیریم ...
حالا یکم تفکر بد نیست !!!