PDA

View Full Version : تعیین تعداد کاراکتر در هر خط



<برنامه نویس>
یک شنبه 22 بهمن 1385, 12:50 عصر
من میخوام یک textbox داشته باشم که یک متن رو دریافت کنه و در یک فایل txt ذخیره بشه ولی میخوام در هر خط این فایل txt رو بیستر از 30 کاراکتر نباشه و بعد از 30 کاراکتر enter زده بشه و به خط پایین تر بره به این دو نمونه توجه کنید
من میخوام اینجوری بشه :


&m2=
پله ها :
دو رشته پله در کوهستان طاق بستان به چشم می خورد یک رشته از
این دو از سمت شرقی مجلس تاجگذاری اردشیر دوم شروع می گردد و پس
از 34 پله به طرف طاق بزرگ که به نقار خانه موسوم است می پیچد
و سپس 20 پله دیگر بدان اضافه می شود که مجموعاً 54 پله می گردد
یک رشته دیگر پله از روی چشمه طاق بستان شروع می شود و در
کوه پس از 78 پله ختم می گردد .

ولی در حالت معمولی که ذخیره بشه اینجوریه :


&m2=
پله ها :دو رشته پله در کوهستان طاق بستان به چشم می خورد یک رشته از این دو از سمت شرقی مجلس تاجگذاری اردشیر دوم شروع می گردد و پس از 34 پله به طرف طاق بزرگ که به نقار خانه موسوم است می پیچد و سپس 20 پله دیگر بدان اضافه می شود که مجموعاً 54 پله می گردد یک رشته دیگر پله از روی چشمه طاق بستان شروع می شود و در کوه پس از 78 پله ختم می گردد .

مرسی

zerobit-ltd
یک شنبه 22 بهمن 1385, 13:02 عصر
شما یه همچین کاری رو مستقیما داخل textbox نمی تونید انجام بدبد. ولی می تونید محتویات textbox رو داخل یه متغیر بریزید؛ بعدش بعد از هر 30 کارکتر، با استفاده از vbcrlf به خط بعدی برید. در پایان متغیر رو داخل فایل بریزید.

<برنامه نویس>
یک شنبه 22 بهمن 1385, 13:58 عصر
میشه یه نمونه فیال برام بزارید اگه لطف کنید ممنون میشم

مرسی

Payam Moradi
یک شنبه 22 بهمن 1385, 14:30 عصر
این کد:



Dim i As Integer
Dim TextOut As String

For i = 0 To Len(Text1.Text) Step 30
TextOut = TextOut & Mid(Text1.Text, i + 1, 30) & vbCrLf
Next

If Right(TextOut, 2) = vbCrLf Then TextOut = Left(TextOut, Len(TextOut) - 2)
MsgBox TextOut


این برنامه:
.
.
:چشمک:

<برنامه نویس>
سه شنبه 24 بهمن 1385, 16:33 عصر
اقا مرسی دمت گرم