Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.
If True Then Dim line As String Dim sr As New StreamReader(tableselected) Dim table As String = "" For x As Integer = 0 To 1000 line = sr.ReadLine() If line Is Nothing Then 'if the file is over, exit the for loop table = table.TrimEnd(","c) Exit For End If Dim searchWithinThis As String = line Dim searchForThis As String = "0;" '= index & ";" 'If index > 10 Then ' searchForThis = index & "0;" 'End If 'If index < 10 Then ' searchForThis = index & "00;" 'End If Dim tableresult As Boolean = searchWithinThis.Contains(searchForThis) If tableresult = True Then Dim range As String = line.Substring(0) ' If index < 10 Then table = table & line.Substring(2) 'line.StartsWith(";") 'line.Substring(0, 41) '& Chr(3) 'End If ' If range > 10 Then ' table = table & line.StartsWith(";") 'line.Substring(1, 41) '& Chr(3) 'End If End If Next x sr.Close() return table
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.