loo30fer
کاربر متخصص مولتی مدیا بیلدر
جناب ali guard کد من که همین (CHR(13) + CHR(10 بود خودتون به برعکس تغییرش دادین باز یک نگاهی به کد نمونه من بندازینمخصوصا ان تغیر دادم
کد:
CHR(10) + CHR(13)
با این شكل
کد:
CHR(13) + CHR(10)
جناب ali guard کد من که همین (CHR(13) + CHR(10 بود خودتون به برعکس تغییرش دادین باز یک نگاهی به کد نمونه من بندازینمخصوصا ان تغیر دادم
کد:
CHR(10) + CHR(13)
با این شكل
کد:
CHR(13) + CHR(10)
سلام دوست عزیز من با نتیجهی كارم رسیدم من این كار برای این میخواستم الان میكمجناب loo30fer روش پردردسري رو براي انجام منظورتون انتخاب كرديد. اين روش براي فايلهاي با تعداد خطوط كم ممكنه خوب باشه اما براي فايلهاي طولاني و همينطور فايلهايي كه در طي كاركرد كاربر دچار تغييرات و حذف و اضافه خطوط ميشن فرايند انجام كار رو مختل خواهد كرد.
جناب ali guard برداشت من از سوالات شما اينه كه قصد داريد به نوعي به يك بانك اطلاعاتي مبتني بر فايل txt برسيد. توصيه ميكنم سراغ پلاگين SQLite بريد و تا كارتون راحت تر و اصولي تر انجام بشه.
حذف كردن يك خط از فايل متني نميتونه ايده خوبي براي جلوگيري از فرايند جستجو در فايل و پيدا كردن كلمات مشابه يك ديكشنري انگليسي به فارسي باشه
موفق باشيد
CHR(13) + CHR(10)
CHR(10) + CHR(13)
source$ = '<SrcDir>\y.txt'
For i=1 To NOL(source$)
str$ = StrFromFile(source$,i,1)
If (str$='') Then
Line = i
*** Get Text to >> Line = 2 << + Char Enter
GetTextLine$ = StrFromFile(source$,Line,1) + CHR(10) + CHR(13)
*** Get Number Line File >> Path$ = 'C:\File.txt' <<
GetLineFile = NOL(source$)
*** Get All Text File >> Path$ = 'C:\File.txt' <<
GetTextAllLine$ = StrFromFile(source$,1,GetLineFile)
*** Change Text GetTextLine$ In Text Empty '' To GetTextAllLine$
GetTextAllLine$ = StrChange(GetTextAllLine$,GetTextLine$,'')
*** Save Text GetTextAllLine$ To File Path$ = 'C:\File.txt' <<
Save = StrToFile(source$,GetTextAllLine$,FALSE,FALSE)
Else
End
Next i
جناب ali guard کد من که همین (CHR(13) + CHR(10 بود خودتون به برعکس تغییرش دادین باز یک نگاهی به کد نمونه من بندازین
GetTextLine$ = CHR(13) + CHR(10) + StrFromFile(Path$,Line,1)
]دروسته برای یكی یكی جواب میده ولی اون كدی كه من در بالا دادم تیست كنید این كال تمامی لاین های خالی باك میكند اگر بیاید CHR(13) + CHR(10) بزرید میبینید همه خط ها باهم یكی میكند یانی با ید CHR(13) + CHR(10) شوما با CHR(10) + CHR(13) تغیر كنه با هر حال اصل كار شوما بودیدممنونخوب درستش همون 10 + 13 هستش ضمنا من کدم رو تست کردم درست جواب میده و باهاش میشه هر لاینی رو حذف کرد فقط برای حذف لاین آخر باید عدد 10 + 13 قبل متن لاین آخر قرار داد به این شکل :
کد:GetTextLine$ = CHR(13) + CHR(10) + StrFromFile(Path$,Line,1)
به هرحال خوشحالم که کارتون با این نمونم راه افتاد و تونستم کمکی بکنم