Fa تبدیل متن به صورت عمودی

[Singular]

کسی هست کمکم کنه خیلی واسم مهمه

برنامه که فایل تکسی که متنش به صورت

salam khobi chetori

به صورت عمودی تبدیل کنه


salam
khobi
chetori


اینطوری

 

[arash-mmb-tz]

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

امیدوارم این پروژه برای شما مفید باشد

در ضمن کلمه های قسمت شده در آرایه get$ :Example ریخته شده است.

 

[Singular]

سلام دوست عزیز
واقعا ممنونم
دست شما درد نکنه ... فقط یه سوال دیگه
امکانش هست هوشمند تر کنیم برنامه رو ..
که اگر فاصله بیشتر هم بود بازهم زیر هم بیاره
مثلا ممکنه فاصله 2تا باشه یا بعضی وقتا فاصله 5تا باشه...... خودش بشناسه که زیر هم بیاره

آیا امکانش هست؟؟؟

 

[arash-mmb-tz]

بله امکانش هست و حتما خوبش می کنم

شما با این برنامه حتی می تونید هوش مصنوعی هم درست کنید !!!

 

[Singular]

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

چیکار باید کنیم؟؟؟

 

[arash-mmb-tz]

بفرمایید حالا می تونید فایل اضافه کنید (برای وارد کردن فایل تکست به گزینه OpenFile در زیر پروژه کلیک کنید)

و افزایش تعداد فاصله رو به عهده شما می زارم

 

[Singular]

میشه طریقه ذخیره کردن فایل بدید
مثلا اگر تو پاراگراف باشه چطور ذخیره کنیم
اگر تو یه ریشه ای مثلا

test$='slm khobi chetori'
************ ذخيره متن بالا در فايل تکست

 

[arash-mmb-tz]

خب . شما یک Button ایجاد کنید و دستورات زیر رو تو او بنویسید:

SaveFile("Text Files (*.txt)|*.txt|All Files|*.*||","*.txt")If (OpenFile$ <> '') Then
  SongListSave("a","OpenFile$")

حالا پروژه رو تست کنید و با استفاده از گزینه OpenFile فایل مورد نظر رو Open کنید و سپس با کلیک بر Button ی که شما ساخته اید ، پنجره SaveFile باز خواهد شد و شما می توانید فایل را با فرمت TXT ذخیره کنید.