Как извлечь текст с последней записи в Vk через Visual Basic 6.0? - VB

Узнай цену своей работы

Формулировка задачи:

Доброго времени суток! Есть задача как описано выше, нужно извлеч текст с последней записи в ВК через Visual Basic 6.0 примерно форма с одним элементом Text в котором отображается последняя запись опубликованная на странице ВК. Гугл не помог, а личного опыта маловато. Прошу помощи у Вас! Про прощения если создал тему не там.

Решение задачи: «Как извлечь текст с последней записи в Vk через Visual Basic 6.0?»

textual
Листинг программы
Option Explicit
Private UTF8Chars() As String
Public Function Pars(ByVal strSource As String, ByRef strStart As String, ByRef strEnd As String, LenS As Long) As String
        Dim iPos As Long, iEnd As Long, S As String, i As Long, strResult As String, k As Long
          Do While InStr(1, strSource, strStart)
            iPos = InStr(1, strSource, strStart) + Len(strStart)
            iEnd = InStr(iPos - 1, strSource, strEnd)
            If iEnd > iPos Then
                strResult = Mid(strSource, iPos, iEnd - iPos)
                If Len(strResult) < LenS Then k = k + 1: S = S & k & "." & vbTab & strResult & vbCrLf
            End If
            strSource = Mid(strSource, iEnd + Len(strEnd))
        Loop
        Do While InStr(S, vbCrLf & vbCrLf): S = Replace(S, vbCrLf & vbCrLf, ""): Loop
        Do While InStr(S, "  "): S = Replace(S, "  ", " "): Loop
        Pars = S
End Function
 
