Comments by saify mian

saify mian 30-Sep-22 5:27am View

For your information, this is not an obsolete or 20-year-old language. Every language is modern in every era because new languages always emerge from it. The second is that when we share any question with others, it does not mean that we who ask the question are weak in knowledge, but our aim is to spread knowledge to others so that they too may be able to answer their questions and Can increase their knowledge.
Anyway, thanks for your unwavering help. I have solved my problem myself and I will also upload the complete project so that others can benefit from it.
Thanks

saify mian 30-Sep-22 2:03am View

To improve my programming skills I need to improve the code I'm trying to generate.

saify mian 14-Sep-22 6:20am View

Anyway, Thanks.

saify mian 11-Sep-22 6:12am View

Deleted

I have also using this code but this only show one cell result......

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim myRegExp As RegExp
Dim myMatches As MatchCollection
Dim myMatch As Match
myRegExp = New RegExp
myRegExp.IgnoreCase = True
myRegExp.Global = True

Dim index As Integer
Dim saif As String
index = DataGridView1.CurrentRow.Index
Dim selectedrow As DataGridViewRow
selectedrow = DataGridView1.Rows(index)
saif = (selectedrow.Cells(1).Value.ToString)

myRegExp.Pattern = "(http|https|ftp)\://[a-zA-Z0-9\-\.]+\.[a-zA-Z]{2,3}(:[a-zA-Z0-9]*)?/?([a-zA-Z0-9\-\._\?\,\'/\\\+&%\$#\=~])/"
myMatches = myRegExp.Execute(saif)

For Each myMatch In myMatches
If myMatch.Length = 0 Then
ListBox1.Items.Add("Mo")
Else
ListBox1.Items.Add(myMatch.Value)
End If

Next

Timer1.Enabled = False

End Sub

Comments by saify mian (Top 4 by date)