اضافه کردن یک متن به آخر هر لاین در فایل تکست

[elimiz]

سلام
با وی بی چطوری میشه در یک فایل متنی به اخر هر خط (لاین) یک متن رو اضافه کرد

یعنی در یک فایل متنی 50 لاین نوشته داریم که من میخوام به اخر همه لاینها یک منم اضافه بشه و برنامه این کار رو برام بکنه. ممنون میشم راهنمایی بکنید
با تشکر

[mehran901]

خیلی ساده ...
فایلو تو تکست باکس لود کنین
مثلا طبق نمونه ای که من نوشتم عبارت 901 ب آخر هر خط تکست باکس اضافه میشه


Text1.Text = Replace(Text1, vbCr, " 901" & vbCrLf)


ویا البته



Text1.Text = Replace(Text1, vbCrLf, " 901" & vbCrLf)

[elimiz]

من میخوام به اخر هر لاین (خط) اضافه بکنه. این کد شما فقط به اخر متن اضافه میکنه

[SlowCode]

فایل رو به صورت ترتیبی باز کن.
داخل حلقه که خطوط رو میخونی همزمان یه فایل دیگه رو باز کن و بریز توش و به انتهای اون رشته که خوندی متن مورد نظرت رو اضافه کن.

[mehran901]

به آخر هر لاین عبارت اضافه میشه دیگه ! همون طوری که از کد مشخصه دقیقا به همون منظور نوشته شده

وقتی تکست باکس شما رو حالت مولتی لاین قرار بگیره نشانه اتمام هر لاین ثابت vbcr هست و البته به طور مشابه از vbcrlf هم میتونید برای تشخیص آخر هر لاین استفاده کنید

ضمیمه شده :

113451

[siyn71]

اینو امتحان کن:لبخند:
Text1 = Text1 & "Amvaj ABI"

[tanavar_ayat.]

دوست من.
اینطوری میشه . باید اول با تابع mid متن رو مورد جستجو قرار بدید کلمه به کلمه .
نشانه تمام شدن خط 3 تا فضای خالیه بعد از 3 تا فضای خالی شما می تونید متن رو بنویسید . یعنی بعد از 3 فضای خالی حکم enter رو داره. من خودم قبلا این مشکل رو داشتم.