تبلیغات
تبلیغات متنی
آموزشگاه آرایشگری مردانه شفیع رسالت
دکتر علی پرند فوق تخصص جراحی پلاستیک
بهترین دکتر پروتز سینه در تهران
محبوبترینها
راهنمای انتخاب شرکت‌های معتبر باربری برای حمل مایعات در ایران
چگونه اینورتر های صنعتی را عیب یابی و تعمیر کنیم؟
جاهای دیدنی قشم در شب که نباید از دست بدهید
سیگنال سهام چیست؟ مزایا و معایب استفاده از سیگنال خرید و فروش سهم
کاغذ دیواری از کجا بخرم؟ راهنمای جامع خرید کاغذ دیواری با کیفیت و قیمت مناسب
بهترین ماساژورهای برقی برای دیسک کمر در بازار ایران
بهترین ماساژورهای برقی برای دیسک کمر در بازار ایران
آفریقای جنوبی چگونه کشوری است؟
بهترین فروشگاه اینترنتی خرید کتاب زبان آلمانی: پیک زبان
با این روش ساده، فروش خود را چند برابر کنید (تست‌شده و 100٪ عملی)
خصوصیات نگین و سنگ های قیمتی از نگاه اسلام
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1868385960
سوال درباره کار با فایل txt در ویژوال بیسیک -
واضح آرشیو وب فارسی:سایت ریسک: سوال درباره کار با فایل txt در ویژوال بیسیک A_123 15 بهمن 1389, 00:08سلام و خسته نباشید ببینید من یه برنامه نوشتم که تو اوون محتویات یه textbox که خاصیت multiline آن true هستش توسط دستور های open x.txt for output as #1 و سپس print ریخته میشه توی فایل متنی x . این تا اینجا . بعد گویا برنامه میاد همه ی اینا رو توی یه خط می زاردش تو فایل x . یعنی اگه فایل x رو باز کنم خط اولش مثلا 200 تا کارکتر داره! من میخواستم بدونم که آیسا میشه به برنامه دستوری داد که هر 100 کارکتر از textbox رو بکنه توی یک خط از فایل متنی x .؟ یعنی اگه توی textbox ما 1000 تا کارکتر بود و ریخته شد توی فایل x.txt , وقتی فایل متنی رو باز کنی ببینی توی ده خط ریخته شده! امیدوارم خوب پرسیده باشم!:rose: the_king 15 بهمن 1389, 15:46سلام و خسته نباشید ببینید من یه برنامه نوشتم که تو اوون محتویات یه textbox که خاصیت multiline آن true هستش توسط دستور های open x.txt for output as #1 و سپس print ریخته میشه توی فایل متنی x . این تا اینجا . بعد گویا برنامه میاد همه ی اینا رو توی یه خط می زاردش تو فایل x . یعنی اگه فایل x رو باز کنم خط اولش مثلا 200 تا کارکتر داره! من میخواستم بدونم که آیسا میشه به برنامه دستوری داد که هر 100 کارکتر از textbox رو بکنه توی یک خط از فایل متنی x .؟ یعنی اگه توی textbox ما 1000 تا کارکتر بود و ریخته شد توی فایل x.txt , وقتی فایل متنی رو باز کنی ببینی توی ده خط ریخته شده! امیدوارم خوب پرسیده باشم!:rose: مدام باید این مساله رو تذکر بدم، همیشه در عنوان سوال زبان برنامه نویسی رو مشخص کنید. بصورت پیشفرض صرفا زمانی متن در سطر جدید ذخیره میشه که در متن ورودی از Enter استفاده کرده باشید که موجب درج شدن دو کاراکتر CR و LF میشه یعنی vbCrLf اما چون خودتون چنین کاراکتر هایی رو درج نکرده اید می بایستی رشته رو در فواصلی حدود 100 کاراکتر بشکنید، البته چه بهتر که این شکستن در میان کلمات انجام یشه، نه دقیقا 100 کاراکتر تا موجب شکسته شدن یک کلمه به دو قسمت نشویم. مثلا : Dim t1 As String, t2 As String Dim pos As Long, n As Long n = 100 t1 = Text1.Text pos = 1 Do While pos <= Len(t1) Select Case Mid(t1, pos, 1) Case ".", ":", "?", " " If pos >= n Then t2 = t2 & Left(t1, pos) & vbCrLf t1 = Mid(t1, pos + 1) pos = 0 End If Case vbCr t2 = t2 & Left(t1, pos - 1) & vbCrLf t1 = Mid(t1, pos + 2) pos = 0 End Select pos = pos + 1 Loop t2 = t2 & t1 Open "x.txt" For Output As #1 Print #1, t2 Close #1 سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 3566]
-
گوناگون
پربازدیدترینها