VBNet - Форум - Конверт в VB6

Вопрос: Конверт в VB6 Добавлено: 12.06.12 12:07

Автор вопроса: Alex | Web-сайт: starsorion.com

Всем привет!
Может ли кто помочь в преобразовании данного ниже кога в VB6?
Заранее благодарен!

Public Function GetBetween(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

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If e.Url.ToString().IndexOf("access_token") <> -1 Then
            access_token = GetBetween(e.Url.ToString(), "access_token=", "&expires", 0)
        End If
    End Sub

Private Function getProfiles(ByVal uid As String) As XmlDocument
        Dim result As New XmlDocument()
        result.Load("https://api.vkontakte.ru/method/getProfiles.xml?access_token=" & access_token & "uid=" & uid)
        Return result
    End Function

Ответить

Ответы Всего ответов: 8

Номер ответа: 1 Автор ответа: Alex Вопросов: 11 Ответов: 40	Web-сайт: starsorion.com Профиль \| \| #1	Добавлено: 12.06.12 15:06
	Разобрался) Осталось актуальным только Dim result As New XmlDocument() result.Load Ответить

Номер ответа: 2 Автор ответа: Alex Вопросов: 11 Ответов: 40	Web-сайт: starsorion.com Профиль \| \| #2	Добавлено: 12.06.12 16:15
	Тема закрыта) Поторопился с вопросом) Ответить

Номер ответа: 3 Автор ответа: Morpheus Вопросов: 224 Ответов: 3777	Web-сайт: xury.zx6.ru Профиль \| \| #3	Добавлено: 26.06.12 19:42
	Спасибо! Прочитал про AndAlso )) Ответить

Номер ответа: 4 Автор ответа: EROS Вопросов: 58 Ответов: 4255	Профиль \| \| #4	Добавлено: 26.06.12 20:17
	Morpheus пишет: Прочитал про AndAlso Тебе это не надо )) Ответить

Номер ответа: 5 Автор ответа: Morpheus Вопросов: 224 Ответов: 3777	Web-сайт: xury.zx6.ru Профиль \| \| #5	Добавлено: 26.06.12 21:53
	А чо так? Интересно же Хотя я на C# пишу в основном. Ответить

Номер ответа: 6 Автор ответа: EROS Вопросов: 58 Ответов: 4255	Профиль \| \| #6	Добавлено: 26.06.12 23:20
	Morpheus пишет: AndAlso Это из сленга злобных орков )) Пора переходить на светлую сторону силы.. Ответить

Номер ответа: 7 Автор ответа: Morpheus Вопросов: 224 Ответов: 3777	Web-сайт: xury.zx6.ru Профиль \| \| #7	Добавлено: 27.06.12 17:32
	После года в пятьсоттысячестрочном С++ проекте, написаным чуваками на 10 лет старше меня, являющийся 1/20 частью всей системы, код на VB кажется эльфийской рукописью Ответить

Номер ответа: 8 Автор ответа: EROS Вопросов: 58 Ответов: 4255	Профиль \| \| #8	Добавлено: 27.06.12 18:33
	Все познается в сравнении... (с) Ответить

Страница: 1 |