+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كيفيه ازاله line من سلسه نصيه (/showthread.php?tid=42259)
الصفحات:
1
2
كيفيه ازاله line من سلسه نصيه - حسن الجلب - 24-08-22
السلام عليكم ورحمه الله وبركاته كيفيه ازاله line من سلسلة نصيه او تكست بوكس سواء ال سطر ده فارغ أو يوجد به كلام
RE: كيفيه ازاله line من سلسه نصيه - أبو خالد الشكري - 24-08-22
وعليكم السلام ورحمة الله وبركاته
تفضل ، هذا الكود مثال على ما طلبت
وهو يقوم بإزالة كلمة 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)RE: كيفيه ازاله line من سلسه نصيه - حسن الجلب - 24-08-22
حضرتك هذا كود لأستبدال حرف أو فراغ أو كلمه من سلسله نصيه أنا أريد ازاله سطر كامل حتي ولو كان ممتلئ
السلام عليكم هل يوجد حل
RE: كيفيه ازاله line من سلسه نصيه - أبو خالد الشكري - 24-08-22
إذا كان هذا النص مكتوب في Textbox فبإمكانك بكل سهولة أن تكتب له
كود :
Textbox1.text=""RE: كيفيه ازاله line من سلسه نصيه - حسن الجلب - 24-08-22
حضرتك أنا عاوز ازيل صف واحد فقط مهو ممكن يكون التكست فيها اكتر من صف
RE: كيفيه ازاله line من سلسه نصيه - سعود - 24-08-22
(24-08-22, 06:46 PM)حسن الجلب كتب : السلام عليكم ورحمه الله وبركاته كيفيه ازاله line من سلسلة نصيه او تكست بوكس سواء ال سطر ده فارغ أو يوجد به كلام
و عليكم السلام و رحمة الله و بركاته
تحتاج فقط لرقم السطر
PHP كود :
Dim cindex As Integer = txtlines.GetFirstCharIndexOfCurrentLine
Dim line As Integer = txtlines.GetLineFromCharIndex(cindex)
RE: كيفيه ازاله line من سلسه نصيه - حسن الجلب - 24-08-22
طيب كيفيه حذفه؟
RE: كيفيه ازاله line من سلسه نصيه - سعود - 24-08-22
!!!لا تنسخ الاكواد التالية مطلقا و انما اقراها فقط!!!
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
RE: كيفيه ازاله line من سلسه نصيه - حسن الجلب - 24-08-22
ولكن كيفيه حذف صف بمعلوميه رقم الصف؟
RE: كيفيه ازاله line من سلسه نصيه - سعود - 24-08-22
(24-08-22, 11:45 PM)حسن الجلب كتب : ولكن كيفيه حذف صف بمعلوميه رقم الصف؟
المثال اللي قدمته لك هو كما وصفت بطلبك
(24-08-22, 06:46 PM)حسن الجلب كتب : السلام عليكم ورحمه الله وبركاته كيفيه ازاله line من سلسلة نصيه او تكست بوكس سواء ال سطر ده فارغ أو يوجد به كلامالدالة Getline ترسل لها محتوى نصي وترجع لك رقم الصف او السطر اللذي عليه المؤشر ومثالنا هنا على Textbox
حدثت المثال واضفت زر بحث احاول رفع المرفق ولكن فيه مشكلة بالموقع.
https://i.postimg.cc/BZBnTxD1/t.png
فيه مشكلة في رفع المرفقات حدثت للتو