replace کردن یک رشته در فایل؟

[one hacker alone]

با یاد خدا
سلام دوستان
فایل متنی داریم که داخل اون به شکل زیر هست
ali 123456
حالا چجوری میشه این فایل رو باز کرد و اون 3 رو به 9 تغییر داد؟
در واقع مشکل من با پاک کردن عدد 3 هست

[MohammadGh2011]

با یاد خدا
سلام دوستان
فایل متنی داریم که داخل اون به شکل زیر هست
ali 123456
حالا چجوری میشه این فایل رو باز کرد و اون 3 رو به 9 تغییر داد؟
در واقع مشکل من با پاک کردن عدد 3 هست

سلام عليکم
ميتونيد از اين دستور استفاده کنيد:
filepath = "C:\txtfile.txt"
FileNumber = FreeFile()
Open filepath For Output As FileNumber
Write #FileNumber, "ali 129456"
Close FileNumber
و يا از اين دستور استفاده کنيد:
Dim filepath As String
filepath = "C:\txtfile.txt"
FileNumber = FreeFile()
Open filepath For Output As FileNumber
Write #FileNumber, Replace("ali 123456", "3", "9")
Close FileNumber

اگه توضيح خواستين بگين.

موفق باشيد

[one hacker alone]

ممنون مشکلی که هست اینه که محتوای فایل ثابت نیست فقط ما میدونیم که مثلا هفتمین و هشتمین کاراکتر باید پاک بشن و بجاش دو رقم دیگه قرار بگیره و سایر داده های فایل متغییر هست

[MohammadGh2011]

ممنون مشکلی که هست اینه که محتوای فایل ثابت نیست فقط ما میدونیم که مثلا هفتمین و هشتمین کاراکتر باید پاک بشن و بجاش دو رقم دیگه قرار بگیره و سایر داده های فایل متغییر هست
اگه شما ميدونيد که چندمين کاراکتر بايد جايگزين بشه ميشه بايک تغيير کوچولو در کد اون رو اعمال کرد.

[one hacker alone]

اونجایی که من میخوام تغییر بدم مشخص هست اما ادامه رشته متغییر هست و معلوم نیست چیه اما کد شما جوری نوشته شده که محتوای فایل ثابت در نظر گرفته شده

[MohammadGh2011]

اين هم براي متن متغير:
Dim inti As Integer
Dim filepath As String
Dim fileline As String
Dim le As String
Dim mi As String

filepath = "C:\txtfile.txt"
FileNumber = FreeFile

Open filepath For Input As FileNumber
While EOF(FileNumber) = False
Input #FileNumber, fileline
le = fileline
Wend
Close

Open filepath For Output As FileNumber
Write #FileNumber, Replace(le, "1", "9")
Close FileNumber


موفق باشيد

[one hacker alone]

ممنون ایرادی که داره در نهایت چیزی که داخل فایل ذخیره میشه اینه
""

همین

[MohammadGh2011]

ممنون ایرادی که داره در نهایت چیزی که داخل فایل ذخیره میشه اینه
""

همین
خواهش ميکنم
اين هم قابل حله،کافيه خطا زير رو
Write #FileNumber, Replace(le, "1", "9")
به اين:
Print #FileNumber, Replace(le, "1", "9")
تغيير بدي.
يعني به جاي Write از Print استفاده کنيد.



موفق باشيد

[one hacker alone]

ممنون دوست عزیز جواب داد
فقط دوستان دیگه که خواستن استفاده کنن خط
le = fileline
رو به شکل زیر تغییر بدن
le = le + fileline


اما در کل مشکلی که هست اینه که اگه فایل ما چند خطی باشه بعد از تغییر در فایل همشون یک خطی میشن که برای اون هم روش های دیگه ای هست