+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : استعلام (/showthread.php?tid=2515)
الصفحات:
1
2
RE: استعلام - nabil - 10-04-14
بحمد لله قدرت اتوصل للحل وسوف اضعه لتعم الفائده لبقي الاعضاء
Imports System.Text.RegularExpressions
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Dim text As String = "Test@@@_&aa&&&"
Dim sb As New StringBuilder(text.Length)
Dim lastChar As Char
For Each c As Char In text
If c <> lastChar Then
sb.Append©
lastChar = c
End If
Next
MsgBox(sb.ToString)
End Sub