I came up with this coding and there are 4 things wrong with it
1. way to long
2.doesent always find files
3. mostly it comes up with stuff like "httpgif"
4. sometimes come up with errors
Expand|Select|Wrap|Line Numbers
- Dim flv_reader As String = String.Empty
- Dim e As Integer = 0
- Dim flv_eq As Integer = 0
- Dim flv_dot As Integer = 0
- Dim flv_file As String = String.Empty
- For e = 0 To txts.Lines.Length - 1
- flv_reader = txts.Lines(e)
- 'find the .swf
- If flv_reader.Contains(".flv") Then
- 'find the :
- Dim f As Integer = 0
- For f = 0 To flv_reader.Length - 1
- If flv_reader.Chars(f) = ":" Then
- flv_eq = f
- End If
- Next
- 'find the .
- Dim g As Integer = flv_eq
- For g = flv_eq To flv_reader.Length - 1
- If flv_reader.Chars(g) = "." Then
- flv_dot = g
- End If
- Next
- 'Me.Text = swf_dot
- 'get text betwwen the 2
- Dim h As Integer = 0
- For h = flv_eq To flv_dot
- flv_file += flv_reader.Chars(h)
- Next
- 'add http and swf
- flv_file = "http" + flv_file + "flv"
- 'clean the search
- If flv_file.Contains("<") = False Then
- If flv_file.Contains("""") = False Then
- lstfiles.Items.Add(flv_file)
- End If
- End If
- End If
- Next