2 / 2 / 0
Регистрация: 14.02.2013
Сообщений: 24
1
.NET 4.x

Парсинг снизу вверх

14.02.2013, 08:11. Показов 2677. Ответов 23
Метки нет (Все метки)

Не могу разобраться, как заставить парсер, парсить не сверху вниз ,а снизу вверх.
VB.NET
1
2
3
4
5
6
7
8
9
10
11
Public Function Pars1(ByRef strSource As String, ByRef strStart As String, ByRef strEnd As String, Optional ByRef startPos As Integer = 0) As String
        Dim iPos As Integer, iEnd As Integer, lenStart As Integer = strStart.Length
        Dim strResult As String
        strResult = String.Empty
        iPos = strSource.IndexOf(strStart, startPos)
        iEnd = strSource.IndexOf(strEnd, iPos + lenStart)
        If iPos <> -1 AndAlso iEnd <> -1 Then
            strResult = strSource.Substring(iPos + lenStart, iEnd - (iPos + lenStart))
        End If
        Return strResult
    End Function
VB.NET
1
2
3
4
5
6
7
 Dim WC As New WebClient
        WC.Encoding = System.Text.Encoding.UTF8
        Dim Strings, Result As String
        Strings = WC.DownloadString("http://сайт.html")
        WC.Dispose()
        Result = Pars1(Strings, TextBox1.Text + "", TextBox2.Text + "")
        TextBox3.Text = (Result)
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.02.2013, 08:11
Ответы с готовыми решениями:

Текст снизу вверх
Как можно поменять направление текста с снизу вверх на сверху вниз?Использую Client.UploadString()...

Как добавить текст в Richbox снизу вверх
Как добавить текст в Richbox снизу вверх?Это мне нужно для чата. У меня есть код: Public Class...

