[حسن الجلب]

السلام عليكم ورحمه الله وبركاته كيفيه ازاله line من سلسلة نصيه او تكست بوكس سواء ال سطر ده فارغ أو يوجد به كلام

[أبو خالد الشكري]

وعليكم السلام ورحمة الله وبركاته

تفضل ، هذا الكود مثال على ما طلبت 
وهو يقوم بإزالة كلمة only من الجملة The cat eating fish Only

كود :

Dim Old_Sentence As String = "The cat eating fish Only"
       Dim New_Sentence As String = Replace(Old_Sentence, "Only", "")
       MsgBox(New_Sentence)

[حسن الجلب]

حضرتك هذا كود لأستبدال حرف أو فراغ أو كلمه  من سلسله نصيه أنا أريد ازاله سطر كامل حتي ولو كان ممتلئ

---

السلام عليكم هل يوجد حل

[أبو خالد الشكري]

إذا كان هذا النص مكتوب في Textbox فبإمكانك بكل سهولة أن تكتب له 

كود :

Textbox1.text=""

---

[حسن الجلب]

حضرتك أنا عاوز ازيل صف واحد فقط مهو ممكن يكون التكست فيها اكتر من صف

[سعود]

(24-08-22, 06:46 PM)حسن الجلب كتب : السلام عليكم ورحمه الله وبركاته كيفيه ازاله line من سلسلة نصيه او تكست بوكس سواء ال سطر ده فارغ أو يوجد به كلام

و عليكم السلام و رحمة الله و بركاته
تحتاج فقط لرقم السطر 

PHP كود :

       Dim cindex As Integer = txtlines.GetFirstCharIndexOfCurrentLine
        Dim line As Integer = txtlines.GetLineFromCharIndex(cindex) 


هذا يحدد السطر اللذي عليه المؤشر.

[حسن الجلب]

طيب كيفيه حذفه؟

[سعود]

!!!لا تنسخ الاكواد التالية مطلقا و انما اقراها فقط!!!

PHP كود :

Public Class Form1
    Private Function GetLine(txt As String)
        Dim cindex As Integer = txtlines.GetFirstCharIndexOfCurrentLine
        Dim line As Integer = txtlines.GetLineFromCharIndex(cindex)
        Return line
    End Function
    Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
        Dim line As String = InputBox("Type any thing")
        If line.Trim = "" Then Exit Sub
        txtlines.AppendText(line & vbNewLine)
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        lblcount.Text = "Lines Count: " & txtlines.Lines.Count
    End Sub
    Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
        Dim word As String = txtlines.Lines(GetLine(txtlines.Text))
        Dim lines() As String = txtlines.Lines
        txtlines.Clear()
        For Each h As String In lines
            If h <> word Then
                txtlines.AppendText(h & vbNewLine)
            End If
        Next
        lines = Nothing
    End Sub
    Private Sub btnEdit_Click(sender As Object, e As EventArgs) Handles btnEdit.Click
        Dim a As String = InputBox("type a thing")
        If a.Trim <> "" Then
            Dim word As String = txtlines.Lines(GetLine(txtlines.Text))
            Dim lines() As String = txtlines.Lines
            txtlines.Clear()
            For Each h As String In lines
                If h = word Then
                    txtlines.AppendText(a & vbNewLine)
                Else
                    txtlines.AppendText(h & vbNewLine)
                End If
            Next
            lines = Nothing
        End If
    End Sub
End Class 


[حسن الجلب]

ولكن كيفيه حذف صف بمعلوميه رقم الصف؟

[سعود]

(24-08-22, 11:45 PM)حسن الجلب كتب : ولكن كيفيه حذف صف بمعلوميه رقم الصف؟

المثال اللي قدمته لك هو كما وصفت بطلبك

(24-08-22, 06:46 PM)حسن الجلب كتب : السلام عليكم ورحمه الله وبركاته كيفيه ازاله line من سلسلة نصيه او تكست بوكس سواء ال سطر ده فارغ أو يوجد به كلام

الدالة Getline ترسل لها محتوى نصي وترجع لك رقم الصف او السطر اللذي عليه المؤشر ومثالنا هنا على Textbox

---

حدثت المثال واضفت زر بحث احاول رفع المرفق ولكن فيه مشكلة بالموقع.

---

https://i.postimg.cc/BZBnTxD1/t.png
فيه مشكلة في رفع المرفقات حدثت للتو