PDA

View Full Version : سوال: نوشتن در وسط فایل



SHD.NET
یک شنبه 12 آذر 1391, 16:01 عصر
سلام و ...
میخواستم ببینم چجوری میشه وسط فایل یه خطی رو اضافه کرد ؟؟
مثلا با دستور writeline به انتهای یک فایل میشه یه خط اضافه کرد . با چه دستوری میشه به وسط یه فایل متن مورد نظرمون رو اضافه کنیم یا یه خط از اون وسط رو پاک کنیم ؟؟؟

ممنون

SHD.NET
یک شنبه 12 آذر 1391, 17:06 عصر
آفا کسی نبود جواب بده ؟؟ با ترفند هم نمیشه این کارو کرد ؟؟
خیلی لازم دارم :ناراحت:

shahryari
یک شنبه 12 آذر 1391, 17:37 عصر
با سلام
منظور از وسط فایل چیست؟
ایا تابعی مخواهید که خط شماره n را از فایل متنی بخواند؟
یا تابعی میخواهید که تعداد خط های موجود در فایل متنی را تقسیم بر 2 بکند و خط وسطی را بخواند؟

shahryari
یک شنبه 12 آذر 1391, 17:56 عصر
با کد های زیر میتونید خط شماره n را از یک فایل متنی بخوانید


Dim text As String = "c:\001.txt"
Dim L = IO.File.ReadAllLines(text)
MsgBox(L(6))

-------------------
با استفاده از کد زیر میتونید یک متن را جایگزین خط شماره n بکنید و در فایل ذخیره کنید:


Dim text As String = "c:\001.txt"
Dim L = IO.File.ReadAllLines(text)
L(6) = " متن مورد نظر "
IO.File.WriteAllLines(text, L)

نکته :
N در این مثال عدد 6 است که به اختیار خودتان و شماره خط مورد نظرتان میتواند تغییر کند
موفق باشید