مساء الخير جميعا
لقد قمت بكتابة هذا الكود والهدف منة انة في MultiLine TextBox عند الوصول لعدد معين من الـ Characters يجب الإنتقال بشكل اتوماتيكي للسطر التالي لمتابعة الكتابة , ومن ثم إرسال النص الى Text File بشكل ان يكون تقريبا كل 100 حرف او 10 كلمات على سطر واحد ,
طبعا الكود مضحك ضمن خبرتي القليلة :) وايضا لم أعرف كيف أعطي أمر الإنتقال للسطر التالي
Dim myText As String = TextBox1.Text
If (Len(myText) = 100) Then
' TextBox1.Text = TextBox1.Text & "\n" طبعا هذا غلط هون
' Replace(TextBox1.Text, vbCrLf, "<br>") طبعا هذا غلط هون
MsgBox("إضغط انتر للنزول الى سطر جديد")
End Ifأرجو المساعدة في هذا الكود وإذا كان بلإمكان انة مثلا إذا كان الحد المسموح 100 حرف وكان رقم 100 هو نصف الكلمة ان لا يسمح بتنزيل نصف الكلمة الى السطر الجديد وإنما ينزل الكلمة كلها للسطر الجديد , اعتقد انة هيك كود قد مر على أحد في المنتدى او في التعامل بشكل عام , ولكن لأسف استخدمت البحث ولم أجد اي شيئ
وهذا كود نسخ النص الى Text File
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim objStreamWriter As StreamWriter
Dim appendMode As Boolean = False ' This overwrites the entire file.
objStreamWriter = New StreamWriter("Text.txt", appendMode, System.Text.Encoding.GetEncoding(1256))
objStreamWriter.WriteLine(TextBox1.Text)
objStreamWriter.Close()
End Subوكل هذا اللف والدوران بسبب ان الفلاش لا يدعم تجزيئ سطر عربي طويل الى سطرين بشكل صحيح في الـ textbox بشكل أتوماتيكي عند قرائتة كمتغير من ملف نصي .
ولكم كل الشكر أعضاء ومشرفين