فایل متنی

[hooooman]

سلام
میشه 1 فایل متنی رو باز کنیم و بگیم که از اولش فقط مثلا 10 کاراکترشو بخونه؟

[__siavash__]

به این شکل خط اول رو بخون بعد 10 کارکتر اول رو ازش جدا کن


Dim ReadedLine As String
Open App.Path & "\Test.txt" For Input As #1
Do Until EOF(1) = True
Line Input #1, ReadedLine
Loop
Close #1

[hooooman]

به این شکل خط اول رو بخون بعد 10 کارکتر اول رو ازش جدا کن


Dim ReadedLine As String
Open App.Path & "\Test.txt" For Input As #1
Do Until EOF(1) = True
Line Input #1, ReadedLine
Loop
Close #1


ببخشین مشکل من اینه که این فایلی که وصفش هست خیلی بزرگه!!!
من میخام 1 قسمتیشو حدود 500 600 بایتشو بخونم (که قاعدتا پوینتر هم میره جلو ) و در مراحل بعدی باز 500 600 تاشو بخونم تا اونجا که دیگه نیاز بر طرف بشه و بعد ببندمش
1 عیب دیگه که این فایله داره اینه که انتهای خطوطش کاراکتر اینتر نداره
برا همینم مجبورم بایتهایی رو که تو 1 مرحله باید خونده بشن مشخص کنم

[__siavash__]

خوب میتونی فایل رو به صورت Binary Mode باز کنی و با Get فایل رو بایت بایت بخونی یا چون فایل شما تکست هستش به این روش هم میتونی عمل کنی !
یه متغییر به این شکل تعریف کن


Dim MyString As String * 10

بعد با همون کد در واقع خط اول رو بخون که 10 کاراکتر اول توی MyString قرار میگیره بعد محاسباتت رو انجام بده بعد Pointer رو با Seek Statment بذار در موقیت مورد نظر
به این صورت

Seek #1, position
البته باید متغییر position رو قبلا تعریف کرده باشی و برای خوندن کارکتر های 11 تا 20 مقدار Position رو 11 قرار میدی !

[ali_habibi1384]

من یکسری توابع API توی سایت آپلود کردم اگه مشکلتون حل نشده به اونا مراجعه کنین یکی شون دقیقا همین کاری رو که شما می خواین میکنه

[ali_habibi1384]

اگه مشکلتون حل شد بجای تشکر گفتگوی مفید رو کلیک کنید تا ما بدونیم

[Mbt925]

اگه مشکلتون حل شد بجای تشکر گفتگوی مفید رو کلیک کنید تا ما بدونیم

دوست عزیز آقا علی گل شما این اخطار رو توی اکثر تاپیک هایی که سر می زنین به دوستان میدین ،
خود مدیر این پیغام رو به همه دادن و همه کسایی که توی سایت لوگین کردن این مطلب رو خوندن.

نیازی نیست شما خودتونو اذیت کنین دوست عزیز.

[hooooman]

اگه مشکلتون حل شد بجای تشکر گفتگوی مفید رو کلیک کنید تا ما بدونیم


نه متاسفانه هنوز مشغول سعی و خطا هستم