نوشتن در فایل ini.

[cs2007]

سلام.

یک فایل است بنام Desktop.ini که این دوخط را در بر دارد:

[{BE098140-A513-11D0-A3A4-00C04FD706EC}]
IconArea_image=fxmahdi@Gmail.com.jpg

و من میخواهم قسمت سرخ را از طریق کد بنویسم، چگونه این امکان دارد؟؟؟

[مبین رنجبر]

کد کامل این کار :


Dim A As Long
Dim Temp As String
Open "C:\Test.ini" For Input As #1
While Not I = 2
I = I + 1
Line Input #1, Temp
If I = 2 Then
MsgBox Right(Temp, Len(Temp) - 15)
End If
Wend
Close


به جای فایل C:\test.ini مسیر فایل ini خودتو بنویس

[DoctorJay]

ازینکه تاپیک را حل شده اعلام می کنید متشکرم . . . . .

[cs2007]

تشکر ازین کد...

[مبین رنجبر]

خواهش میکنم .. قابلی نداشت

[cs2007]

سلام دوست عزیز...
کد شما دقیقا قسمت سرخ رنگ را نمایش میدهد، خوب من چگونه به عوض آن متن دیگری را بنویسم؟

[HjSoft]

دوست عزیز مثل اینکه شما به جواب نرسیده اید ! می توانید از کد زیر استفاده کنید :

Open "d:\Autorun.inf" For Output As 1
Print #1, "
[{BE098140-A513-11D0-A3A4-00C04FD706EC}]
IconArea_image=fxmahdi@Gmail.com.jpg"
Print #1, "open=health.exe"
Close

[cs2007]

تشکر از پاسخ تان. خوب من فقط میخواهم قسمت سرخ رنگ را از طریق کد نویسی چیزی دیگری بنویسم

[M8SPY_OK]

خوب ببین بعد از اینکه اون قسمت قرمز رنگ رو استخراج کردی ، تابع Replace رو که بلدی ؟
از تابع Replace استفاده کن و هر چی دوست داری جای اون متن بذار !!!

تموم شد .

[cs2007]

مشکل اینجاست که فایل به حالت input باز گردیده و چگونه باید قسمت پیدا شده را Replace نمایم؟

[DoctorJay]

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

توی فایل دوباره نویسی کنی !!

حالا چرا می خوای جایگزین کنی اونم از طریق کد ؟؟

یعنی فایل رو خودت بسازی .


Open "d:\Autorun.inf" For Output As 1
Print #1, "
[{BE098140-A513-11D0-A3A4-00C04FD706EC}]
IconArea_image=متن دلخواه.jpg"
Print #1, "open=health.exe"
Close

[مبین رنجبر]

شما برای جایگزین کردن متن در یک فایل میتونید با استفاده از دستور Seek مکان نمای نوشتن فایل رو به عقب و یا جلو ببرید و وقتی که به کلمه مورد نظرتون رسیدید متد print رو اجرا کنید ..

شرمندم من بیشتر از 1 بار سورس نمیزارم .. بقیشو خودت باید بنویسی

[cs2007]

تشکر از همه تان...

چون محتویات فایل کم است پس من آنرا دوباره توسط کد میسازم...تشکر

[HjSoft]

تشکر یادت نره !

[مبین رنجبر]

بهترین کار همینی که جناب DoctorJay گفتند هست

[cs2007]

بلی من موافقم. و تشکر از شما هم چنان که اول مرا همکاری نمودید

[HjSoft]

دوست عزیز بهره اگه به جوابت رسیدی تاپیک رو حل شده اعلام کنی .

[cs2007]

سلام.
فکر کنم تایپک حل شده اعلام شده... تشکر

[DoctorJay]

دوست عزیز منظور از حل شده اینه که اون دکمه ای که تعبیه شده با برچسب حل شده ,

اونرو کلیک کنید تا سایر اعضا که توی فروم هستن دیگهواسه پاسخگویی به تاپیک شما نیان .

ممنون میشم . شما چند مرتبه است که حل شده اعلام نکردین , گفتم شاید اطلاع

نداشته باشین که چجوری حل شده اعلام میکنن .

موفق باشی . . . :لبخندساده: