ذخیره متن در فایل نوتپد با فرمت txt

[mb1557]

با سلام خدمت اساتید گرامی
چطور میشه با یک دکمه اطلاعات متنی مثلاٌ دو ستون A و B را کپی کرده و سپس پنجره Save File گشوده شده و با آدرس دهی آنرا در مسیر دلخواه ذخیره نمود ؟
ممنون میشم اگه راهنماییم کنین .

[~M*E*H*D*I~]

RE: ذخیره اطلاعات متنی در فایل نوتپد

یعنی با فرمت TXT میخوای سیو بشه؟

[mb1557]

RE: ذخیره اطلاعات متنی در فایل نوتپد

کاملا همینطوره[hr]
جناب آقای وطن پرست عزیز فایل رو پیوست کردم ممنون میشم راهنماییم کنید .

http://s2.picofile.com/file/7581621933/Spectrum.xlsx.html

[~M*E*H*D*I~]

RE: ذخیره اطلاعات متنی در فایل نوتپد

خب چرا با فرمت CSV از فایلت save as نمیگیری؟؟

[mb1557]

RE: ذخیره اطلاعات متنی در فایل نوتپد

میشه بیشتر توضیح بدین ، یعنی با فرمت txt فایل ذخیره میشه ؟

[~M*E*H*D*I~]

RE: ذخیره اطلاعات متنی در فایل نوتپد

وقتی که فایل رو میخوای ذخیره کنی کافیه فرمت ذخیره رو CSV یا TXT انتخاب کنی

[mb1557]

RE: ذخیره اطلاعات متنی در فایل نوتپد

ممنون از راهنماییتون دوستان گرامی ولی قصد دارم تنها با یک کلیک روی Command Botton آن هم در userform این عملیات ( کپی اطلاعات و سپس ذخیره اتوماتیک آن با پسوند txt در فایل notepad ) را انجام دهم حالا کدی که این عملیات رو انجام می ده چی میتونه باشه ؟

http://s2.picofile.com/file/7582686983/Spec.xlsm.html

[MEYTI]

RE: ذخیره اطلاعات متنی در فایل نوتپد

با سلام
تشکر از جناب وطن پرست
دوست عزیز فایل شما به صورت پیوست اصلاح شد
export to notepad

[mb1557]

RE: ذخیره اطلاعات متنی در فایل نوتپد

[align=justify]نمی دونم با چه زبونی از شما تشکر کنم ممنون از راهنماییتون از همه دوستان گلم ممنونم .
اگه براتون مقدوره توی این سوالاتم کمکم کنید .

1 - آیا امکانش هست این کد رو جوری تغییر داد که هنگام Save پنجره مربوط به نام گذاری و انتخاب آدرس محل ذخیره فایل گشوده شده تا کاربر به دلخواه خود فایل را نام گذری و در دایرکتوری دلخواه ذخیره نماید ؟
2 - چگونه می شود بجای کپی کل اطلاعات ستون های A و B تنها تا سطر 101 این دو ستون کپی و ذخیره گردند ؟
3 - فاصله بین اعداد در فایل txt پس از ذخیره با 13 کاراکتر از هم جدا شده اند چطور می شود کاری کرد که فاصله آنها تنها به میزان یک Tab باشد ( فایل را برای ورودی نرم افزاری نیاز دارم که تنها فایل هایی با این فرمت و شمایل را می تواند ایمپورت کند همانند فایل پیوست شده )
مرسی از همتون .

Private Sub CommandButton1_Click()
MyFile = ThisWorkbook.Path & "\" & "textfile.txt"
fnum = FreeFile()
Open MyFile For Output As fnum
For i = 1 To Sheets(1).Range("a65356").End(xlUp).Row
Print #fnum, Sheets(1).Cells(i, 1).Text; Tab; Sheets(1).Cells(i, 2).Text
Next i
Close #fnum
End Sub

پیوست : http://s2.picofile.com/file/7584474301/Text_File.txt.html

[MEYTI]

RE: ذخیره متن در فایل نوتپد با فرمت txt

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

EXPORT TO NOAEPAD

[mb1557]

RE: ذخیره متن در فایل نوتپد با فرمت txt

عااااااااااااااااااااااااااااشقتم
مرسی مهدی جان عالی بود .

[runmohsen]

با سلام چطور میتونم این اطلاعات رو به طور نمونه در اکسل وارد کنم وخروجی به فرمت txt وبه شکل نمونه بگیرم

[iranweld]

با سلام

بصورت فایل پیوست دیتای خود را وارد نموده و بصورت فایل text ذخیره نمایید

سپس فایل text ایجاد شده را با نوت پد باز نموده و با Replace چند کارکتر خالی کنار دیتاها را حذف کنید