منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2

السلام عليكم ورحمه الله وبركاته كيفيه ازاله 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
فيه مشكلة في رفع المرفقات حدثت للتو

الصفحات : 1 2

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

حسن الجلب

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

حسن الجلب

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

حسن الجلب

سعود

حسن الجلب

سعود

حسن الجلب

سعود