تبدیل کد اسکی در ویژوال بیسیک

[emaddavari]

سلام خسته نباشید
من یه آشنایی خیلی کم و مقدماتی با ویژوال بیسیک دارم
الآن نیازدارم برای انجام یه کاری به چند خط دستور در ویژوال بیسیک ولی هرچی فکر میکنم نمی تونم بنویسم ( البته خیلی مقدماتی آشنایی دارم)
می خوام این چند خط دستور برام این کارو انجام بده
یه متن نا محدود رو ازیه تکست باکس بگیره و بعد هرجا اینتر خورده ، اینتر رو تبدیل کنده به اسپیس
دلیلش هم اینه که من یه متن طولانی دارم که خیلی جاها ، بیهوده اینتر خورده و این اینتر های زیادباعث زشتی شکل متن شده ، ازطرفی متن خیلی زیاده و امکان ویرایش دستی اون فراهم نیست چون هم خیلی طول می کشه و هم خسته کنندست
می دونم ویژوال بیسیک باید کد اسکی اینتر و کد اسکی اسپیس رو جابجا کنه ولی نمی دونم چطوری براش بنویسم ...
ممنون می شم کمکم کنید :چشمک:

[sinaone1]

خوب دوست عزیز کاری نداره با دستور replace می تونی این کارو به سادگی انجام بدی

[emaddavari]

خوب دوست عزیز کاری نداره با دستور replace می تونی این کارو به سادگی انجام بدی

اگه منظورتون از replace همون replace ورده که با اون فقط می شه حروف رو تغییر داد نه کلید هایی مثل اینتر و اسپیس
ولی اگه منظورتون از replace ، دستوری در ویژوال بیسیکه ، من فرد مبتدی هستم توی ویژوال ، بیشتر توضیح بدید ممنون می شم

[Hossis]

کد Replace در ورد
1- در کادر Find می نویسید
^p و در کادر replace یک فاصله (اسپیس ) می گذارید . اگر هم خواستید دو خط به یک خط تبدیل بشه و خطوط خالی حذف بشه، در کادر find دوبار
^p رو نوشته و در کادر جایگزینی، یک بار اونو وارد کنید.
کد جایگزینی در VB

textbox1.text=io.file.readAllText("c:\1.txt")
dim Txt as string =textbox1.text
txt=txt.replace(vbnewline," ")
Io.file.writeAllText("C:\1.txt",txt)

[emaddavari]

دوست عزیز خیلی ممنون
دستتون درد نکنه