حذف یه خط از فایل تکس

[mahdi6]

سلام
عرض ادب و احترام
چطور میشه یه خط از فایل تکس را حذف کرد؟
من یه برنامه دارم که یک سری اطلاعات از کاربر میگره و تو فایل تکس ذخیره می کند گاهی لازمه یه خط از اطلاعات کامل پاک بشود
ممنون می شوم دوستان راهنمایی کنند
با تشکر

 

[Saman]

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

StrToLine(FileName$, String$, ToLine, Overwrite)

دوم اینکه مثلا اگه خط شماره 10 مد نظر هستش. میتونید از 1 تا 9 و 11 تا آخر فایل رو بذارید کنار هم که میشه کل فایل بدون خط 10ام. برای اینکار هم میتونید از دستورات زیر استفاده کنید:

NOL(FileName$)

StrFromFile(FileName$, FromLine, NumOfLines)

توصیه میکنم حتما این مبحث رو بخونید. خیلی بهتون کمک میکنه :

آموزش كامل تمامى توابع رشته‌اى در مالتى مديا بيلدر
http://forum.majidonline.com/showthread.php?t=100922

 

[mahdi6]

سلام
عرض ادب و احترام
خیلی خیلی لطف کردید فایل دانلود کردم و استفاده کردم بسیار عالی بود خیلی ممنون
فقط یه سوال دیگه این کد را ببیند خط سوم را حذف می کند ولی خط چهارم را ادمه خط دوم سیو می کند این مشکل چطور حل کنم

FileName$=path$+'Txt\moshaver.txt'
k=3
aa=NOL(FileName$)
k1=k-1
k2=k+1
mm$= StrFromFile(FileName$, 1, k1)
mm1$= StrFromFile(FileName$, k2,aa)
mm2$=mm$+mm1$
status=StrToFile(FileName$,mm2$,0,1)

 

[Saman]

نیاز دارید یه خط برید پایین یا همون کلید Enter رو بزنید. برای این کار از تابع CHR استفاده میشه. که کد اسکی رو به معادل نوشتاری اون تبدیل میکنه. برای شبیه سازی Enter میتونید از کد زیر استفاده کنید.

اگه مشکلی بود. بگید.

mm2$=mm$+CHR(13)+CHR(10)+mm1$