تبلیغات
تبلیغات متنی
محبوبترینها
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
قیمت انواع دستگاه تصفیه آب خانگی در ایران
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
خرید بیمه، استعلام و مقایسه انواع بیمه درمان ✅?
پروازهای مشهد به دبی چه زمانی ارزان می‌شوند؟
تجربه غذاهای فرانسوی در قلب پاریس بهترین رستوران‌ها و کافه‌ها
دلایل زنگ زدن فلزات و روش های جلوگیری از آن
خرید بلیط چارتر هواپیمایی ماهان _ ماهان گشت
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1836668804
سوال درباره کار با فایل 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]
[تعداد بازديد از اين مطلب: 3530]
-
گوناگون
پربازدیدترینها