Click here to Skip to main content
15,796,507 members

Comments by saify mian (Top 4 by date)

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.
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    
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
End If


Timer1.Enabled = False

End Sub