استفاده از یه فایل بزرگ به عنوان متغیر

[paranoide]

سلام
من میخوام یه فایل متنی بزرگ 10000 خطی رو به عنوان متغیر ازش استفاده کنم و داخل یه فایل دیگه بنویسم.
حالا سوال من اینه که
1-اینکار شدنیه؟
2-اگه میشه چطور؟ چون وقتی متغیر رو از نوع string انتخاب میکنم پیغام خطا میده؟
3-اگه نشدنیه راه حل دیگه ای وجود داره؟

[بهروز عباسی]

دوست عزیز اگه میتونی فایل رو به صورت رکورد به رکورد بخون و همزمان بنویس تا سرعتت بیشتر بشه

موفق باشی

[paranoide]

مرسی از جوابتون
یه کم بیشتر توضیح میدی

[just4froum]

با سلام من دقیقا منظورتو نفهمیدم می خوای چی کار کنی ولی اگر هم نخواستی هم زمان بنویسی می تونی از متغیر های آرایهای استفاده کنی. ( به جای این که توی یک متغییر بریزی تو چنتا بریز)

[paranoide]

ببین دوست عزیز
من یه فایل دارم که اگه اونو یه جای برنامه کپی بشه اون برنامه فارسی میشه
حالا میخوام کل محتویات اون فایلو داخل کدم بیارم که اگه مثلا سریال رو درست وارد کرد محتویات فایلم بدون نیاز به خود فایل اونجایی که میخوام نوشته بشه

[محسن واژدی]

سلام
برای اینکار هم میتوانید فایل را به ریسورس اضافه کنید تا در زمان های بعدی extractش کنید و هم برنامه ای بنویسید که تا خطوط فایل را گرفته و آنها را در یک آرایه قرار دهد (البته بنظر بنده بهینه تر این است که برنامه را به ریسورس اضافه کنید)

موفق باشید

[M.T.P]

کد زیر رو ببینید:


Dim strFile As String
Dim strData As String
Dim intFn As Integer

strFile = "c:\Note.txt"
intFn = FreeFile

Open strFile For Binary As intFn
strData = String$(LOF(intFn), Space$(1))
Get intFn, , strData
Close intFn

تمامی محتویات فایل Note.txt در متغیر strData قرار میگیره.

[paranoide]

برای اینکار هم میتوانید فایل را به ریسورس اضافه کنید
چطوری اضافه کنم و چطوری استفاده کنم؟؟؟:خجالت:

[paranoide]

کد زیر رو ببینید:


Dim strFile As String
Dim strData As String
Dim intFn As Integer

strFile = "c:\Note.txt"
intFn = FreeFile

Open strFile For Binary As intFn
strData = String$(LOF(intFn), Space$(1))
Get intFn, , strData
Close intFn

تمامی محتویات فایل Note.txt در متغیر strData قرار میگیره.
مرسی از جوابتون
ولی من میخوام کدم مستقل از فایلم باشه یعنی زمانی که کدم اجرا میشه میخوام نیاز به فایل متنیم نباشه

[بهروز عباسی]

اینارو ببین

http://barnamenevis.org/showthread.php?333041-%D9%88%D8%A7%D8%B1%D8%AF-%DA%A9%D8%B1%D8%AF%D9%86-%D8%AF%D8%B1-%D8%B1%DB%8C%D8%B3%D9%88%D8%B1%D8%B3-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D8%AF%D8%A7%D8%AE%D9%84-%D8%B1%DB%8C%D8%B3%D9%88%D8%B1%D8%B3-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D8%A7%D8%B5%D9%84%DB%8C

http://barnamenevis.org/showthread.php?332110-%D9%82%D8%B1%D8%A7%D8%B1-%D8%AF%D8%A7%D8%AF%D9%86-%D9%81%D8%A7%DB%8C%D9%84-%D8%AF%D8%B1-%D8%B1%DB%8C%D8%B3%D9%88%D8%B1%D8%B3

[M.T.P]

مرسی از جوابتون
ولی من میخوام کدم مستقل از فایلم باشه یعنی زمانی که کدم اجرا میشه میخوام نیاز به فایل متنیم نباشه

فایلت رو که تو ریسورس گذاشتی با دستور زیر می تونی داخل متغیر String قرار بدی.


Dim arrData() As Byte
Dim strData As String

arrData = LoadResData(101, "CUSTOM")
strData = StrConv(arrData(), vbUnicode)

محتویات فایل در متغیر strData قرار میگیره.