[أبو نوره]

مرحبا اخى

تفضل

PHP كود :

Dim a As Integer = TextBox1.SelectionStart 'مكان المؤشر'
Dim b As String = TextBox1.Text.Substring(a) 'النص بعد المؤشر'
Dim c As String = TextBox1.Text.Substring(0, a) 'النص قبل المؤشر'

If b.Trim.StartsWith("بسم") Then
    TextBox1.SelectedText = " " & "نصا معينا" & " "
End If

If c.Trim.EndsWith("الرحيم") Then
    TextBox1.SelectedText = " " & "نصا آخر" & " "
End If

If Not (b.Trim.StartsWith("بسم") Or c.Trim.EndsWith("الرحيم")) Then
    TextBox1.SelectedText = " " & "نصا ثالثا" & " "
End If