PDA

View Full Version : سوال: خالی کردن فایل txt



shahabbasic
پنج شنبه 06 بهمن 1390, 13:08 عصر
من یک فایل txt کنار برنامم دارم که اطلاعاتی رو توش ذخیره میکنم حالا اگر بخوام داخلشو کاملا خالی کنم باید چکار کنم؟
یا مثلا اگر بخوام خط پنجم رو ویرایش کنم چکار کنم؟

IamOverlord
پنج شنبه 06 بهمن 1390, 13:32 عصر
اگه می خوای خالی کنی فایل رو برای Output باز کن، بعد ببند!

shahabbasic
پنج شنبه 06 بهمن 1390, 13:41 عصر
یک خط مشخص رو بخوام ویرایش کنم چی؟
یا مثلا بخوام اطلاعات خط پنجم رو بخونم؟

IamOverlord
پنج شنبه 06 بهمن 1390, 13:49 عصر
شاید روشی بهتر از اینی که می گم باشه ولی می تونی فایل رو باز کنی خط به خط بخونی بریزی داخل یه آرایه. بعد تغییراتت رو انجام بدی رو آرایه. بعد فایل رو باز کنی به عنوان Output، و خط به خط از آرایه بریزی توش.

shahabbasic
پنج شنبه 06 بهمن 1390, 14:01 عصر
خب اینکه چجوری مثلا خط پنجم رو بخونم فهمیدم ولی اینکه چجوری خط پنجم رو پاک کنم نفهمیدم
مثلا اگر خط 5 هست salam
جاش خالی بشه نه اینکه کلا از بین بره یعنی فاصله بینش باقی بمونه
اینجوری :
man

shoma

IamOverlord
پنج شنبه 06 بهمن 1390, 14:15 عصر
FileAddress = "D:\Test1.txt"
n = 3
ff = FreeFile
i = 1
Open FileAddress For Input As #ff
While Not EOF(ff)
Line Input #ff, strLine
If i = n Then strLine = ""
i = i + 1
strNewText = strNewText + strLine + vbNewLine
Wend
Close #ff
ff = FreeFile
Open FileAddress For Output As #ff
Print #ff, strNewText
Close #ff

shahabbasic
پنج شنبه 06 بهمن 1390, 18:33 عصر
چرا وقتی با این کار خط 1 رو پاک میکنم بعدش میخوام با

Print #1,"s"
باز s رو در خط دوم مینویسه؟

IamOverlord
پنج شنبه 06 بهمن 1390, 22:49 عصر
اگه منظورتون این هست که می خواید به جای جایگزین کردن ""، "s" رو جایگزین کنید، به جای کد خط 8 ام این رو بذارید:
If i = n Then strLine = ""

shahabbasic
پنج شنبه 06 بهمن 1390, 23:01 عصر
خط هشت که همین هست
منظورم اینه که چرا وقتی خط 1 رو پاک میکنم و دوباره با دستور print مینویسم روی خط 1 نمینویسه میره رو خط 2 مثل عکس زیر
81530