Private Sub Command1_Click()
    Dim S As String, ff As Integer
    InitializeUTF8
    ff = FreeFile
    Open App.Path & "\HTML.txt" For Input As #ff
         S = Input(LOF(ff), #ff)
    Close #ff
    Text1.Text = S
    Text2.Text = UTF8ToANSI(Pars(S, "<div class=""pi_text"">", "</div>", 100))
End Sub
 
Public Function UTF8ToANSI(UTF8 As String) As String
    Dim S As String, i As Long, t As String, j As Long
    S = UTF8
    For i = 128 To 255
         S = Replace(S, UTF8Chars(i - 128), Chr(i))
    Next i
    UTF8ToANSI = S
End Function
Public Sub InitializeUTF8()
Dim S As String
S = Chr(208) + Chr(130) + Chr(38) + Chr(38) + Chr(208) + Chr(131) + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(154) + Chr(38) + Chr(38) + Chr(209) + Chr(147) + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(158) + Chr(38)
S = S + Chr(38) + Chr(226) + Chr(128) + Chr(166) + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(160) + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(161) + Chr(38) + Chr(38) + Chr(226) + Chr(130) + Chr(172) + Chr(38) + Chr(38)
S = S + Chr(226) + Chr(128) + Chr(176) + Chr(38) + Chr(38) + Chr(208) + Chr(137) + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(185) + Chr(38) + Chr(38) + Chr(208) + Chr(138) + Chr(38) + Chr(38) + Chr(208) + Chr(140) + Chr(38)
S = S + Chr(38) + Chr(208) + Chr(139) + Chr(38) + Chr(38) + Chr(208) + Chr(143) + Chr(38) + Chr(38) + Chr(209) + Chr(146) + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(152) + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(153)
S = S + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(156) + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(157) + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(162) + Chr(38) + Chr(38) + Chr(226) + Chr(128) + Chr(147) + Chr(38)
S = S + Chr(38) + Chr(226) + Chr(128) + Chr(148) + Chr(38) + Chr(38) + Chr(194) + Chr(152) + Chr(38) + Chr(38) + Chr(226) + Chr(132) + Chr(162) + Chr(38) + Chr(38) + Chr(209) + Chr(153) + Chr(38) + Chr(38) + Chr(226) + Chr(128)
S = S + Chr(186) + Chr(38) + Chr(38) + Chr(209) + Chr(154) + Chr(38) + Chr(38) + Chr(209) + Chr(156) + Chr(38) + Chr(38) + Chr(209) + Chr(155) + Chr(38) + Chr(38) + Chr(209) + Chr(159) + Chr(38) + Chr(38) + Chr(194) + Chr(160)
S = S + Chr(38) + Chr(38) + Chr(208) + Chr(142) + Chr(38) + Chr(38) + Chr(209) + Chr(158) + Chr(38) + Chr(38) + Chr(208) + Chr(136) + Chr(38) + Chr(38) + Chr(194) + Chr(164) + Chr(38) + Chr(38) + Chr(210) + Chr(144) + Chr(38)
S = S + Chr(38) + Chr(194) + Chr(166) + Chr(38) + Chr(38) + Chr(194) + Chr(167) + Chr(38) + Chr(38) + Chr(208) + Chr(129) + Chr(38) + Chr(38) + Chr(194) + Chr(169) + Chr(38) + Chr(38) + Chr(208) + Chr(132) + Chr(38) + Chr(38)
S = S + Chr(194) + Chr(171) + Chr(38) + Chr(38) + Chr(194) + Chr(172) + Chr(38) + Chr(38) + Chr(194) + Chr(173) + Chr(38) + Chr(38) + Chr(194) + Chr(174) + Chr(38) + Chr(38) + Chr(208) + Chr(135) + Chr(38) + Chr(38) + Chr(194)
S = S + Chr(176) + Chr(38) + Chr(38) + Chr(194) + Chr(177) + Chr(38) + Chr(38) + Chr(208) + Chr(134) + Chr(38) + Chr(38) + Chr(209) + Chr(150) + Chr(38) + Chr(38) + Chr(210) + Chr(145) + Chr(38) + Chr(38) + Chr(194) + Chr(181)
S = S + Chr(38) + Chr(38) + Chr(194) + Chr(182) + Chr(38) + Chr(38) + Chr(194) + Chr(183) + Chr(38) + Chr(38) + Chr(209) + Chr(145) + Chr(38) + Chr(38) + Chr(226) + Chr(132) + Chr(150) + Chr(38) + Chr(38) + Chr(209) + Chr(148)
S = S + Chr(38) + Chr(38) + Chr(194) + Chr(187) + Chr(38) + Chr(38) + Chr(209) + Chr(152) + Chr(38) + Chr(38) + Chr(208) + Chr(133) + Chr(38) + Chr(38) + Chr(209) + Chr(149) + Chr(38) + Chr(38) + Chr(209) + Chr(151) + Chr(38)
S = S + Chr(38) + Chr(208) + Chr(144) + Chr(38) + Chr(38) + Chr(208) + Chr(145) + Chr(38) + Chr(38) + Chr(208) + Chr(146) + Chr(38) + Chr(38) + Chr(208) + Chr(147) + Chr(38) + Chr(38) + Chr(208) + Chr(148) + Chr(38) + Chr(38)
S = S + Chr(208) + Chr(149) + Chr(38) + Chr(38) + Chr(208) + Chr(150) + Chr(38) + Chr(38) + Chr(208) + Chr(151) + Chr(38) + Chr(38) + Chr(208) + Chr(152) + Chr(38) + Chr(38) + Chr(208) + Chr(153) + Chr(38) + Chr(38) + Chr(208)
S = S + Chr(154) + Chr(38) + Chr(38) + Chr(208) + Chr(155) + Chr(38) + Chr(38) + Chr(208) + Chr(156) + Chr(38) + Chr(38) + Chr(208) + Chr(157) + Chr(38) + Chr(38) + Chr(208) + Chr(158) + Chr(38) + Chr(38) + Chr(208) + Chr(159)
S = S + Chr(38) + Chr(38) + Chr(208) + Chr(160) + Chr(38) + Chr(38) + Chr(208) + Chr(161) + Chr(38) + Chr(38) + Chr(208) + Chr(162) + Chr(38) + Chr(38) + Chr(208) + Chr(163) + Chr(38) + Chr(38) + Chr(208) + Chr(164) + Chr(38)
S = S + Chr(38) + Chr(208) + Chr(165) + Chr(38) + Chr(38) + Chr(208) + Chr(166) + Chr(38) + Chr(38) + Chr(208) + Chr(167) + Chr(38) + Chr(38) + Chr(208) + Chr(168) + Chr(38) + Chr(38) + Chr(208) + Chr(169) + Chr(38) + Chr(38)
S = S + Chr(208) + Chr(170) + Chr(38) + Chr(38) + Chr(208) + Chr(171) + Chr(38) + Chr(38) + Chr(208) + Chr(172) + Chr(38) + Chr(38) + Chr(208) + Chr(173) + Chr(38) + Chr(38) + Chr(208) + Chr(174) + Chr(38) + Chr(38) + Chr(208)
S = S + Chr(175) + Chr(38) + Chr(38) + Chr(208) + Chr(176) + Chr(38) + Chr(38) + Chr(208) + Chr(177) + Chr(38) + Chr(38) + Chr(208) + Chr(178) + Chr(38) + Chr(38) + Chr(208) + Chr(179) + Chr(38) + Chr(38) + Chr(208) + Chr(180)
S = S + Chr(38) + Chr(38) + Chr(208) + Chr(181) + Chr(38) + Chr(38) + Chr(208) + Chr(182) + Chr(38) + Chr(38) + Chr(208) + Chr(183) + Chr(38) + Chr(38) + Chr(208) + Chr(184) + Chr(38) + Chr(38) + Chr(208) + Chr(185) + Chr(38)
S = S + Chr(38) + Chr(208) + Chr(186) + Chr(38) + Chr(38) + Chr(208) + Chr(187) + Chr(38) + Chr(38) + Chr(208) + Chr(188) + Chr(38) + Chr(38) + Chr(208) + Chr(189) + Chr(38) + Chr(38) + Chr(208) + Chr(190) + Chr(38) + Chr(38)
S = S + Chr(208) + Chr(191) + Chr(38) + Chr(38) + Chr(209) + Chr(128) + Chr(38) + Chr(38) + Chr(209) + Chr(129) + Chr(38) + Chr(38) + Chr(209) + Chr(130) + Chr(38) + Chr(38) + Chr(209) + Chr(131) + Chr(38) + Chr(38) + Chr(209)
S = S + Chr(132) + Chr(38) + Chr(38) + Chr(209) + Chr(133) + Chr(38) + Chr(38) + Chr(209) + Chr(134) + Chr(38) + Chr(38) + Chr(209) + Chr(135) + Chr(38) + Chr(38) + Chr(209) + Chr(136) + Chr(38) + Chr(38) + Chr(209) + Chr(137)
S = S + Chr(38) + Chr(38) + Chr(209) + Chr(138) + Chr(38) + Chr(38) + Chr(209) + Chr(139) + Chr(38) + Chr(38) + Chr(209) + Chr(140) + Chr(38) + Chr(38) + Chr(209) + Chr(141) + Chr(38) + Chr(38) + Chr(209) + Chr(142) + Chr(38)
S = S + Chr(38) + Chr(209) + Chr(143)
UTF8Chars = Split(S, "&&")
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4 из 5
Похожие ответы