فرستادن حرف به حرف حروف در یک فایل متنی به صورتی که در فایل متنی پشت سر هم ظاهر شوند.

[m2011kh]

سلام دوستان.
ما یه سری حروف داریم مثل:
م
ه
د
ی
من میخوام هر یک از این حروف رو جدا از هم و به صورت مستقل به یک فایل متنی(txt)اضافه کنم.
ولی وقتی به فایل اضافه شدن بدین گونه در فایل ظاهر شوند:
مهدی
فک کنم متوجه منظور من شده باشید.
کارم خیلی فوریه
ازتون ممنون میشم در اسرع وقت پاسخ بدید.
متشکرم
MMD

[vbhamed]

سلام

بعد از هر حرف يك كاراكتر 157 يعني Chr$(157) هم بنويسيد

[m2011kh]

سلام.
من از این کد استفاده کردم.
Private Sub Command1_Click()
Open "C:\01.txt" For Output As #1
Print #1, "M" & Chr$(157)
Print #1, "A" & Chr$(157)
Print #1, "H" & Chr$(157)
Close
End Sub

ولی حر حرفو توی یک خط جدا چاپ میکنه.
اگه کمک کنید ممنون میشم.
متشکرم
MMD

[محسن واژدی]

سلام علیکم
; در انتهای Print اضافه کنین:

Private Sub Command1_Click()
Open "C:\01.txt" For Output As #1
Print #1, "M";
Print #1, "A";
Print #1, "H";
Close
End Sub


موفق باشید

[m2011kh]

خیلی ممنون از آقا حامد و آقا محسن.
مشک رفع شد