Анимация: как сделать что бы шарик двигался снизу вверх, а не сверху вниз
ublic Class Form1 Dim x, y, h, w As Integer Private Sub Timer1_Tick(sender As...

Нанести текст "снизу вверх" — вдоль вертикальной линии
Всем привет, вот очередной вопрос к знатокам: создаю что то типа чертежа, необходимо нанести текст...

23
1080 / 1006 / 106
Регистрация: 28.02.2010
Сообщений: 2,889
14.02.2013, 17:33 2
Цитата Сообщение от arein1 Посмотреть сообщение
а снизу вверх
Не понял. Предлагаю привести пример.
0
525 / 487 / 98
Регистрация: 25.12.2011
Сообщений: 1,176
14.02.2013, 21:55 3
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Public Class Form1
 
    Dim S As String = "A 1 A A 2 A A 3 A A 4 A"
    Dim Index As Integer = PARS.Count(S, "A", "A") - 1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Назад
        If Index < 0 Then
            Index = PARS.Count(S, "A", "A") - 1
        Else
            MsgBox(PARS.GetPars(S, "A", "A", Index))
            Index = Index - 1
        End If
    End Sub
 
    Structure PARS
 
        Public Shared Function GetPars(ByVal strSource As String, ByRef strStart As String, ByRef strEnd As String, Optional ByVal Index As Integer = 0, Optional ByRef startPos As Integer = 0) As String
            Dim iPos As Integer, iEnd As Integer, lenStart As Integer = strStart.Length
            Dim strResult As String
            strResult = String.Empty
            For i = 0 To Index - 1 Step 1
                iPos = strSource.IndexOf(strStart, startPos)
                iEnd = strSource.IndexOf(strEnd, iPos + lenStart)
                iEnd = iEnd + strEnd.Length
                If iPos <> -1 AndAlso iEnd <> -1 Then
                    strSource = strSource.Substring(iEnd, strSource.Length - (0 + iEnd))
                Else
                    GoTo 1
                End If
            Next
1:
            iPos = strSource.IndexOf(strStart, startPos)
            iEnd = strSource.IndexOf(strEnd, iPos + lenStart)
            If iPos <> -1 AndAlso iEnd <> -1 Then
                strResult = strSource.Substring(iPos + lenStart, iEnd - (iPos + lenStart))
            End If
            Return strResult
        End Function
 
        Public Shared Function Count(ByRef strSource As String, ByRef strStart As String, ByRef strEnd As String, Optional ByRef startPos As Integer = 0) As Integer
            Dim iPos As Integer, iEnd As Integer, lenStart As Integer = strStart.Length
            Dim IntResult As Integer
            Dim BooL As Boolean = False
            Do While BooL = False
                iPos = strSource.IndexOf(strStart, startPos)
                iEnd = strSource.IndexOf(strEnd, iPos + lenStart)
                If iPos <> -1 AndAlso iEnd <> -1 Then
                    IntResult = IntResult + 1
                    startPos = iEnd + 1
                Else
                    BooL = True
                End If
            Loop
            Return IntResult
        End Function
 
    End Structure
 
End Class
0
2 / 2 / 0
Регистрация: 14.02.2013
Сообщений: 24
15.02.2013, 02:21  [ТС] 4
Спасибо, но я не пойму как это применить.
Сначала я парсю обычным парсером,затем попытался спарсить результат парса с помощью вашего обратного парсера,но не вышло.
Предполагаю я не правильно ,что-то сделал.

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
 Dim S As String = "A 1 A A 2 A A 3 A A 4 A"
    Dim Index As Integer = PARS.Count(S, "A", "A") - 1
 Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Dim WC As New WebClient
        WC.Encoding = System.Text.Encoding.UTF8
        Dim Strings, Result As String
        Dim Result2 As String
        Strings = WC.DownloadString("http://сайт.ru/")
        WC.Dispose()
        Result = Pars1(Strings, TextBox4.Text + "", TextBox5.Text + "")
        TextBox4.Text = (Result)
        Dim txt As String
        txt = (Result)
        Dim findThis As String
        findThis = TextBox3.Text
 
        If txt.Contains(findThis) Then
 
            Button3.Visible = False
        End If
        
 
        'Назад
        If Index < 0 Then
            Index = PARS.Count(S, "A", "A") - 1
        Else
            MsgBox(PARS.GetPars(S, "A", "A", Index))
            Index = Index - 1
        End If
        Result2 = PARS.Count(Result, TextBox3.Text, TextBox7.Text + "")
        TextBox8.Text = (Result2)
    End Sub
 
    Structure PARS
 
        Public Shared Function GetPars(ByVal strSource As String, ByRef strStart As String, ByRef strEnd As String, Optional ByVal Index As Integer = 0, Optional ByRef startPos As Integer = 0) As String
            Dim iPos As Integer, iEnd As Integer, lenStart As Integer = strStart.Length
            Dim strResult As String
            strResult = String.Empty
            For i = 0 To Index - 1 Step 1
                iPos = strSource.IndexOf(strStart, startPos)
                iEnd = strSource.IndexOf(strEnd, iPos + lenStart)
                iEnd = iEnd + strEnd.Length
                If iPos <> -1 AndAlso iEnd <> -1 Then
                    strSource = strSource.Substring(iEnd, strSource.Length - (0 + iEnd))
                Else
                    GoTo 1
                End If
            Next
1:
            iPos = strSource.IndexOf(strStart, startPos)
            iEnd = strSource.IndexOf(strEnd, iPos + lenStart)
            If iPos <> -1 AndAlso iEnd <> -1 Then
                strResult = strSource.Substring(iPos + lenStart, iEnd - (iPos + lenStart))
            End If
            Return strResult
        End Function
 
        Public Shared Function Count(ByRef strSource As String, ByRef strStart As String, ByRef strEnd As String, Optional ByRef startPos As Integer = 0) As Integer
            Dim iPos As Integer, iEnd As Integer, lenStart As Integer = strStart.Length
            Dim IntResult As Integer
            Dim BooL As Boolean = False
            Do While BooL = False
                iPos = strSource.IndexOf(strStart, startPos)
                iEnd = strSource.IndexOf(strEnd, iPos + lenStart)
                If iPos <> -1 AndAlso iEnd <> -1 Then
                    IntResult = IntResult + 1
                    startPos = iEnd + 1
                Else
                    BooL = True
                End If
            Loop
            Return IntResult
        End Function
 
    End Structure
Добавлено через 15 минут
Цитата Сообщение от Евгений М. Посмотреть сообщение
Не понял. Предлагаю привести пример.
Предположим у нас есть
HTML5
1
<span><div class="betterT" id="ид"  style="display:none;"><a id="ид" data="инфа" href="ссылка" class="betterT alf-link">Название</a></div><div class="betterT" id="ид"  style="display:none;"><a id="ид" data="инфа" href="ссылка" class="betterT alf-link">Название</a></div></span>
Парсим от <span> до </span>
Получаем результат первого парса
HTML5
1
<div class="betterT" id="ид"  style="display:none;"><a id="ид" data="инфа" href="ссылка" class="betterT alf-link">Название</a></div><div class="betterT" id="ид"  style="display:none;"><a id="ид" data="инфа" href="ссылка" class="betterT alf-link">Название</a></div>
При этом парсер парсил слева направо, ну или можно сказать сверху вниз.
Дальше мне нужно спарсить спарсенное, но не сверху вниз, а снизу вверх.
Тобишь я задаю начальный парс от
HTML5
1
" class="betterT alf-link">Название
И конечный
HTML5
1
href="
После того как он спарсит снизу вверх, результат парса должен был получиться
HTML5
1
ссылка
Добавлено через 13 минут
Получается мы выделили снизу вверх
<div class="betterT" id="ид" style="display:none;"><a id="ид" data="инфа" href="ссылка" class="betterT alf-link">Название</a></div>
0
525 / 487 / 98
Регистрация: 25.12.2011
Сообщений: 1,176
15.02.2013, 22:10 5
Цитата Сообщение от arein1 Посмотреть сообщение
Дальше мне нужно спарсить спарсенное, но не сверху вниз, а снизу вверх.
Тобишь я задаю начальный парс от
Зачем тебе надо получить ссылку?
Так парсь от:
VB.NET
1
Pars1(TXT, "href=""", """")
То есть от: href=" до ".
0
2 / 2 / 0
Регистрация: 14.02.2013
Сообщений: 24
16.02.2013, 03:21  [ТС] 6
Сейчас попытаюсь объяснить.
Делаю парсинг, получаю много строчек,разница между которыми - "ид" ,"инфа" ,"ссылка" ,"Название"
<div class="betterT" id="ид" style="display:none;"><a id="ид" data="инфа" href="ссылка" class="betterT alf-link">Название</a></div>
После чего,в спарсеном нахожу "Название", для каждого названия своя инфа, ид, ссылка.
Как мне извлечь данные для определенных "Названий"?
0
525 / 487 / 98
Регистрация: 25.12.2011
Сообщений: 1,176
16.02.2013, 04:32 7
Ну могу предложить так:
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim A As String = W("Название 1") 'Получаем строку (у которой имя Название 1).
        MsgBox(GetPars(A, "href=""", """")) 'И парсим ссылку.
    End Sub
 
    Function W(ByVal Name As String) As String 'Пишем название и получаем полную строку.
        Dim Mass() As String = TextBox1.Lines() 'Я строки читаю из TextBox'a (строки).
        Dim Result As String = ""
        Dim Index As Integer = 0, iEnd As Integer, iStart As Integer
        For i = 0 To Mass.Length - 1 Step 1
            iEnd = Mass(i).IndexOf("</a>", 0)
            For j = iEnd To 1 Step -1
                If Mid(Mass(i), j, 1) = ">" Then
                    iStart = j
                    If Mass(i).Substring(iStart, iEnd - iStart) = Name Then
                        Return Mass(i)
                    End If
                End If
            Next
        Next
        Return ""
    End Function
 
    Public Function GetPars(ByRef strSource As String, ByRef strStart As String, ByRef strEnd As String, Optional ByRef startPos As Integer = 0) As String
        Dim iPos As Integer, iEnd As Integer, lenStart As Integer = strStart.Length
        Dim strResult As String
        strResult = String.Empty
        iPos = strSource.IndexOf(strStart, startPos)
        iEnd = strSource.IndexOf(strEnd, iPos + lenStart)
        If iPos <> -1 AndAlso iEnd <> -1 Then
            strResult = strSource.Substring(iPos + lenStart, iEnd - (iPos + lenStart))
        End If
        Return strResult
    End Function
 
End Class
0
2 / 2 / 0
Регистрация: 14.02.2013
Сообщений: 24
16.02.2013, 04:44  [ТС] 8
Спасибо, сейчас попробую!

Добавлено через 9 минут
Выдает ошибку.

iEnd = strSource.IndexOf(strEnd, iPos + lenStart)
Индекс за пределами диапазона. Индекс должен быть положительным числом, а его размер не должен превышать размер коллекции.
0
525 / 487 / 98
Регистрация: 25.12.2011
Сообщений: 1,176
16.02.2013, 04:47 9
А в переменной А правильное содержимое (проверь).
Если Да то что то не то с ф-ей парсинга.
0
2 / 2 / 0
Регистрация: 14.02.2013
Сообщений: 24
16.02.2013, 04:49  [ТС] 10
Вот скрин
Миниатюры
Парсинг снизу вверх  
0
2 / 2 / 0
Регистрация: 14.02.2013
Сообщений: 24
16.02.2013, 05:22  [ТС] 11
Я вроде понял в чем моя ошибка, заменил "А" на "Result" из прошлого парсинга, выдало ссылку,но не ту (

Добавлено через 59 секунд
Думаю, дело в том, что Result - это одна строка
Примерно вот так
HTML5
1
<div class="betterT" id="ид"  style="display:none;"><a id="ид" data="инфа" href="ссылка" class="betterT alf-link">Название</a></div><div class="betterT" id="ид"  style="display:none;"><a id="ид" data="инфа" href="ссылка" class="betterT alf-link">Название</a></div><div class="betterT" id="ид"  style="display:none;"><a id="ид" data="инфа" href="ссылка" class="betterT alf-link">Название</a></div><div class="betterT" id="ид"  style="display:none;"><a id="ид" data="инфа" href="ссылка" class="betterT alf-link">Название</a></div><div class="betterT" id="ид"  style="display:none;"><a id="ид" data="инфа" href="ссылка" class="betterT alf-link">Название</a></div><div class="betterT" id="ид"  style="display:none;"><a id="ид" data="инфа" href="ссылка" class="betterT alf-link">Название</a></div>
Добавлено через 4 минуты
Ссылка которую я получаю, расположена в самом начале спарсеной информации
Причем выдает ссылку, даже если "Название" которое я ввожу, не существует

Добавлено через 21 минуту
Проверил, дело не в том, что Result это одна строка
0
525 / 487 / 98
Регистрация: 25.12.2011
Сообщений: 1,176
16.02.2013, 14:31 12
Дело как раз в том что у тебя все в 1 строчке, а я показал пример с массивом строк.
Вот:
Содержание TextBox такое:
HTML5
1
<div class="betterT" id="ид"  style="display:none;"><a id="ид" data="инфа" href="ссылка" class="betterT alf-link">Название 1</a></div><div class="betterT" id="ид"  style="display:none;"><a id="ид" data="инфа" href="ссылка" class="betterT alf-link">Название 2</a></div><div class="betterT" id="ид"  style="display:none;"><a id="ид" data="инфа" href="ссылка" class="betterT alf-link">Название 3</a></div><div class="betterT" id="ид"  style="display:none;"><a id="ид" data="инфа" href="ссылка" class="betterT alf-link">Название 4</a></div><div class="betterT" id="ид"  style="display:none;"><a id="ид" data="инфа" href="ссылка" class="betterT alf-link">Название 5</a></div><div class="betterT" id="ид"  style="display:none;"><a id="ид" data="инфа" href="ссылка" class="betterT alf-link">Название 6</a></div>
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim A As String = W("Название 6")
        MsgBox(PARS.OldPars(A, "href=""", """"))
    End Sub
 
    Function W(ByVal Name As String) As String
        Dim A As String = TextBox1.Text
        For i = 0 To PARS.Count(A, "<div", "</div>") - 1 Step 1
            Dim Temp As String = PARS.GetPars(A, "<div", "</div>", i)
            If PARS.OldPars(Temp, "class=""betterT alf-link"">", "</a>") = Name Then
                Return Temp
            End If
        Next
        Return ""
    End Function
 
    Structure PARS
 
        Public Shared Function OldPars(ByRef strSource As String, ByRef strStart As String, ByRef strEnd As String, Optional ByRef startPos As Integer = 0) As String
            Dim iPos As Integer, iEnd As Integer, lenStart As Integer = strStart.Length
            Dim strResult As String
            strResult = String.Empty
            iPos = strSource.IndexOf(strStart, startPos)
            iEnd = strSource.IndexOf(strEnd, iPos + lenStart)
            If iPos <> -1 AndAlso iEnd <> -1 Then
                strResult = strSource.Substring(iPos + lenStart, iEnd - (iPos + lenStart))
            End If
            Return strResult
        End Function
 
 
        Public Shared Function GetPars(ByVal strSource As String, ByRef strStart As String, ByRef strEnd As String, Optional ByVal Index As Integer = 0, Optional ByRef startPos As Integer = 0) As String
            Dim iPos As Integer, iEnd As Integer, lenStart As Integer = strStart.Length
            Dim strResult As String
            strResult = String.Empty
            For i = 0 To Index - 1 Step 1
                iPos = strSource.IndexOf(strStart, startPos)
                iEnd = strSource.IndexOf(strEnd, iPos + lenStart)
                iEnd = iEnd + strEnd.Length
                If iPos <> -1 AndAlso iEnd <> -1 Then
                    strSource = strSource.Substring(iEnd, strSource.Length - (0 + iEnd))
                Else
                    GoTo 1
                End If
            Next
1:
            iPos = strSource.IndexOf(strStart, startPos)
            iEnd = strSource.IndexOf(strEnd, iPos + lenStart)
            If iPos <> -1 AndAlso iEnd <> -1 Then
                strResult = strSource.Substring(iPos + lenStart, iEnd - (iPos + lenStart))
            End If
            Return strResult
        End Function
 
        Public Shared Function Count(ByRef strSource As String, ByRef strStart As String, ByRef strEnd As String, Optional ByRef startPos As Integer = 0) As Integer
            Dim iPos As Integer, iEnd As Integer, lenStart As Integer = strStart.Length
            Dim IntResult As Integer
            Dim BooL As Boolean = False
            Do While BooL = False
                iPos = strSource.IndexOf(strStart, startPos)
                iEnd = strSource.IndexOf(strEnd, iPos + lenStart)
                If iPos <> -1 AndAlso iEnd <> -1 Then
                    IntResult = IntResult + 1
                    startPos = iEnd + 1
                Else
                    BooL = True
                End If
            Loop
            Return IntResult
        End Function
 
    End Structure
 
End Class
1
2 / 2 / 0
Регистрация: 14.02.2013
Сообщений: 24
16.02.2013, 17:36  [ТС] 13
Спасибо , работает, но проблема в том, что данные весят 700 кб, такой большой объем не вмещается в textbox и выдает ошибку.Чем заменить?

Добавлено через 6 минут
System.ArgumentOutOfRangeException не обработано
Индекс за пределами диапазона. Индекс должен быть положительным числом, а его размер не должен превышать размер коллекции.

Добавлено через 11 минут
Хотя, как-то странно, с маленьким количеством данных, то работает, то выдает ошибку
В чем может быть проблема?

Добавлено через 20 минут
Если я вручную ввожу в TextBox1 данные,то все работает.
А если Textbox1 = Result, то выводит ошибку
0
525 / 487 / 98
Регистрация: 25.12.2011
Сообщений: 1,176
16.02.2013, 18:11 14
Так зачем это помещать в тб? Если у тебя есть переменная Result которую можно сразу же использовать, вместо А ставь Result.
Выдает ошибку? Ты уверен что у тебя переменная Result такого типа:
HTML5
1
<div class="betterT" id="ид"  style="display:none;"><a id="ид" data="инфа" href="ссылка" class="betterT alf-link">Название</a></div><div class="betterT" id="ид"  style="display:none;"><a id="ид" data="инфа" href="ссылка" class="betterT alf-link">Название</a></div><div class="betterT" id="ид"  style="display:none;"><a id="ид" data="инфа" href="ссылка" class="betterT alf-link">Название</a></div><div class="betterT" id="ид"  style="display:none;"><a id="ид" data="инфа" href="ссылка" class="betterT alf-link">Название</a></div><div class="betterT" id="ид"  style="display:none;"><a id="ид" data="инфа" href="ссылка" class="betterT alf-link">Название</a></div><div class="betterT" id="ид"  style="display:none;"><a id="ид" data="инфа" href="ссылка" class="betterT alf-link">Название</a></div>
0
2 / 2 / 0
Регистрация: 14.02.2013
Сообщений: 24
16.02.2013, 19:24  [ТС] 15
Туже ошибку выдает и на сколько я вижу, нельзя A на Result заменить, ведь A в функции парсенга задействована

Добавлено через 2 минуты
Если я данные в TextBox1 вручную вбиваю и в меньшем объеме, то все работает.

Добавлено через 34 минуты
Ну как это вообще может быть, вставляешь в textbox информацию посредством ручного копирования, все работает.
А если передавать программно ,то ошибка. Мб некорректно передается результат?
0
525 / 487 / 98
Регистрация: 25.12.2011
Сообщений: 1,176
16.02.2013, 19:25 16
Так допиши 2 параметр и передавай строку:
VB.NET
1
2
3
4
5
6
7
8
9
    Function W(ByVal TXT As String, ByVal Name As String) As String
        For i = 0 To PARS.Count(TXT, "<div", "</div>") - 1 Step 1
            Dim Temp As String = PARS.GetPars(TXT, "<div", "</div>", i)
            If PARS.OldPars(Temp, "class=""betterT alf-link"">", "</a>") = Name Then
                Return Temp
            End If
        Next
        Return ""
    End Function
Добавлено через 1 минуту
Если нет нечего такого секретного то выложи проект, я сделаю.
1
2 / 2 / 0
Регистрация: 14.02.2013
Сообщений: 24
16.02.2013, 19:42  [ТС] 17
Секретного точно ничего нету
Сейчас выложу
0
2 / 2 / 0
Регистрация: 14.02.2013
Сообщений: 24
16.02.2013, 19:45  [ТС] 18
Вот
Вложения
Тип файла: rar Фильмер.rar (512.2 Кб, 10 просмотров)
0
525 / 487 / 98
Регистрация: 25.12.2011
Сообщений: 1,176
16.02.2013, 21:50 19
Так я вообще там ничего не понял).
Так работает?
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Function W(ByVal TXT As String, ByVal Name As String) As String
        For i = 0 To PARS.Count(TXT, "<div", "</div>") - 1 Step 1
            Dim Temp As String = PARS.GetPars(TXT, "<div", "</div>", i)
            If PARS.OldPars(Temp, "class=""betterT alf-link"">", "</a>") = Name Then
                Return Temp
            End If
        Next
        Return ""
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim A As String = W(Result, "Название 6")
        MsgBox(PARS.OldPars(A, "href=""", """"))
    End Sub
0
2 / 2 / 0
Регистрация: 14.02.2013
Сообщений: 24
17.02.2013, 11:03  [ТС] 20
Что-то я не понимаю, что за
VB.NET
1
 Dim A As String = W(Result, "Название 6")
Добавлено через 1 час 15 минут
Result туда нельзя ставить, так как он не объявлен там + зачем туда Result , если там "Название 6" для поиска.
Или он тогда в Result начнет искать это имя?

Добавлено через 3 минуты
Выдает ошибку

Добавлено через 20 минут
Мы так и не разобрались, почему работает если изначально вставить результат парсинга в textbox1 .
И почему тоже самое не работает когда этот результат передается программно в textbox1.
Я проверял, даже если маленький объем передать, не работает, а если его вбить вручную, работает.

Добавлено через 2 минуты
Так же хотелось заметить, что ищет очень долго, почему так, там же не происходит никаких серьезных вычислений?

Добавлено через 17 минут
Как я это вижу, ошибка возникает, по причине того, что в textbox1 не поступает Result.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.02.2013, 11:03
Помогаю со студенческими работами здесь

Расширение снизу вверх
Всем привет! Есть код &lt;style&gt; .pers_life_center { position: absolute; width: 31px; ...

Полосы снизу вверх
Здравствуйте. Купил новую видеокарту sapphire radeon hd 7950 vapor-x, с ней в некоторых играх...

Вывод информации снизу вверх.
Написать прогу котороя при вводе информации виодила ее с низу вверх( в смисле на екране мы так...

Бегущий текст снизу вверх
Подскажите код плз


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru