Как извлечь текст с последней записи в 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д